uses wincrt;
const
t = 5;
var
a : integer;
l : real;
begin
write ('masukkan nilai alas = ');
readln (a);
l :=0.5*a*t;
writeln ('luas segitiga = ',l:0: 2);
end.
const
t = 5;
var
a : integer;
l : real;
begin
write ('masukkan nilai alas = ');
readln (a);
l :=0.5*a*t;
writeln ('luas segitiga = ',l:0: 2);
end.
0 Response to "mencari luas segitiga menggunakan program pascal"
Posting Komentar