|
Soru = é = Σkx=0 (1 / x!) = 1/0! + 1/1! + 1/2! + …+ 1/n! İşleminin sonucunu hesaplayan programı prosedürde yapınız.
Şekli :
Kodlar :
procedure hesap(n:integer);
var
i:integer; sonuc,t:real;
begin
for i:=1 to n do
t:=1/(t*i);
sonuc:=t+2;
showmessage(floattostr(sonuc));
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
x:=strtoint(inputbox('é Sayısı','é Sayısını Hesaplamak için Değeri Giriniz ...:',''));
hesap(x);
end;
Çalışma Şekli :
 
Klavyeden é sayısını girdikten sonra girdiğimiz sayı kombinasyondan geçer ve ekrana sonucu bildirir.
|
