2019 ~ Yahya share ilmu

Berikut Daftar 10 Contoh Program Dasar Menggunakan Pascal :

1. Pascal Program bagi pemula dengan struktur biasa

Program Contoh_Awal;
Uses CRT;
Var i,j,k : integer;
Begin
ClrScr;
Write(‘masukkan nilai i dan j : ‘);
Readln(i,j);
k:=i+j;
Writeln(‘nilai k : ‘,k);
Readln;
End.

2. Pascal Program bagi pemula dengan struktur biasa
Program ContohInteger;
Uses CRT;
Var y : Integer;
p : Real;
X : Real;
Begin
y := 5;
p := 6;
x := y + p;
Writeln(‘Nilai X adalah :’,x:4:1);
End.

3. Pascal Program untuk menginput sejumlah variabel dan menampilkannya

Program Contoh_Variabel;
Uses crt;
Var
Nama : string[15];
Jumlah,harga : Longint;
Nilai : real;
Begin
ClrScr;
{Memasukkan data}
Nama:=’Semen';
jumlah:=10;
harga :=250000;
Nilai :=Harga * Jumlah ;
{Menampilkan Data yang Telah Diproses}
writeln(‘Nama Barang:’,Nama);
writeln(‘Jumlah:’,Jumlah);
writeln(‘Harga:’,Harga);
writeln(‘Nilai Barang:’,Nilai);
Readln;
end.

4. Pascal Program untuk mengolah variabel

(* Variable dan Konstanta *)
Program Contoh_2a;
Uses CRT;
Const phi = 3.14;
Var x : Integer;
y : Real;
Begin
ClrScr;
x := 5;
y := x * phi;
Writeln(‘Nilai y = ‘, y:5:2);
Readln;
End.

5. Pascal Program untuk mengolah variabel, konstanta dengan model lain

Program Contoh_2b;
Uses CRT;
Const phi = 3.14;
Var x : Integer;
y : Real;
Begin
ClrScr;
Write(‘Masukkan Harga x =’);
Readln(x);
y := x * phi;
Writeln(‘Nilai y = ‘, y:10:2);
Readln;
End.

6. Pascal Program untuk mengolah data dengan type

{ Deklarasi Type }
Program Contoh_3a;
Uses CRT;
Type bulat = Integer;
pecahan = Real;
var x : bulat;
y : pecahan;
Begin
clrscr;
Write(‘Harga x : ‘); Readln(x);
Write(‘Harga y : ‘); Readln(y);
Writeln(‘Nilai x : ‘,x:3);
Writeln(‘Harga y : ‘,y:3:0);
Readln;
End.

7. Pascal Program untuk mengolah data dengan type

{ Deklarasi Type }
Program Contoh_3b;
Uses CRT;
Type bulat = Integer;
pecahan = Real;
var x : bulat;
y : pecahan;
Label Ulang;
Begin
Ulang:
clrscr;
Write(‘Harga x : ‘); Readln(x);
Write(‘Harga y : ‘); Readln(y);
Writeln(‘Nilai x : ‘,x:3);
Writeln(‘Harga y : ‘,y:3:0);
readln;
Goto Ulang;
End.

8. Pascal Program membandingkan 2 variabel

Program Banding;
Uses CRT;
Var a, b : Integer;

Begin
ClrScr;
read(a);
read(b);
if (a >b) then
Writeln(‘Bilangan A terbesar’)
else
Writeln(‘Bilangan B terbesar’);
end.

9. Pascal Program membandingkan 3 variabel

Program BanVar2;
Uses CRT;
Var a, b, c : Integer;

Begin
write(‘Masukkan bilangan A :’); readln(A);
write(‘Masukkan bilangan B :’); readln(B);
write(‘Masukkan bilangan C :’); readln(C);

if (a>b) then
if (a>c) then
Writeln(‘Bilangan A terbesar’)
else
Writeln(‘Bilangan C terbesar’)
else
if (b>c) then
Writeln(‘Bilangan B terbesar’)
else
Writeln(‘Bilangan C terbesar’);
End.

10. Pascal Program membandingkan 3 variabel model lain

Program BanVar2;
Uses CRT;
Var a, b, c : Integer;

Begin
write(‘Masukkan bilangan A :’); readln(A);
write(‘Masukkan bilangan B :’); readln(B);
write(‘Masukkan bilangan C :’); readln(C);

if (a>b) then
if (a>c) then
begin
Writeln(‘Bilangan A terbesar’);
if (b>c) then
Writeln(‘Bilangan C terkecil’)
else
Writeln(‘Bilangan B terkecil’);
End
else
begin
Writeln(‘Bilangan C terbesar’);
Writeln(‘Bilangan B terkecil’);
end
else
if (b>c) then
begin
Writeln(‘Bilangan B terbesar’);
if (a>c) then
Writeln(‘Bilangan C terkecil’)
else
Writeln(‘Bilangan A terkecil’);
end
else
begin
Writeln(‘Bilangan C terbesar’);
Writeln(‘Bilangan A terkecil’);
end;
End.

Pada artikel kali ini, kami akan memberikan beberapa contoh program pascal yang bisa menjadi bahan latihan Anda. Daripada lama-lama, yuk disimak contoh-contohnya di bawah ini:

Contoh 1: Apakah Anda irit atau boros?

program Irit_Boros;
uses crt;
var
saku, peng, hasil : integer;

begin
write(‘Jumlah uang saku Anda per minggu : ‘); readln(saku);
write(‘Pengeluaran Anda per minggu : ‘); readln(peng);
hasil:=saku-peng;
if hasil>=peng then
writeln(‘sisa uang saku Anda per minggunya adalah : ‘,hasil,’ artinya Anda adalah orang yang irit’)
else
writeln(‘sisa uang saku Anda per minggunya adalah : ‘,hasil,’ artinya Anda adalah orang yang boros’);
end.

Contoh 2: Contoh program Pascal untuk Menghitung Gaji

program hitung_gaji;
uses crt;

var
nama_karyawan:string;
alamat:string;
gaji_pokok,tunjangan,pajak,gaji_bersih:comp;

begin
writeln(‘menghitung gaji bersih karyawan’);
write (‘nama karyawan:’);readln(nama_karyawan);
write (‘alamat:’);readln(alamat);
write (‘gaji pokok:’);readln(gaji_pokok);
tunjangan:=0.15 * gaji_pokok;
pajak:=0.075 * gaji_pokok;
gaji_bersih:=gaji_pokok+tunjangan-pajak;
writeln(nama_karyawan);
writeln(‘gaji pokok Anda adalah’,gaji_pokok);
writeln(‘tunjangan Anda sebesar’,tunjangan);
writeln(‘pajak penghasilan Anda sebesar’,pajak);
writeln(‘maka gaji bersih Anda adalah’,gaji_bersih);
end.

Contoh 3: Program “If_Kombinasi”

program IfKombinasi;

uses crt;

var
angka1,angka2 : integer;

begin
writeln(‘Masukkan angka pertama: ‘); readln(angka1);
writeln(‘Masukkan angka kedua: ‘); readln(angka2);
if {not} (angka1>3) and {or} (angka2>4) then
begin
writeln(‘Anda memasukkan nilai angka pertama > 3 dan kedua > 4’);
end
end.

Contoh 4: Program Tebak Angka

program Tebak_Angka;

uses crt;

var
angka,tebakan : integer;

begin
clrscr;
angka:= 2;
writeln(‘Coba tebak angka antara 1 sampai 10’); readln(tebakan);
if angka = tebakan then
writeln(‘Selamat!, tebakan kamu benar.’)
else
writeln(‘Wakwawww, tebakan kamu salah.’)
end.

Contoh 5: Program Menghitung Detik Menit

program JamKeMenit;

uses crt;

var
jam, menit,i,hasil,dtk,hasildtk : integer;

begin
clrscr;
write(‘Masukkan Nilai Jam : ‘); readln(jam);
i:=60;
dtk:=3600;
if jam =1 then
begin
hasil:=jam*i;
hasildtk:=jam*dtk;
writeln(jam, ‘ jam sama dengan ‘,hasil,’ menit dan ‘, hasildtk, ‘ detik’);
end
else
begin
hasil:=jam*60;
hasildtk:=jam*dtk;
writeln(jam,’ jam sama dengan ‘,hasil, ‘ menit dan ‘, hasildtk, ‘ detik’);
end;
end.

Contoh 6: Program Kalkulator

Program Kalkulatia;
uses crt;

var angka1,angka2,hasil:real,2;
operasi:char;

begin
clrscr;
writeln(‘KALKULATOR’);
writeln(‘===================’);
write(‘Input Angka Pertama : ‘); readln(angka1);
write(‘Operasi yang dilakukan(+,-,/,*) : ‘); readln(operasi);
write(‘Input Angka Kedua: ‘); readln(angka2);
case operasi of
‘+’: hasil :=angka1+angka2;
‘-‘: hasil :=angka1-angka2;
‘*’: hasil :=angka1*angka2;
‘/’: hasil :=angka1/angka2;
end;
writeln(‘Hasil dari ‘,angka1,’ ‘, operasi,’ ‘, angka2, ‘ = ‘,’ ‘, hasil);
end.

Contoh 7: Pangkat Kuadrat

program pangkat_kuadrat;
uses crt;

var
bil : integer;

function pangkat2(b: integer) : integer;
var
hasil : integer; {hasil sebagai variabel lokal}

begin
hasil := b *b;
pangkat2 := hasil;
end;

{bagian prog.utama}
begin
clrscr;
write(‘masukan bilangan bulat : ‘); readln(bil);
write(‘hasil pangkatnya adalah ‘, pangkat2(bil));
readkey;
end.

Contoh 8: Menghitung Luas Persegi Panjang

program Luas_Persegi_Panjang;

uses crt;

var
panjang : real;
lebar : real;
luas : real;

begin
clrscr;
writeln(‘===================================’);
writeln(‘| ‘,’Program untuk Menghitung Luas Persegi Panjang’,’ |’);
WRITELN(”);
writeln(‘| ‘,’Rumus : Panjang x Lebar (p x l)’,’ |’);
writeln(‘===================================’);
writeln(”);
write(‘Nilai Panjang: ‘); readln(panjang);
write(‘Nilai Lebar: ‘); readln(lebar);
Writeln(‘Rumus Luas: Panjang x Lebar (p x l)’);
luas :=panjang*lebar;
writeln(”);
writeln(‘=============================’);
writeln(‘| ‘,’Jadi p x l = ‘,panjang:0:1,’ x ‘,lebar :0:1);
writeln(‘==============================’);
writeln(luas:0:1);
end.

Contoh 9: Contoh program Pascal “If Bercabang”

program NeastedIf;
uses crt;

var
A,B,C : integer;

begin
clrscr;
writeln (‘Masukkan tiga angka dengan spasi’); readln(A, B, C);
if A >= B then
begin
if A >= C then
writeln (A, ‘ adalah nilai terbesar’)
else
writeln (C, ‘ adalah nilai terbesar’)
end
else if B >= C then

begin
if B >= C then
writeln (B, ‘ adalah nilai terbesar’)
else
writeln (C, ‘ adalah nilai terbesar’)
end
else if C >= A or B then
writeln(C, ‘ adalah nilai terbesar’);
end.

Contoh 10: Program Data Kepegawaian

program data_pegawai;
uses crt;

var
gajipokok, gajibersih, tunjangan1, tunjangan2, tunjangan3, tunjangan4 :real;
status :char;
nama, alamat :string[30];
jumlah :integer;

begin
clrscr;
write(‘Nama : ‘); readln(nama);
write(‘Alamat : ‘); readln(nama);
write(‘Gaji pokok : Rp ‘); readln(gajipokok);
write(‘Status D:menikah, S:belum menikah : ‘); readln(status);
write(‘Jumlah anak : ‘); readln(jumlah);
if (status = ‘D’) then
if(jumlah <= 3) then begin
tunjangan1 :=(5 * gajipokok) / 100;
tunjangan2 :=(2 * gajipokok * jumlah) / 100;
gajibersih := gajipokok + tunjangan1 + tunjangan2;
writeln(‘tunjangan suami/istri : Rp ‘,tunjangan1:0:0);
writeln(‘tunjangan anak : Rp ‘,tunjangan2:0:0);
writeln(‘gaji bersih : Rp ‘,gajibersih:0:0);
end
else
begin
tunjangan1 :=(5 * gajipokok) / 100;
tunjangan2 :=(2 * gajipokok * 3) / 100;
tunjangan3 :=(3 * gajipokok * (jumlah – 3)) / 100;
tunjangan4 :=tunjangan2 + tunjangan3;
gajibersih :=gajipokok + tunjangan1 + tunjangan4;
writeln(‘tunjangan suami/istri : Rp ‘,tunjangan1:0:0);
writeln(‘tunjangan anak : Rp ‘,tunjangan4:0:0);
writeln(‘Gaji bersih : Rp ‘,gajibersih:0:0);
writeln(‘Terima Kasih’);
end
else
writeln(‘gajibersih : Rp ‘,gajipokok:0:0);
readkey;
end.

Contoh 11: Menentukan Bilangan Ganjil atau Genap

program GanjilGenap;
uses crt;

var
angka :integer;

begin
clrscr;
writeln(‘Status Bilangan’);
writeln(‘===============’);
write(‘Masukkan Bilangan: ‘); readln(angka);
if angka < 0 then
begin
if angka mod 2 = 0 then
writeln(‘Status Bilangan : GENAP = NEGATIF’)
else
writeln(‘Status Bilangan : GANJIL = NEGATIF’)
end
else
begin
if angka mod 2 = 0 then
writeln(‘Status Bilangan : GENAP = POSITIF’)
else
writeln(‘Status Bilangan : GANJIL = POSITIF’)
end;
end.

Contoh 12: Game Tebak-Tebakan

program Game_Tebak;
uses crt;
var
pilih : integer;
tebak1, tebak2, tebak3 : string ;

begin
clrscr;
writeln(‘=======================================’);
writeln(‘|’,’ SELAMAT DATANG DI GAME TEBAK ASAL’,’|’);
writeln(‘=======================================’);
writeln(”);
writeln(‘*’,’PILIH KATEGORINYA ‘,’*’);
writeln(‘1. Mudah’);
writeln(‘2. Sedang’);
writeln(‘3. Sulit’);
writeln(‘———————–‘);
writeln(”);
write(‘Mau pilih kategori yang mana nih? 1,2, atau 3 : ‘); readln(pilih);

case pilih of
1 :
begin
writeln(‘===========================’);
writeln(‘| ‘,’Kategori Mudah’,’|’);
writeln(‘===========================’);
write(‘Soal Tebak : Siapakah grup band yang ga pernah memihak?’); readln(tebak1);
if tebak1=’netral’ then
writeln(‘Tebakan kamu Bener’)
else
writeln(‘Tebakan kamu Salah, jawabannya adalah Netral’);
end;

2 :
begin
writeln(‘===========================’);
writeln(‘| ‘,’Kategori Sedang’,’ |’);
writeln(‘===========================’);
write(‘Soal Tebak : Bidadari-bidadari, kalo tanpa dada jadi apa? ‘); readln(tebak2);
if tebak2=’biri biri’ then
writeln(‘Tebakan kamu Bener. Berarti pikiran kamu ga ngeres’)
else
writeln(‘Tebakan kamu Salah, jawabannya biri biri. Kamu tadi mikir yang nggak-nggak yah??’);
end;

3 :
begin
writeln(‘============================’);
writeln(‘| ‘,’Kategori Sulit’, ‘ |’);
writeln(‘============================’);
write(‘Soal Tebak : Siapakah mantan dari penulis artikel ini? ‘); readln(tebak3);
if tebak3=’MaafKurangBeruntung’ then
writeln(‘Tebakan kamu Bener. Kok kamu tahu sih?’)
else
writeln(‘Tebakan kamu Salah, coba deh tanya pacar kamu. Siapa tau dia mantan si penulis wkwkwk’);
end;
end;
end.

Contoh 13: Program untuk Menentukan Usia

program menghitung_usia
uses wincrt;

var
nama : string;
umur,TL:integer;

begin
writeln(‘nama kamu siapa?’);readln(nama);
writeln(‘tahun lahir kamu?’);readln(TL);

umur:=2018-TL;
writeln(umur);
readkey;
end.

Contoh 14: Penentuan Harga Buah berdasarkan Kualitas

uses crt;

Var
Berat,harga,hargaperkg:integer;
Kualitas:char;

Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg yang dibeli? ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.

Contoh 15: Program untuk Menghitung Luas Segitiga

uses crt;

var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);

var
luas:real;

begin
clrscr;
luas:=a*t/2;
writeln(‘Luas segitiga =’,luas);
end;

begin
writeln(‘Masukkan ukuran alas =’);readln(alas);
writeln(‘Masukkan ukuran tinggi =’);readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.

Contoh 16: Membuat file .txt menggunakan Pascal

uses crt;

var
Tulisan:text;
a,b:byte;
c:byte;

begin
clrscr;
writeln(‘Masukkan angka pertama =’);readln(a);
writeln(‘Masukkan angka kedua =’);readln(b);
c:=a+b;
writeln(‘Jika dijumlahkan, nilainya adalah =’,c);
assign(Tulisan,’hitung.txt’);
rewrite(Tulisan);
write(tulisan,a);
write(Tulisan,’+’);
write(Tulisan,b);
write(Tulisan,’=’);
write(Tulisan,c);
Close(Tulisan);
readln;
end.

Contoh 17: Program untuk Menentukan Biaya Dan Grade

uses crt;

var
nilai:byte;

begin
clrscr;
Write(‘masukkan nilai =’);Readln(nilai);
if nilai>0 then
begin
Writeln(‘GRADE = O ‘);
Writeln(‘Besar biaya = Rp.550000’);
end
else
if nilai<=1 then begin Writeln(‘GRADE = E ‘);
Writeln(‘Besar biaya = Rp.450000’);
end else if nilai<=40 then begin Writeln(‘GRADE = D’);
Writeln(‘Besar biaya = Rp.350000’); end else if nilai<=60 then begin Writeln(‘GRADE = C’);
Writeln(‘Besar biaya = Rp.250000’); end Else if nilai<=70 then begin Writeln(‘GRADE = B’); Writeln(‘Besar biaya = Rp.150000’); end else begin If nilai >=100 then Writeln(‘GRADE = A’);
Writeln(‘Besar biaya = Rp.50000’);
end;
readln;
end.

Contoh 18: Program untuk Mencari Predikat

uses crt;

Var
nilai:byte;
A,B,C,D:string;

begin
clrscr;
write (‘masukkan nilai=’);readln(nilai);
if nilai< 69 then
writeln(‘predikat D’);
if nilai<79then
writeln (‘predikat C’);
if nilai<90 then
writeln (‘predikat B’);
if nilai<101 then
writeln(‘predikat A’);
readln;
end.

Contoh 19: Program konversi bilangan desimal ke bilangan biner

uses crt;

var Des:integer;
Bin:string;

begin
clrscr;
writeln(‘PROGRAM KONVERSI BILANGAN DESIMAL KE BILANGAN BINER’);
write(‘Masukkan bilangan Desimal=’);
readln(Des);
Bin:=’’;
repeat
begin
{menghitung biner dari hasil bagi}

If Des mod 2=0 then Bin:=’0’+Bin
else Bin:=’1’+Bin;

{membagi bulat bilangan desimal}

Des:= Des div 2;
end;
Until Des=0;
Writeln(‘Bilangan Biner =’,Bin);
readln;
end.