Halo semua, hari ini saya coba-coba membuat program untuk menghitung Luas dari bentuk-bentuk 2D. Yah semoga saja bermanfaat bagi kalian dan bagi adik-adik yang membutuhkan program untuk menghitung Luas-luas. Program ini saya buat dari pascal dan ini sebenarnya adalah sebuah soal dari kampus. Semoga tidak salah ya. :D
PROGRAM LUAS;
USES CRT;
PROCEDURE MENU;
BEGIN
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('=============================');
END;
PROCEDURE PP (P,L:REAL; VAR LS : REAL);
BEGIN
LS:=P*L;
END;
PROCEDURE P (P,L:REAL; VAR LS : REAL);
BEGIN
LS:=P*P;
END;
PROCEDURE ST (A,T:REAL; VAR LS : REAL);
BEGIN
LS:=(A*T)/2;
END;
PROCEDURE L (R:REAL; VAR LS : REAL);
BEGIN
LS:=3.14*R*R;
END;
PROCEDURE TRA (P1,P2,T:REAL; VAR LS : REAL);
BEGIN
LS:=(T*(P1+P2))/2;
END;
PROCEDURE JG (P1,T:REAL; VAR LS : REAL);
BEGIN
LS:=P1*T;
END;
PROCEDURE BK (P,L:REAL; VAR LS : REAL);
BEGIN
LS:=(P*L)/2;
END;
PROCEDURE LL (D1,D2:REAL; VAR LS : REAL);
BEGIN
LS:=(D1*D2)/2;
END;
{PROGRAM UTAMA}
VAR
JAWAB : CHAR;
LUAS,ANGKA1,ANGKA2,ANGKA3 : REAL;
BEGIN
CLRSCR;
REPEAT
CLRSCR;
MENU;
TEXTCOLOR(14);GOTOXY(25,16);
WRITE('PILIHAN ANDA : ');READLN(JAWAB);TEXTCOLOR(9);
IF JAWAB='1' THEN
BEGIN
GOTOXY(25,18);WRITE('MASUKKAN PANJANG : ');READLN(ANGKA1);
GOTOXY(25,19);WRITE('MASUKKAN LEBAR : ');READLN(ANGKA2);
PP(ANGKA1,ANGKA2,LUAS);
GOTOXY(25,20);WRITE('LUAS : ',LUAS:2:2);
READLN;
END;
IF JAWAB='2' THEN
BEGIN
GOTOXY(25,18);WRITE('MASUKKAN SISI : ');READLN(ANGKA1);
P(ANGKA1,ANGKA1,LUAS);
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);
ST(ANGKA1,ANGKA2,LUAS);
GOTOXY(25,20);WRITE('LUAS : ',LUAS:2:2);
READLN;
END;
IF JAWAB='4' THEN
BEGIN
GOTOXY(25,18);WRITE('MASUKKAN JARI-JARI : ');READLN(ANGKA1);
L(ANGKA1,LUAS);
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);
TRA(ANGKA1,ANGKA2,ANGKA3,LUAS);
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);
JG(ANGKA1,ANGKA2,LUAS);
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);
BK(ANGKA1,ANGKA2,LUAS);
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);
BK(ANGKA1,ANGKA2,LUAS);
GOTOXY(25,20);WRITE('LUAS : ',LUAS:2:2);
READLN;
END;
UNTIL JAWAB='9';
END.
Tidak ada komentar:
Posting Komentar
Kasih komentar yah friends....