Program Pascal Menghitung Luas Bangun datar

PROGRAM UTUH;

USES CRT;

FUNCTION PERSEGIP(P,L:INTEGER):INTEGER;

BEGIN

PERSEGIP:=P*L;

END;

FUNCTION PERSEGI(S:INTEGER):INTEGER;

BEGIN

PERSEGI:=S*S;

END;

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

BEGIN

SEGITIGA:=ALAS*TINGGI/2;

END;

FUNCTION LINGKARAN(R:REAL):REAL;

CONST PHI=3.14;

BEGIN

LINGKARAN:=PHI*R*R;

END;

FUNCTION TRAPESIUM(A,B,T:REAL):REAL;

BEGIN

TRAPESIUM:=(A+B)*T/2;

END;

FUNCTION JAJARGENJANG(ALS,TNG:REAL):REAL;

BEGIN

JAJARGENJANG:=ALS*TNG;

END;

FUNCTION BELAHKETUPAT(D1,D2:REAL):REAL;

BEGIN

BELAHKETUPAT:=D1*D2;

END;

FUNCTION LAYANG(DI1,DI2:REAL):REAL;

BEGIN

LAYANG:=DI1*DI2/2;

END;

PROCEDURE MENU;

BEGIN

GOTOXY(15,8);WRITE('AYO BELAJAR LUAS BANGUN DATAR');

GOTOXY(15,9);WRITE('-----------------------------');

GOTOXY(15,10);WRITE('1. LUAS PERSEGI PANJANG');

GOTOXY(15,11);WRITE('2. LUAS PERSEGI');

GOTOXY(15,12);WRITE('3. LUAS SEGITIGA');

GOTOXY(15,13);WRITE('4. LUAS LINGKARAN');

GOTOXY(15,14);WRITE('5. LUAS TRAPESIUM');

GOTOXY(15,15);WRITE('6. LUAS JAJARAN GENJANG');

GOTOXY(15,16);WRITE('7. LUAS BELAH KETUPAT');

GOTOXY(15,17);WRITE('8. LUAS LAYANG-LAYANG');

GOTOXY(15,18);WRITE('9. KELUAR');

GOTOXY(15,19);WRITE('------------------------------');

END;

VAR

    PANJANG,LEBAR,SISI,ALA,TING:INTEGER;

    JARI,SISI1,SISI2,AL,TG,DIA1,DIA2:REAL;

    PILIH:CHAR;

BEGIN

CLRSCR;

MENU;

GOTOXY(15,20);WRITE('TENTUKAN PILIHAN NO. : ');READLN(PILIH);

CASE PILIH OF

'1':BEGIN

         CLRSCR;

         GOTOXY(15,10);WRITE('PANJANG : ');READLN(PANJANG);

         GOTOXY(15,11);WRITE('LEBAR   : ');READLN(LEBAR);

Semoga Bermanfaat 

Baca juga : Program Pascal Perkalian matrik ,  Program Sederhana dengan Visual Basic ,   Program Gaji dengan Clipper