Program Pascal Segitiga

Kali ini saya akan membuatkan program segitiga sederhana dengan menggunakan TPW 1.5. Seperti yang kita sudah pelajari TPW adalah sebuah program pembuat program sederhana yang dapat membuat sebuah aplikasi pada laptop atau pun PC(komputer). Langsung saja ini format bisa di copy langsung menuju TPW 1.5 terus klik edit, klik paste pada menu edit tadi



progamnya program menghitung_luas_segitiga;

Uses WinCrt;

var luas, a, t : real;

begin
writeln('|===============================|');
writeln('|Program Mengitung Luas Segitiga|');
writeln('|     Pembuat: Bustomo          |');
writeln('|===============================|');
write('masukan alas :');  read(a);
write('masukan tinggi :'); read(t);
luas:=0.5*(a*t);
write('luas segitiga adalah :',luas:1);
end.

Setelah format diatas di copy maka program dapat di jalankan, dengan cara tekan tombol ctrl+F9 pada keyboard dan program dapat dijalankan.