Contoh Program Kerucut Menggunakan Delphi

Delphi,merupakan bahasa pemrograman yg sudah tidak asing lagi di era sekarang, banyak sekali pemanfaatan pada bahasa pemrograman delphi ini, diantaranya sebgai media pembuatan Sistem Informasi dan lain lain,.

bisa juga dibuat untuk penghitungan matematika seperti contoh dibawah ini yaitu penghitungan Rumus kerucut menggunakan Delphi :

procedure TForm1.Button1Click(Sender: TObject);
var T,R,S,V,L :real;
begin
T:=StrToFloat(Edit1.Text);
R:=StrToFloat(Edit2.Text);
S:=StrToFloat(Edit3.Text);

V:=1/3*3.14*R*R*t;
L:= 3.14*R*(r+s);

Edit4.Text:= FloatToStr(V);
Edit5.Text:= FloatToStr(L);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end.

Semoga bermanfaat.. Indahnya saling berbagi