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