Question

Buatlah program hitung luas segitiga menggunakan bahasa pemograman pascal rumus

Lsegitiga=0,5xaxt

Answer 1

Verified answer

Program luas;
uses crt;
var
a,t: integer;
Lsegitiga: real;
begin
clrscr;
write(‘Masukan Nilai Alas:’);
readln (a);
write(‘Masukan Nilai Tingi:’);
readln(t);
writeln(‘ ‘);
Lsegitiga:=0.5*(a*t);
writeln(‘Luas Segitiga adalah =’,L:6:2);
readln;
end.