Contoh Program Pascal untuk Latihan Menjadi Programming – Agar dapat mempelajari berbagai macam pemrograman, Anda tentunya harus sering latihan dan mempraktekkan. Anda dapat mempraktekkan memakai editor yang mendukung bahasa pemrograman itu. Juga ada beberapa bahasa pemrograman yang didukung oleh banyak jenis sistem operasi komputer yang dipakai oleh banyak orang.
Salah satunya yaitu bahasa pemrograman yang paling sering dipakai oleh para programer adalah bahasa pemrograman Pascal. Pacal merupakan bahasa pemrograman yang dibuat oleh Prof. Niklaus Wirth, yakni anggota IFIP (International Federation of Information Processing, pada tahun 1971 serta tergolong dalam tingkatan bahasa pemrograman yang tinggi.
Contoh Program Pascal untuk Latihan Menjadi Programming
Nama Pascal sendiri terinspirasi dari nama matematikawan Perancis yang pertama kali menciptakan mesin penghitung yakni Blaise Pascal. Kelebihan dan kekurangan dari bahasa pemrograman generasi ke 4 juga dimiliki oleh bahasa pemrograman ini.
Oleh sebab itu dalam pembahasan ini Galerinfo akan memberikan beberapa Contoh Program Pascal yang dapat menjadi bahan untuk Anda berlatih.
Contoh Pemrograman Dalam Menghitung Luas Persegi Panjang
Berikut ini adalah bentuk dari contoh pemrograman untuk menghitung luas persegi panjang, antara lain:
program Luas_Persegi_Panjang;
uses crt;
var
lebar : real;
panjang : 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 Program Pascal 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 Anda benar.’)
else
writeln(‘Maaf, tebakan Anda salah.’)
end.
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.
Program Pascal ‘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 Program Pascal 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 dalam per minggunya yaitu : ‘,hasil,’ maksudnya Anda merupakan orang yang irit’)
else
writeln(‘sisa uang saku Anda dalam per minggunya yaitu : ‘,hasil,’ maksudnya Anda merupakan orang yang boros’);
end.
Contoh Untuk 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 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 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 Program 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 Program 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 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.
Demikian penjelasan mengenai Contoh Program Pascal untuk Latihan Menjadi Programming, semoga dapat bermanfaat dan menambah wawasan Anda.
