program hitung_segitiga;
uses
crt;
var
a,t :single;
luas,kel :double;
begin
clrscr;
writeln('hitung luas & keliling segitiga');
writeln(' ');
write('masukkan nilai alas :');
readln(a);
write('masukkan nilai tinggi :');
readln(t);
luas:=(a*t)/2;
writeln('jumlah luas :',luas:3:2);
kel:=3*a;
writeln('jumlah keliling :',kel:3:2);
read(kel)
end.
Selasa, 29 Desember 2009
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar