Contoh Program menghitung Luas Segitiga pada Pascal.
Program Menghitung Luas Segitiga.
program luas;
uses crt;
var
a,t: integer;
L: real;
begin
clrscr;
write(‘Masukan Nilai Alas:’);
readln (a);
write(‘Masukan Nilai Tingi:’);
readln(t);
writeln(‘ ‘);
L:=(a*t)/2;
writeln(‘Luas Segitiga adalah =’,L:6:2);
readln;
end.
hasilnya seperti dibawah ini:
Masukan Nilai Alas:12
Masukan Nilai Tingi:8
Luas Segitiga adalah = 48.00
Komentar
Posting Komentar