Pengukuran Bangun Datar

Program Pengukuran;

uses wincrt;

var

   p,l,s,a,b : integer;

   Kpp,kbs,kss,ksk:real;

begin

     writeln('MENGHITUNG KELILING PERSEGI PANJANG');

     WRITELN;

     write('masukkan nilai panjang : ');readln(p);

     write('masukkan nilai lebar : ');readln(l);

     kpp:=((2*p) + (2*l));

     writeln;

    

begin

     writeln('MENGHITUNG KELILING BUJUR SANGKAR');

     writeln;

     write('masukkan nilai sisi : ');readln(s);

     kbs:=(4*s);

     writeln;

begin

     writeln('MENGHITUNG SEGITIGA SAMAKAKI');

     writeln;

     write('masukkan nilai sisi alas : ');readln(a);

     write('masukkan nilai sisi miring: ');readln(b);

     ksk:=(a + (2*b));

     writeln; 

  

begin

     writeln('MENGHITUNG KELILING SEGITIGA SAMASISI');

     WRITELN;

     write('masukkan nilai sisi : ');readln(s);

     kss:=(3*s);

     writeln;

     write('keliling segitigasamakaki = ',ksk:0:0,' cm');

     writeln;

     write('keliling bujur sangkar = ',kbs:0:0,' cm');

     writeln;

     write('keliling persegi panjang = ',kpp:0:0,' cm ');

     writeln;

     write('keliling segitiga samasisi = ',kss:0:0,' cm ');

end;

end;

end;

end.