Program BelketTrap (Belah Ketpat & Trapesium)

Program LuasBelketTrap;

uses wincrt;

var

   a,b,t: integer;

   lbk,lp: real;

begin

     writeln('MENGHITUNG LUAS BELAH KETUPAT');

     WRITELN;

     write('masukkan nilai diagonal pertama: ');readln(a);

     write('masukkan nilai diagonal kedua: ');readln(b);

     lbk:=((a*b)/2);

     writeln;

    

begin

     writeln('MENGHITUNG LUAS TRAPESIUM');

     writeln;

     write('masukkan nilai sisi sejajar pertama : ');readln(a);

     write('masukkan nilai sisi sejajar kedua: ');readln(b);

     write('masukkan nilai tinggi : ');readln(t);

     lp:=(((a*b)*t)/2);

     writeln;

     write('keliling Luas Belah Ketupat = ',lbk:0:0,' cm ');

     writeln;

     write('keliling Luas Trapesium = ',lp:0:0,' cm ');

end;

end.