mencari luas trapesium menggunakan program pascal

uses wincrt;

const
t = 5;

var
spd,spa : integer;
l :real;

begin
write ('masukkan nilai sisi pendek = ');
readln (spd);
write ('masukkan nilai sisi panjang = ');
readln (spa);
l:=(spd +spa)/2*t;
writeln ('luasnya adalah =',l:0:2);
end.

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn