PROGRAM LUAS SEGITIGA
| |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.
Langganan:
Posting Komentar (Atom)
Search
Mengenai Saya
- vivikarin
- ..With helps of my friend, I'll make this journey in the sunshine.. not in the shadow
cinta terlarang >,<
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.
Tidak ada komentar:
Posting Komentar