PROCEDUR

PROGRAM PROCEDUR;
USES WINCRT;

{******************* PROSEDUR LUAS PERSEGI PANJANG ***********************}

PROCEDURE LUAS_PERSEGI_PANJANG(PANJANG,LEBAR:INTEGER);

BEGIN
 WRITELN(' MENGHITUNG LUAS PERSEGI PANJANG');
 WRITE(' MASUKKAN PANJANG ');
 READLN(PANJANG);
 WRITE(' MASUKKAN LEBAR   ');
 READLN(LEBAR);
 WRITELN(' LUASNYA ADALAH   ',PANJANG*LEBAR);
END;

{******************* PROSEDUR LUAS LINGKARAN *****************************}

PROCEDURE LUAS_LINGKARAN(RADIUS: REAL);

CONST
 PHI= 3.14;

BEGIN
 WRITELN(' MENGHITUNG LUAS LINGKARAN ');
 WRITE(' MASUKKAN JARI-JARI  ');
 READLN(RADIUS);
 WRITELN (' LUASNYA ADALAH ',0.5 * PHI * RADIUS * RADIUS:6:2);
END;

{******************* PROSEDUR LUAS SEGITIGA *****************************}

PROCEDURE LUAS_SEGITIGA( ALAS,TINGGI:INTEGER);

BEGIN
 WRITELN(' MENGHITUNG LUAS SEGITIGA');
 WRITE(' MASUKKAN ALAS  ');
 READLN(ALAS);
 WRITE(' MASUKKAN TINGGI ');
 READLN(TINGGI);
 WRITELN (' LUASNYA ADALAH ',0.5 * (ALAS * TINGGI):6:2 );
END;

{******************* PROGRAM UTAMA *****************************}

VAR
 PILIHAN,X,Y : INTEGER ;

BEGIN
 WRITELN ;
 WRITELN (' #  #  #  #  PILIHAN  #  #  #  #');
 WRITELN ;
 WRITELN('  1    : PERSEGI PANJANG ');
 WRITELN('  2    : LINGKARAN       ');
 WRITELN('  3    : SEGITIGA        ');

 WRITELN(' MASUKKAN PILIHAN         ');

 READLN(PILIHAN);
 CLRSCR;

 CASE PILIHAN OF
     1       : LUAS_PERSEGI_PANJANG(X,Y);
     2       : LUAS_LINGKARAN(X);
     3       : LUAS_SEGITIGA(X,Y);
  ELSE
   WRITELN('PILIHAN SALAH');

 END;
END.