program Mencari_Luas_Segi_Tiga;
uses crt;
var
alas :real;
tinggi :real;
luas :real;
begin
clrscr;
writeln ('Luas Segitiga adalah Alas x Tinggi dibagi 2');
writeln;
write ('Masukan Alas Segitiga : ');
readln (alas);
write ('Masukan Tinggi Segitiga : ');
readln (tinggi);
luas:=(alas*tinggi)/2;
write ('Luas Segitiganya adalah =',luas);
readln;
end.
uses crt;
var
alas :real;
tinggi :real;
luas :real;
begin
clrscr;
writeln ('Luas Segitiga adalah Alas x Tinggi dibagi 2');
writeln;
write ('Masukan Alas Segitiga : ');
readln (alas);
write ('Masukan Tinggi Segitiga : ');
readln (tinggi);
luas:=(alas*tinggi)/2;
write ('Luas Segitiganya adalah =',luas);
readln;
end.
18.38 |
Category: |
2
komentar