Program Menghitung Luas Segitiga
Program berikut ini mempergunakan rumus
matematika untuk menghitung luas sebuah segitiga (0.5 X alas X tinggi ). Dari
rumus tersebut dapat membuat sebuah
program sederhana.
Langkah-langkah untuk membuat programnya
adalah sebagai berikut :
1. Buatlah sebuah Form seperti yang terlihat pada Gambar 2.1 dibawa ini.
1. Buatlah sebuah Form seperti yang terlihat pada Gambar 2.1 dibawa ini.
2. Kemudian Doble Click
pada tombol Proses dan ketikan Code dibawah ini pada bidang Code editor seperti
yang terlihat pada Gambar
procedure TForm1.Button1Click(Sender: TObject);
var A,T,L:real;
begin
A:=STRTOFLOAT(EDIT1.TEXT);
T:=STRTOFLOAT(EDIT2.TEXT);
L:=0.5*A*T;
EDIT3.Text:=FLOATTOSTR(L);
end;
var A,T,L:real;
begin
A:=STRTOFLOAT(EDIT1.TEXT);
T:=STRTOFLOAT(EDIT2.TEXT);
L:=0.5*A*T;
EDIT3.Text:=FLOATTOSTR(L);
end;
3. Setelah selesai
memasuakan code tersebut pada bidang code editor, kemudia anda jalankan program
tersebut dengan cara clik tombol Run yang terdapat pada panel bagian kiri atas
yang berwana hijau. Atau dengan menekan F9 pada keyboard.
gimana mudahkan hehe. :D
Create : Abednego,S.T
Create : Abednego,S.T
Tidak ada komentar:
Posting Komentar