17 Contoh Program Pascal untuk Latihan Programming


Untuk mempelajari macam-macam bahasa pemrograman, Anda harus sering-sering latihan dan mempraktekkannya. Anda bisa mempraktekannya menggunakan editor yang mendukung bahasa pemrograman tersebut. Bahkan, ada beberapa bahasa pemrograman yang didukung oleh banyak jenis sistem operasi komputer yang dipakai oleh banyak orang.

Salah satu bahasa pemrograman yang sering digunakan oleh programmer adalah bahasa pemrograman Pascal. Pascal adalah bahasa pemrograman yang dibuat oleh Prof. Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971 dan termasuk ke dalam tingkatan bahasa pemrograman yang tinggi. Nama Pascal sendiri terinspirasi dari nama matematikawan Perancis yang pertama kali menciptakan mesin penghitung, yaitu Blaise Pascal. Kelebihan dan kekurangan bahasa pemrograman generasi ke-4 juga dimiliki oleh bahasa pemrograman ini.

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.

googletag.cmd.push(function() { googletag.display(‘div-gpt-ad-1495635998525-2’); });

  • 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.

googletag.cmd.push(function() { googletag.display(‘div-gpt-ad-1495635998525-1’); });

  • 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.

googletag.cmd.push(function() { googletag.display(‘div-gpt-ad-1495635998525-3’); });

  • 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.

Sekian artikel kami kali ini seputar contoh program Pascal. Semoga semua contoh yang telah kami berikan dapat membuat Anda memahami tentang bahasa pemrograman Pascal. Jika Anda hendak melihat beberapa contoh algoritma dasar, simak contoh algoritma pemrograman dasar yang pernah kami terbitkan di situs ini.