Soru = T = 1³+2³+3³+…+n³ olacak şekilde işleminin sonucunu bulan programı fonksiyonda yapınız.
Şekli :
Kodlar :
Function islem(x:integer):integer;
var
i,sonuc:integer;
begin
sonuc:=0;
for i:=1 to x do
begin
sonuc:=sonuc+(i*i*i);
end;
islem:=sonuc;
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
begin
n:=strtoint(inputbox('N Değeri','N Değerini Giriniz....>',''));
showmessage('Toplam Sonuç : '+inttostr(islem(n)));
end;
Çalışma Şekli :
 
Klavyeden “n” değerini girdiğimizde soruda verilen kombinasyondan geçer ve sonucu ekrana bildirir.
|
