Soru = Girilen 2 sayı arasındaki tam sayıları toplayan programı fonksiyonda yapınız.
Şekli :
Kodlar :
Procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
top:real;
Function fak(x,y:integer; var t:real):real;
var
i:integer;
begin
if (x>y) Or (x=y) then showmessage('1.Sayı 2.Sayıdan Büyük Veya Eşit Olamaz')
else
For i:=x+1 to y-1 do
t:=t+i;
end;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
fak(a,b,top);
label4.Caption:=floattostr(top);
end;
Procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
edit2.Text:='';
label4.Caption:='';
end;
Procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;
Çalışma Şekli :
 
Burda ise girilen 2 sayının arasından tam sayıların toplamı bulmaktadır. Temizle butonu ise editleri ve label’i sıfırlar. Çıkış ise programdan çıkmak için kullanılır.
|
