Contoh Program Pascal Untuk Anda Pelajari

Contoh Program Pascal

Contoh Program Pascal – Berikut ini Gameboxx.me akan menyajikan materinya silahkan dibaca.

Contoh Program Pascal Untuk Anda Pelajari

Contents

Ketika Anda ingin belajar tentang berbagai macam bahasa pemrograman, maka Anda harus sering melakukannya. Karena untuk membiasakan bahasa pemrograman adalah dengan sering-sering mencoba. Ada banyak sekali bahasa pemrograman yang tersebar di dunia dan digunakan banyak orang. Salah satunya adalah Pascal. Ada banyak contoh program Pascal.

Sebelum mengetahui apa saja contohnya, sekedar informasi, bahasa pemrograman ini diciptakan oleh Niklaus Wirth. Ia adalah anggota dari IFIP atau International Federation of Information Processing. Bahasa Pascal ini dibuat tahun 1971 dan menjadi salah satu bahasa tingkat tinggi. Pemberian nama dari bahasa ini diambil dari seorang ahli matematika dari Perancis, Blaise Pascal.

10 Contoh Program Pascal

10 Contoh Program Pascal

  1. Program Pascal untuk Pertanyaan Apakah Kita Boros atau Irit?

Program Pascal untuk Pertanyaan Apakah Kita Boros atau Irit

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.

  1. Menghitung Gaji Anda

Menghitung Gaji Anda

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.

  1. Program untuk “If_Kombinasi”

Program untuk If Kombinasi

program IfKombinasi;

Baca Juga  Mlive Mod Apk Buka Room Yang Di Kunci Gembok Gratis

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.

  1. Tebak-tebakan Angka

Tebak-tebakan 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(‘Bego lu!, tebakan kamu salah.’)

end.

  1. Counting Seconds and Minutes

Counting Seconds and Minutes

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.

  1. Kalkulator

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.

  1. Kuadrat

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.

  1. Hitung Luas Dari Persegi Panjang

Hitung Luas Dari 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’,’ |’);

Baca Juga  Cara Meluruskan Hasil Scan yang Miring di PDF Secara Online

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.

  1. “If Bercabang”

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.

  1. Data Pegawai

Data Pegawai

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.

Selain 10 contoh program Pascal di atas, ada juga beberapa contoh lain untuk konversi dari desimal ke biner, mencari predikat, dan lain sebagainya. Bahasa ini awalnya terlihat cukup rumit, tapi kalau Anda sudah mengetahui kuncinya, akan terasa jauh lebih mudah.

Baca Juga  Bahasa Pemograman Populer untuk Dikuasai
Contoh Program Pascal
Contoh Program Pascal

Demikian beberapa contoh program Pascal – yang telah kami sampaikan, dan masih ada juga contoh yang lain. Semoga uraian ini bisa anda pelajari serta bermanfaat.