contoh program TPW

Hari ini saya akan memberikan sedikit ilmu bagi temen - temen semua, yaitu bagaimana cara membuat program "menghitung luas segitiga" di TPW 1.5 ...

gini nih temen - temen sourch codenya :

program luassegitiga;
uses wincrt;
var
luas : real;
a,t : integer;
begin
clrscr;
write(‘Masukkan Alas : ’);readln(a);
write(‘Masukkan Tinggi : ’);readln(t);
luas := 0.5 * a * t;
writeln(‘Luas Segitiga adalah :’,luas:2:1);readln;
end.

Mudah kan.. Selamat Mencoba !!!