Contoh Program Turbo Pascal

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.

Read More