Contoh Program Pascal untuk Latihan Menjadi Programming

3 min read

Contoh Program Pascal untuk Latihan Menjadi Programming

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

Contoh Program Pascal untuk Latihan Menjadi Programming

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

Baca Juga:  Cara Memperbaiki Hardisk Eksternal yang Tidak Terbaca Lengkap

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;

Baca Juga:  Cara Mengatasi Blue Screen Windows Pada PC dan Laptop

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’);

Baca Juga:  Fungsi Keyboard : Pengertian, Fungsi Beserta Jenisnya

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.