Minggu, 03 Juni 2012

FUNGSI

PROGRAM PROCEDUR;
USES WINCRT;

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

FUNCTION LUAS_PERSEGI_PANJANG(PANJANG,LEBAR:INTEGER):INTEGER ;

BEGIN
 WRITELN(' MENGHITUNG LUAS PERSEGI PANJANG');
 WRITE(' MASUKKAN PANJANG ');
 READLN(PANJANG);
 WRITE(' MASUKKAN LEBAR   ');
 READLN(LEBAR);
 LUAS_PERSEGI_PANJANG :=PANJANG*LEBAR;
END;

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

FUNCTION LUAS_LINGKARAN(RADIUS: REAL):REAL;

CONST
 PHI= 3.14;

BEGIN
 WRITELN(' MENGHITUNG LUAS LINGKARAN ');
 WRITE(' MASUKKAN JARI-JARI  ');
 READLN(RADIUS);
 LUAS_LINGKARAN:= 0.5 * PHI * RADIUS * RADIUS;
END;

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

FUNCTION LUAS_SEGITIGA( ALAS,TINGGI:INTEGER):REAL;

BEGIN
 WRITELN(' MENGHITUNG LUAS SEGITIGA');
 WRITE(' MASUKKAN ALAS  ');
 READLN(ALAS);
 WRITE(' MASUKKAN TINGGI ');
 READLN(TINGGI);
 LUAS_SEGITIGA:= 0.5 * (ALAS * TINGGI);
END;

{******************* PROSEDUR PANGKAT *****************************}

FUNCTION PANGKAT(N: INTEGER):INTEGER;

BEGIN
 WRITELN(' MENGHITUNG PANGKAT ');
 WRITE(' MASUKKAN ANGKA  ');
 READLN(N);
 PANGKAT:= N * N;
END;

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

VAR
 PILIHAN,X,Y,Z : INTEGER ;

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

 WRITELN(' MASUKKAN PILIHAN         ');

 READLN(PILIHAN);
 CLRSCR;

 CASE PILIHAN OF
     1       : BEGIN
               Z:= LUAS_PERSEGI_PANJANG(X,Y);
               WRITELN(' LUASNYA ADALAH ',Z);
               END;
     2       : WRITELN(LUAS_LINGKARAN(X):6:2);

     3       : WRITELN(LUAS_SEGITIGA(X,Y):6:2);
     4       : WRITELN(PANGKAT(X));

  ELSE
   WRITELN('PILIHAN SALAH');

 END;
END.

Tidak ada komentar:

Posting Komentar