CONTOH POGRAM PASCAL

Posted on Updated on

Hiiiiii friendsss. . . . . .

Nyari program pascal yahhh???

Berikut ini ada beberapa program pascal yang masih sangat sederhana, program ini orisinal dari saya. Semoga bias dimengerti, dipahami, dan digunakan. . . . .

Jika belum mempunyai master program pascal versi 7 download disini GRATISSSS!!!

PROGRAM KONVERSI_SUHU_CELCIUS_KE_REAMUR_DAN_FARANHEIT;

USES CRT;

VAR

CELCIUS,REAMUR,FARANHEIT : REAL;

BEGIN

CLRSCR;

WRITE(‘INPUT NILAI CELCIUS : ‘); READLN(CELCIUS);

REAMUR     := 4/5*CELCIUS;

FARANHEIT  := 9/5*CELCIUS+32;

WRITELN(‘REAMURNYA ADALAH : ‘,REAMUR : 4:2 );

WRITELN(‘FARANHEITNYA ADALAH : ‘,FARANHEIT : 4:2 );

READLN;

END.

PROGRAM MENGHITUNG_KELILING_DAN_LUAS_LINGKARAN;

USES CRT;

VAR

KELILING,LUAS,R:REAL;

BEGIN

CLRSCR;

WRITE  (‘INPUT JARI-JARI LINGKARAN:’);READLN(R);

KELILING:=2*3.14*R;

LUAS    :=3.14*R*R;

WRITELN(‘JADI KELILING LINGKARANNYA ADALAH:’,KELILING:4:2);

WRITELN(‘JADI LUAS LINGKARAN ADALAH:’,LUAS:4:2);

READLN;

END.

PROGRAM MENUKAR_NILAI;

USES CRT;

VAR

A,B,C:INTEGER;

BEGIN

CLRSCR;

WRITE(‘INPUT NILAI A:’);READLN(A);

WRITE(‘INPUT NILAI B:’);READLN(B);

C:=A;

A:=B;

B:=C;

WRITELN(‘HASIL A=’, A);

WRITELN(‘HASIL B=’, B);

READLN;

END.

PROGRAM MENGURUT_BILANGAN_TERBESAR;

USES CRT;

VAR

A,B,C:REAL;

BEGIN

CLRSCR;

WRITE(‘INPUT BILANGAN A : ‘);READLN(A);

WRITE(‘IMPUT BILANGAN B : ‘);READLN(B);

WRITE(‘IMPUT BILANGAN C : ‘);READLN(C);

IF(A>B)AND(A>C)THEN

WRITELN(‘A TERBESAR’)

ELSE

IF(B>A)AND(B>C)THEN

WRITELN(‘B TERBESAR’)

ELSE

IF(C>A)AND(C>B)THEN

WRITELN(‘C TERBESAR’)

ELSE

WRITELN(‘A=B=C’);

READLN;

END.

PROGRAM BILANGAN_GENAP_DAN_GANJIL;

USES CRT;

VAR A:INTEGER;

BEGIN

CLRSCR;

WRITE(‘IMPUT BILANGAN A : ‘);READLN(A);

IF(A MOD 2 = 0)THEN

BEGIN

WRITELN(‘—————–‘);

WRITELN(‘BILANGAN A GENAP ‘);

WRITELN(‘—————–‘);

END

ELSE

BEGIN

WRITELN(‘——————‘);

WRITELN(‘BILANGAN A GANJIL ‘);

WRITELN(‘——————‘);

END;

READLN;

END.

PROGRAM MENGHITUNG_LAMA_PERCAKAPAN_DAN_BIAYA_PERCAKAPAN_DITELPON;

USES CRT;

VAR

SELANG,SEBELUM,SETELAH,JAM,MENIT,DETIK,M,

JAMX,MENITX,DETIKX,JAMY,MENITY,DETIKY:LONGINT;

BAYAR : REAL;

CONST

PUL1 = 150;

PUL2 = 5;

BEGIN

CLRSCR;

TEXTCOLOR(RED);

WRITELN(‘”PROGRAM MENGHITUNG LAMA DAN BIAYA PERCAKAPAN DI TELPON”‘);

WRITELN;

TEXTCOLOR(YELLOW);

WRITELN(‘        NAMA       : HESRON TIKU RANTE’);

WRITELN(‘        KELAS      : A’);

WRITELN(‘        NO.STAMBUK : 209 113 124’);

WRITELN;

WRITE(‘MASUKKAN WAKTU MULAI MENELPON   :  JAM   ‘);READLN(JAMY);

WRITE(‘                                   MENIT ‘);READLN(MENITY);

WRITE(‘                                   DETIK ‘);READLN(DETIKY);

WRITE(‘MASUKKAN WAKTU SETELAH MENELPON :  JAM   ‘);READLN(JAMX);

WRITE(‘                                   MENIT ‘);READLN(MENITX);

WRITE(‘                                   DETIK ‘);READLN(DETIKX);

SEBELUM:=(JAMY*3600)+(MENITY*60)+DETIKY;

SETELAH:=(JAMX*3600)+(MENITX*60)+DETIKX;

SELANG :=SETELAH-SEBELUM;

JAM    :=SELANG DIV 3600;

M      :=SELANG MOD 3600;

MENIT  :=M DIV 60;

DETIK  :=M MOD 60;

BAYAR  :=SELANG * PUL1 / PUL2;

TEXTCOLOR(GREEN);

WRITELN;

WRITELN(‘LAMA PERCAKAPAN ANDA          => ‘, JAM ,’ JAM ‘, MENIT ,’ MENIT ‘, DETIK ,’ DETIK’);

WRITELN;

WRITELN(‘BIAYA YANG HARUS ANDA DIBAYAR => RP.’, BAYAR :4:2);

READLN;

END.

PROGRAM LAMPU_LALULINTAS;

USES CRT;

VAR

MERAH,WARNA,KUNING,HIJAU:STRING;

BEGIN

CLRSCR;

WRITE(‘INPUT WARNA LAMPU : ‘);READLN(WARNA);

IF(WARNA=’MERAH’)THEN

BEGIN

WRITELN(‘BERHENTI’)

END

ELSE

IF(WARNA=’HIJAU’)THEN

WRITELN(‘HIJAU’)

ELSE

IF(WARNA=’KUNING’)THEN

WRITELN(‘HATI-HATI’)

ELSE

WRITELN(‘WARNA LAMPU YANG ANDA MASUKKAN SALAH !!!!!!’);

READLN;

END.

USES CRT;

VAR  PERSEN_K,PERSEN_T,PERSEN_M,PERSEN_F : REAL;

K,T,M,F : INTEGER;

NILAI_AKHIR : REAL;

HURUF,PREDIKAT : STRING;

BEGIN

CLRSCR;

WRITE(‘INPUT KEHADIRAN : ‘);READLN(K);

WRITE(‘INPUT TUGAS     : ‘);READLN(T);

WRITE(‘INPUT MID       : ‘);READLN(M);

WRITE(‘INPUT FINAL     : ‘);READLN(F);

PERSEN_K := (K/16*100) * (15/100);

PERSEN_T := T*20/100;

PERSEN_M := M*30/100;

PERSEN_F := F*35/100;

NILAI_AKHIR := PERSEN_K+PERSEN_T+PERSEN_M+PERSEN_F;

IF(NILAI_AKHIR>=80)THEN

BEGIN

HURUF    := ‘A’;

PREDIKAT := ‘MEMUASKAN’;

END

ELSE

IF(NILAI_AKHIR>=60)THEN

BEGIN

HURUF    := ‘B’;

PREDIKAT := ‘BAIK’;

END

ELSE

IF(NILAI_AKHIR>=40)THEN

BEGIN

HURUF    := ‘C’;

PREDIKAT := ‘CUKUP’;

END

ELSE

IF(NILAI_AKHIR>=20)THEN

BEGIN

HURUF    := ‘D’;

PREDIKAT := ‘KURANG’;

END

ELSE

BEGIN

HURUF    := ‘E’;

PREDIKAT := ‘EROR’;

END;

WRITELN(‘NILAI AKHIR = ‘,NILAI_AKHIR:4:2);

WRITELN(‘HURUF = ‘,HURUF);

WRITELN(‘PREDIKATNYA = ‘,PREDIKAT);

READLN;

END.

PROGRAM RUMUS_ABC;

USES CRT;

VAR A,B,C,D,X1,X2:REAL;

BEGIN

CLRSCR;

WRITELN(‘SELAMAT DATANG DI PROGRAM MENGHITUNG X1 DAN X2’);

WRITELN;

WRITE(‘IMPUT NILAI A = ‘);READLN(A);

WRITE(‘IMPUT NILAI B = ‘);READLN(B);

WRITE(‘IMPUT NILAI C = ‘);READLN(C);

D:=SQR (B)-4*A*C;

X1:=-B+SQRT(D) / (2*A);

X2:=-B-SQRT(D) / (2*A);

WRITELN(‘X1 = ‘,X1:6:2);

WRITELN(‘X2 = ‘,X2:6:2);

READLN;

END.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s