Soru = Klavyeden yarıçap ve yüksekliği girilen bir silindirin hacmini hesaplayan programı fonksiyon kullanarak yapınız.(SH= πr².h)
Şekli :
Kodlar :
Function silindirhacmi(r,h:real):real;
begin
silindirhacmi:=pi*sqr(r)*h;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
yaricap,yukseklik,hacim:real;
begin
hacim:=0;
yaricap:=strtofloat(Edit1.text);
yukseklik:=strtofloat(Edit2.Text);
hacim:=silindirhacmi(yaricap,yukseklik);
showmessage(floattostr(hacim));
end;
Çalışma Şekli :
 
Yarı çapı ve yüksekliği girdikten sonra ‘Hesapla’ butonuna tıkladığımızda ekrana silindirin hacmini verir.
|
