PROGRAM PASCAL MENGGUNAKAN PROCEDURE

1.program menggunakan procedure

program lat;

uses wincrt;

procedure segitiga;

var

   l:real;

   a,t:real;

begin

 write('Alas   : ');readln(a);

 write('Tinggi : ');readln(t);

 l:=a*t/2;

 writeln('Luas = ',l:2:2);

end;

procedure p_panjang;

var

   luas:real;

   p,l:real;

begin

  write('Panjang : ');readln(p);

  write('Lebar   : ');readln(l);

  luas:=p*l;

  writeln('Luas  = ',luas:2:2);

end;

procedure persegi;

var

   l:real;

   p:real;

begin

  write('Sisi : ');readln(p);

  l:=p*p;

  write('Luas   = ',l:2:2);

end;

procedure lingkaran;

var

 luas:real;

 r:real;

begin

  write('Jari-jari : ');readln(r);

  luas:=3.14*r*r;

  write('Luas     = ',luas:2:2);

end;

var

 pilih:byte;

 lagi :char;

begin

 repeat

 clrscr;

 writeln('            MENU UTAMA           ');

 writeln('---------------------------------');

 writeln(' 1.Hitung Luas Segiiga           ');

 writeln(' 2.Hitung Luas Persegi Panjang   ');

 writeln(' 3.Hitung Luas Persegi           ');

 writeln(' 4.Hitung Luas Lingkaran         ');

 writeln('---------------------------------');

 write('Masukan Nomor Pilihan(1-2-3-4)  : ');readln(pilih);

case pilih of

 1:Segitiga;

 2:p_panjang;

 3:persegi;

 4:lingkaran;

end;

write('Menghitung lagi???(Y/N) : ');readln(lagi);

until upcase(lagi)<>'Y';

end.

2.output