Soru = Klavyeden x tam sayı girildiğinde x değerine göre
f(x)‘ i hesaplayan programı yapınız.
Şekli :
Kodlar :
Function fakt(f:integer):longint;
var
x:integer;
s:longint;
begin
s:=1;
for x:=1 to f do
s:=s*x;
fakt:=s;
end;
Function Komb(a,b:integer):real;
begin
Komb:=Fakt(a)/Fakt(b)*Fakt(a-b);
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
fx:real;
x:byte;
begin
x:=strtoint(Edit1.text);
if(x>=5) and (x<=10) then fx:=Komb(10,x)
else if (x>0) and (x<5) then fx:=Fakt(x)
else fx:=0;
showmessage(floattostr(fx));
end;
Çalışma Şekli :
 
Klavyeden girdiğimiz X sayısını soruda verilen kombinasyona çevirir ve ekrana sonucu bildirir.
|
