mencari luas segitiga menggunakan program pascal

shares

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.

Related Posts

0 comments: