Soru = Girilen 2 sayının üstünü alan programı prosedürde yapınız.
Şekli :
Kodları :
Procedure TForm1.Button1Click(Sender: TObject);
var
s,a,b:integer;
Procedure ustalma(x,y:integer;var sonuc:integer);
var
i:integer;
begin
sonuc:=1;
For i:=1 to y do
sonuc:=Sonuc*x;
end;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
ustalma(a,b,s);
label4.Caption:=floattostr(s);
end;
Procedure TForm1.Button3Click(Sender: TObject);
begin
halt;
end;
Procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
edit2.Text:='';
label4.Caption:='';
end;
Çalışma Şekli:
 
Gördüğümüz gibi burada bir sayı ve sayının üssünü girerek üst hesaplaması yapıyoruz. Temizle butonu ise girdiğimiz sayıların editlerin üzerinden silinmesini yardımcı oluyor. Çıkış butonu ise programdan çıkmaya yarar.
|
