0

Pascal Program Menghitung Luas Dengan Function

Atau program yang tadi kalau dikerjakan dengan menggunakan Function maka mungkin akan seperti ini programnya. Silakan dicoba. Semoga bermanfaat. ^_^
 
PROGRAM LUASS;
USES CRT;
FUNCTION PP(P,L:REAL):REAL;
BEGIN
     PP:=P*L;
END;
FUNCTION P (L:REAL):REAL;
BEGIN
     P:=L*L;
END;
FUNCTION ST (A,T:REAL):REAL;
BEGIN
     ST:=(A*T)/2;
END;
FUNCTION L (R:REAL):REAL;
BEGIN
     L:=3.14*R*R;
END;
FUNCTION TRA (P1,P2,T:REAL): REAL;
BEGIN
     TRA:=(T*(P1+P2))/2;
END;
FUNCTION JG (P1,T:REAL):REAL;
BEGIN
     JG:=P1*T;
END;
FUNCTION BK (P,L:REAL):REAL;
BEGIN
     BK:=(P*L)/2;
END;
FUNCTION LL (D1,D2:REAL):REAL;
BEGIN
     LL:=(D1*D2)/2;
END;
{PROGRAM UTAMA}
VAR
   JAWAB : CHAR;
   LUAS,ANGKA1,ANGKA2,ANGKA3 : REAL;
BEGIN
     CLRSCR;
     REPEAT
           BEGIN
                CLRSCR;
                TEXTCOLOR(11);GOTOXY(25,3);WRITE('==============================');
                TEXTCOLOR(10);GOTOXY(25,4);WRITE('        PROGRAM LUAS');
                TEXTCOLOR(11);GOTOXY(25,5);WRITE('------------------------------');
                TEXTCOLOR(12);GOTOXY(25,6);WRITE('1. LUAS PERSEGI PANJANG');
                TEXTCOLOR(12);GOTOXY(25,7);WRITE('2. LUAS PERSEGI');
                TEXTCOLOR(12);GOTOXY(25,8);WRITE('3. LUAS SEGI TIGA');
                TEXTCOLOR(12);GOTOXY(25,9);WRITE('4. LUAS LINGKARAN');
                TEXTCOLOR(12);GOTOXY(25,10);WRITE('5. LUAS TRAPESIUM');
                TEXTCOLOR(12);GOTOXY(25,11);WRITE('6. LUAS JAJARAN GENJANG');
                TEXTCOLOR(12);GOTOXY(25,12);WRITE('7. LUAS BELAH KETUPAT');
                TEXTCOLOR(12);GOTOXY(25,13);WRITE('8. LUAS LAYANG-LAYANG');
                TEXTCOLOR(12);GOTOXY(25,14);WRITE('9. KELUAR PROGRAM');
                TEXTCOLOR(11);GOTOXY(25,15);WRITE('=============================');
                TEXTCOLOR(11);GOTOXY(25,17);WRITE('=============================');
                TEXTCOLOR(11);GOTOXY(25,22);WRITE('=============================');
                TEXTCOLOR(10);GOTOXY(25,23);WRITE('        BY. AGUSTONO');
                TEXTCOLOR(11);GOTOXY(25,24);WRITE('=============================');
                TEXTCOLOR(14);GOTOXY(25,16);
                WRITE('PILIHAN ANDA : ');READLN(JAWAB);TEXTCOLOR(9);
           END;
     IF JAWAB='1' THEN
        BEGIN
             GOTOXY(25,18);WRITE('MASUKKAN PANJANG : ');READLN(ANGKA1);
             GOTOXY(25,19);WRITE('MASUKKAN LEBAR   : ');READLN(ANGKA2);
             LUAS:=PP(ANGKA1,ANGKA2);
             GOTOXY(25,20);WRITE('LUAS             : ',LUAS:2:2);
             READLN;
        END;
     IF JAWAB='2' THEN
        BEGIN
             GOTOXY(25,18);WRITE('MASUKKAN SISI : ');READLN(ANGKA1);
             LUAS:=P(ANGKA1);
             GOTOXY(25,19);WRITE('LUAS          : ',LUAS:2:2);
             READLN;
        END;
     IF JAWAB='3' THEN
        BEGIN
             GOTOXY(25,18);WRITE('MASUKKAN ALAS   : ');READLN(ANGKA1);
             GOTOXY(25,19);WRITE('MASUKKAN TINGGI : ');READLN(ANGKA2);
             LUAS:=ST(ANGKA1,ANGKA2);
             GOTOXY(25,20);WRITE('LUAS            : ',LUAS:2:2);
             READLN;
        END;
     IF JAWAB='4' THEN
        BEGIN
             GOTOXY(25,18);WRITE('MASUKKAN JARI-JARI : ');READLN(ANGKA1);
             LUAS:=L(ANGKA1);
             GOTOXY(25,19);WRITE('LUAS               : ',LUAS:2:2);
             READLN;
        END;
     IF JAWAB='5' THEN
        BEGIN
             GOTOXY(25,18);WRITE('MASUKKAN PANJANG1 : ');READLN(ANGKA1);
             GOTOXY(25,19);WRITE('MASUKKAN PANJANG2 : ');READLN(ANGKA2);
             GOTOXY(25,20);WRITE('MASUKKAN TINGGI   : ');READLN(ANGKA3);
             LUAS:=TRA(ANGKA1,ANGKA2,ANGKA3);
             GOTOXY(25,21);WRITE('LUAS              : ',LUAS:2:2);
             READLN;
        END;
     IF JAWAB='6' THEN
        BEGIN
             GOTOXY(25,18);WRITE('MASUKKAN DIAGONAL1 : ');READLN(ANGKA1);
             GOTOXY(25,19);WRITE('MASUKKAN DIAGONAL2 : ');READLN(ANGKA2);
             LUAS:=JG(ANGKA1,ANGKA2);
             GOTOXY(25,20);WRITE('LUAS               : ',LUAS:2:2);
             READLN;
        END;
     IF JAWAB='7' THEN
        BEGIN
             GOTOXY(25,18);WRITE('MASUKKAN DIAGONAL1 : ');READLN(ANGKA1);
             GOTOXY(25,19);WRITE('MASUKKAN DIAGONAL2 : ');READLN(ANGKA2);
             LUAS:=BK(ANGKA1,ANGKA2);
             GOTOXY(25,20);WRITE('LUAS               : ',LUAS:2:2);
             READLN;
        END;
     IF JAWAB='8' THEN
        BEGIN
             GOTOXY(25,18);WRITE('MASUKKAN DIAGONAL1 : ');READLN(ANGKA1);
             GOTOXY(25,19);WRITE('MASUKKAN DIAGONAL2 : ');READLN(ANGKA2);
             LUAS:=LL(ANGKA1,ANGKA2);
             GOTOXY(25,20);WRITE('LUAS               : ',LUAS:2:2);
             READLN;
        END;
     UNTIL JAWAB='9';
END.

Gustono Sugastian

Phasellus facilisis convallis metus, ut imperdiet augue auctor nec. Duis at velit id augue lobortis porta. Sed varius, enim accumsan aliquam tincidunt, tortor urna vulputate quam, eget finibus urna est in augue.

Tidak ada komentar:

Posting Komentar

Kasih komentar yah friends....