uses wincrt;
var
a,t,L:real;
begin
write('panjang alas segitiga = ');
readln (a);
write('tinggi segitiga = ');
readln (t);
L:=1/2*a*t;
writeln('Luas Segitiga = ',L:6:2);
end.
Minggu, 20 Desember 2009
Membuat program Luas Segitiga
Posted in |
20.17 | by ClubPoker-DNA
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar