Subscribe:

Minggu, 15 April 2012

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);

0 komentar:

Poskan Komentar

Tinggalkan jejak anda...:)