Soru = Klavyeden girilen sayının karesini hesaplayan programı fonksiyonda yapınız.
Şekli :
Kodlar :
Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
label4.Caption:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
halt;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
sonuc:real;
Function kare(a:integer; var s:real):real;
begin
s:=a*a;
end;
begin
x:=strtoint(edit1.Text);
kare(x,sonuc);
label4.Caption:=floattostr(sonuc);
end;
Çalışma Şekli :
 
Burda Girilen Sayının Karesini Bulmaktadır. Temizle İse Edit Ve Labeli Sıfırlar. Çıkış İse Programdan Çıkmak İçin Kullanılır.
|
