Wednesday, 12 January 2011

Rumus Turbo Paskal Untuk Menghitung Luas Segitiga

14 comments
program Rumus_menghitung_luas_segitiga;
uses wincrt;
var
a,t:integer;
luas_segitiga:real;
begin
clrscr;
write('alas : ');readln(a);
write('tinggi : ');readln(t);
luas_segitiga:=(a*t)/2;
writeln('luas segitiga : ',luas_segitiga:0:2);
readln;
end
.