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