kalo blom pnya, Download Pascal di sini
Program luas_segitiga;
uses wincrt;
var
alas, tinggi, luas : integer;
begin
clrscr;
writeln('Perhitungan Luas Segitiga');
writeln('--------------------------');
write('alas:'); readln(alas);
write('tinggi:');readln(tinggi);
luas:=alas*tinggi/2;
write('Luas Segitiga :',luas);
end.
Selamat_Mencoba
0 komentar