17 Contoh Program Pascal untuk Latihan Programming

Untuk mempelajari macam-macam bahasa asing pemrograman komputer, Anda perlu sering-sering teknik juga mempraktekkannya. Anda mungkin mempraktekannya menggunakan penerbit yang dukungan bahasa asing pemrograman komputer tersebut. Bahkan, ada banyak bahasa asing pemrograman komputer yang didukung melalui tak terhitung jenis tubuh prosedur bedah sistem komputer yang dipakai melalui tak terhitung orang-orang.

Salah satu bahasa asing pemrograman komputer yang secara teratur digunakan melalui programmer adalah bahasa asing pemrograman komputer Pascal. Pascal adalah bahasa asing pemrograman komputer yang dibuat melalui Prof. Niklaus Wirth, seorang peserta International Federation of Information Processing (IFIP) pada tahun 1971 juga menampilkan ke dalam berat tingkatan bahasa asing pemrograman komputer yang ketinggian. Nama Pascal dengan dirinya sendiri terinspirasi berasal dari Akun matematikawan Perancis yang memulai dengan kali menciptakan pembuat sebaliknya, yaitu Blaise Pascal. Kelebihan juga kelangkaan bahasa asing pemrograman komputer produksi ke-4 tambahan dimiliki melalui bahasa asing pemrograman komputer ini.

Pada posting kali ini, perusahaan kita pasti akan memberikan banyak {contoh} sistem pascal yang mungkin akhirnya menjadi bahan aktif teknik Anda. Daripada lama-lama, yuk disimak contoh-contohnya dibawah ini:

  • Contoh 1: Apakah Anda irit atau bahkan boros?

sistem Irit_Boros;
makes use of crt;
var
dompet, peng, hasil akhir : integer;

start
write(‘Jumlah jumlah uang dompet Anda setiap minggu penuh : ‘); readln(dompet);
write(‘Pengeluaran Anda setiap minggu penuh : ‘); readln(peng);
hasil akhir:=saku-peng;
if hasil akhir>=peng then
writeln(‘sisa jumlah uang dompet Anda setiap minggunya adalah : ‘,hasil akhir,’ artinya Anda adalah orang-orang yang irit’)
else
writeln(‘sisa jumlah uang dompet Anda setiap minggunya adalah : ‘,hasil akhir,’ artinya Anda adalah orang-orang yang boros’);
finish.

  • Contoh 2: Contoh sistem Pascal untuk Menghitung Gaji

sistem hitung_gaji;
makes use of crt;

var
nama_karyawan:untai;
menangani:untai;
gaji_pokok,tunjangan,kewajiban pajak,gaji_bersih:comp;

start
writeln(‘menghitung penghasilan jaring pekerja’);
write (‘Akun pekerja:’);readln(nama_karyawan);
write (‘menangani:’);readln(menangani);
write (‘penghasilan pokok:’);readln(gaji_pokok);
tunjangan:=0.15 * gaji_pokok;
kewajiban pajak:=0.075 * gaji_pokok;
gaji_bersih:=gaji_pokok+tunjangan-pajak;
writeln(nama_karyawan);
writeln(‘penghasilan pokok Anda adalah’,gaji_pokok);
writeln(‘tunjangan Anda sebesar’,tunjangan);
writeln(‘kewajiban pajak keuntungan Anda sebesar’,kewajiban pajak);
writeln(‘akibatnya penghasilan jaring Anda adalah’,gaji_bersih);
finish.

  • Contoh 3: Program “If_Kombinasi”

sistem IfKombo;

makes use of crt;

var
angka1,angka2 : integer;

start
writeln(‘Masukkan angka memulai dengan: ‘); readln(angka1);
writeln(‘Masukkan angka ke-2: ‘); readln(angka2);
if {not} (angka1>3) and {or} (angka2>4) then
start
writeln(‘Anda memasukkan nilai pasar angka memulai dengan > 3 juga ke-2 > 4’);
finish
finish.

  • Contoh 4: Program Tebak Angka

sistem Tebak_Angka;

makes use of crt;

var
angka,tebakan : integer;

start
clrscr;
angka:= 2;
writeln(‘Coba memperkirakan angka diantara 1 {sampai} 10’); readln(tebakan);
if angka = tebakan then
writeln(‘Selamat!, tebakan kamu tepat.’)
else
writeln(‘Wakwawww, tebakan kamu tidak pantas.’)
finish.

  • Contoh 5: Program Menghitung Detik Menit

sistem JamKe dalamMenit;

makes use of crt;

var
jam waktu, saat,i,hasil akhir,dtk,hasildtk : integer;

Lihat lebih banyak:  Ketahui Kelebihan dan Kekurangan Bahasa Pemrograman Perl Sebelum Menggunakannya

start
clrscr;
write(‘Masukkan Nilai Jam : ‘); readln(jam waktu);
i:=60;
dtk:=3600;
if jam waktu =1 then
start
hasil akhir:=jam waktu*i;
hasildtk:=jam waktu*dtk;
writeln(jam waktu, ‘ jam waktu setiap bit sebagai bersama ‘,hasil akhir,’ saat juga ‘, hasildtk, ‘ detik’);
finish
else
start
hasil akhir:=jam waktu*60;
hasildtk:=jam waktu*dtk;
writeln(jam waktu,’ jam waktu setiap bit sebagai bersama ‘,hasil akhir, ‘ saat juga ‘, hasildtk, ‘ detik’);
finish;
finish.

  • Contoh 6: Program Kalkulator

Program (*17*);
makes use of crt;

var angka1,angka2,hasil akhir:actual,2;
prosedur bedah:char;

start
clrscr;
writeln(‘KALKULATOR’);
writeln(‘===================’);
write(‘Input Angka Pertama : ‘); readln(angka1);
write(‘Operasi yang dilakukan(+,-,/,*) : ‘); readln(prosedur bedah);
write(‘Input Angka Kedua: ‘); readln(angka2);
case prosedur bedah of
‘+’: hasil akhir :=angka1+angka2;
‘-‘: hasil akhir :=angka1-angka2;
‘*’: hasil akhir :=angka1*angka2;
‘/’: hasil akhir :=angka1/angka2;
finish;
writeln(‘Hasil berasal dari ‘,angka1,’ ‘, prosedur bedah,’ ‘, angka2, ‘ = ‘,’ ‘, hasil akhir);
finish.

  • Contoh 7: Pangkat Kuadrat

sistem pangkat_kuadrat;
makes use of crt;

var
bil : integer;

operate pangkat2(b: integer) : integer;
var
hasil akhir : integer;  {hasil akhir sebagai berubah-ubah terdekat}

start
hasil akhir := b *b;
pangkat2 := hasil akhir;
finish;

{daerah prog.Kepala Sekolah}
start
clrscr;
write(‘masukan bilangan sekitar : ‘); readln(bil);
write(‘hasil akhir pangkatnya adalah ‘, pangkat2(bil));
readkey;
finish.

  • Contoh 8: Menghitung Luas Persegi Panjang

sistem Luas_Persegi_Panjang;

makes use of crt;

var
durasi : actual;
luas : actual;
substansial : actual;

start
clrscr;
writeln(‘===================================’);
writeln(‘| ‘,’Program untuk Menghitung Luas Persegi Panjang’,’ |’);
WRITELN(”);
writeln(‘| ‘,’Rumus : Panjang x Lebar (p x l)’,’ |’);
writeln(‘===================================’);
writeln(”);
write(‘Nilai Panjang: ‘); readln(durasi);
write(‘Nilai Lebar: ‘); readln(luas);
Writeln(‘Rumus Luas: Panjang x Lebar (p x l)’);
substansial :=durasi*luas;
writeln(”);
writeln(‘=============================’);
writeln(‘| ‘,’Jadi p x l = ‘,durasi:0:1,’ x ‘,luas :0:1);
writeln(‘==============================’);
writeln(substansial:0:1);
finish.

  • Contoh 9: Contoh sistem Pascal “If Bercabang”

sistem NeastedIf;
makes use of crt;

var
A,B,C : integer;

start
clrscr;
writeln (‘Masukkan 3 angka bersama spasi’); readln(A, B, C);
if A >= B then
start
if A >= C then
writeln (A, ‘ adalah nilai pasar terbesar’)
else
writeln (C, ‘ adalah nilai pasar terbesar’)
finish
else if B >= C then

start
if B >= C then
writeln (B, ‘ adalah nilai pasar terbesar’)
else
writeln (C, ‘ adalah nilai pasar terbesar’)
finish
else if C >= A or B then
writeln(C, ‘ adalah nilai pasar terbesar’);
finish.

  • Contoh 10: Program Data Kepegawaian

sistem data_pegawai;
makes use of crt;

var
gajipokok, gajibersih, tunjangan1, tunjangan2, tunjangan3, tunjangan4 :actual;
kedudukan :char;
Akun, menangani :untai[30];
kuantitas :integer;

start
clrscr;
write(‘Nama                  : ‘); readln(Akun);
write(‘Alamat                : ‘); readln(Akun);
write(‘Gaji pokok            : Rp ‘); readln(gajipokok);
write(‘Status D:rabu, S:namun rabu : ‘); readln(kedudukan);
write(‘Jumlah anak muda           : ‘); readln(kuantitas);
if (kedudukan = ‘D’) then
if(kuantitas <= 3) then start
tunjangan1 :=(5 * gajipokok) / 100;
tunjangan2 :=(2 * gajipokok * kuantitas) / 100;
gajibersih := gajipokok + tunjangan1 + tunjangan2;
writeln(‘tunjangan pasangan/setengah lainnya : Rp ‘,tunjangan1:0:0);
writeln(‘tunjangan anak muda        : Rp ‘,tunjangan2:0:0);
writeln(‘penghasilan jaring           : Rp ‘,gajibersih:0:0);
finish
else
start
tunjangan1 :=(5 * gajipokok) / 100;
tunjangan2 :=(2 * gajipokok * 3) / 100;
tunjangan3 :=(3 * gajipokok * (kuantitas – 3)) / 100;
tunjangan4 :=tunjangan2 + tunjangan3;
gajibersih :=gajipokok + tunjangan1 + tunjangan4;
writeln(‘tunjangan pasangan/setengah lainnya : Rp ‘,tunjangan1:0:0);
writeln(‘tunjangan anak muda        : Rp ‘,tunjangan4:0:0);
writeln(‘Gaji jaring           : Rp ‘,gajibersih:0:0);
writeln(‘Terima Kasih’);
finish
else
writeln(‘gajibersih            : Rp ‘,gajipokok:0:0);
readkey;
finish.

  • Contoh 11: Menentukan Bilangan Ganjil atau bahkan Genap
Lihat lebih banyak:  Algoritma Knapsack Problem - DosenIT.com

sistem GanjilGenap;
makes use of crt;

var
angka :integer;

start
clrscr;
writeln(‘Status Bilangan’);
writeln(‘===============’);
write(‘Masukkan Bilangan: ‘); readln(angka);
if angka < 0 then
start
if angka mod 2 = 0 then
writeln(‘Status Bilangan : GENAP = NEGATIF’)
else
writeln(‘Status Bilangan : GANJIL = NEGATIF’)
finish
else
start
if angka mod 2 = 0 then
writeln(‘Status Bilangan : GENAP = POSITIF’)
else
writeln(‘Status Bilangan : GANJIL = POSITIF’)
finish;
finish.

  • Contoh 12: Game Tebak-Tebakan

sistem Game_Tebak;
makes use of crt;
var
memilih : integer;
tebak1, tebak2, tebak3  : untai ;

start
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 memilih grup yang mana nih? 1,2, atau bahkan 3 : ‘); readln(memilih);

case memilih of
1 :
start
writeln(‘===========================’);
writeln(‘| ‘,’Kategori Mudah’,’|’);
writeln(‘===========================’);
write(‘Soal Tebak : Siapakah tim band yang ga pernah sebelumnya memihak?’); readln(tebak1);
if tebak1=’netral’ then
writeln(‘Tebakan kamu Bener’)
else
writeln(‘Tebakan kamu Salah, jawabannya adalah Netral’);
finish;

2 :
start
writeln(‘===========================’);
writeln(‘| ‘,’Kategori Sedang’,’ |’);
writeln(‘===========================’);
write(‘Soal Tebak : Bidadari-bidadari, kalo tanpa payudara maka 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??’);
finish;

3 :
start
writeln(‘============================’);
writeln(‘| ‘,’Kategori Sulit’, ‘ |’);
writeln(‘============================’);
write(‘Soal Tebak : Siapakah sebelumnya berasal dari penulis artikel posting ini? ‘); readln(tebak3);
if tebak3=’MaafKurangBeruntung’ then
writeln(‘Tebakan kamu Bener. Kok kamu mengakui sih?’)
else
writeln(‘Tebakan kamu Salah, upaya deh bertanya pria kamu. Siapa tau dia sebelumnya si penulis artikel wkwkwk’);
finish;
finish;
finish.

  • Contoh 13: Program untuk Menentukan Usia

sistem menghitung_usia
makes use of wincrt;

var
Akun : untai;
umur,TL:integer;

start
writeln(‘Akun kamu bahwa?’);readln(Akun);
writeln(‘tahun persalinan kamu?’);readln(TL);

umur:=2018-TL;
writeln(umur);
readkey;
finish.

  • Contoh 14: Penentuan Harga Buah berdasarkan Kualitas

makes use of crt;

Lihat lebih banyak:  Cara Restart Google Chrome

Var
Berat,menilai,hargaperkg:integer;
Kualitas:char;

Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas terbaik);
Write(‘ Berapa Kg yang dibeli? ‘ ); readln(besar-besaran);
Case kualitas terbaik of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*besar-besaran;
Writeln(‘ Harga setiap Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,menilai);
End.

  • Contoh 15: Program untuk Menghitung Luas Segitiga

makes use of crt;

var
alas,ketinggian:integer;
process hitung_luas(a,t:integer);

var
substansial:actual;

start
clrscr;
substansial:=a*t/2;
writeln(‘Luas segitiga =’,substansial);
finish;

start
writeln(‘Masukkan dimensi alas =’);readln(alas);
writeln(‘Masukkan dimensi ketinggian =’);readln(ketinggian);
hitung_luas(alas,ketinggian);
readln;
finish.

  • Contoh 16: Membuat file .txt menggunakan Pascal

makes use of crt;

var
Tulisan:textual content;
a,b:byte;
c:byte;

start
clrscr;
writeln(‘Masukkan angka memulai dengan =’);readln(a);
writeln(‘Masukkan angka ke-2 =’);readln(b);
c:=a+b;
writeln(‘Jika dijumlahkan, nilainya adalah =’,c);
assign(Tulisan,’bekerja.txt’);
rewrite(Tulisan);
write(tulisan,a);
write(Tulisan,’+’);
write(Tulisan,b);
write(Tulisan,’=’);
write(Tulisan,c);
Close(Tulisan);
readln;
finish.

  • Contoh 17: Program untuk Menentukan Biaya Dan Grade

makes use of crt;

var
nilai pasar:byte;

start
clrscr;
Write(‘masukkan nilai pasar =’);Readln(nilai pasar);
if nilai pasar>0 then
start
Writeln(‘GRADE = O ‘);
Writeln(‘Besar {biaya} = Rp.550000’);
finish
else
if nilai pasar<=1 then start Writeln(‘GRADE = E ‘);
Writeln(‘Besar {biaya} = Rp.450000’);
finish else if nilai pasar<=40 then start Writeln(‘GRADE = D’);
Writeln(‘Besar {biaya} = Rp.350000’); finish else if nilai pasar<=60 then start Writeln(‘GRADE = C’);
Writeln(‘Besar {biaya} = Rp.250000’); finish Else if nilai pasar<=70 then start Writeln(‘GRADE = B’); Writeln(‘Besar {biaya} = Rp.150000’); finish else start If nilai pasar >=100 then Writeln(‘GRADE = A’);
Writeln(‘Besar {biaya} = Rp.50000’);
finish;
readln;
finish.

  • Contoh 18: Program untuk Mencari Predikat

makes use of crt;

Var
nilai pasar:byte;
A,B,C,D:untai;

start
clrscr;
write (‘masukkan nilai pasar=’);readln(nilai pasar);
if nilai pasar< 69 then
writeln(‘predikat D’);
if nilai pasar<79then
writeln (‘predikat C’);
if nilai pasar<90 then
writeln (‘predikat B’);
if nilai pasar<101 then
writeln(‘predikat A’);
readln;
finish.

  • Contoh 19: Program penjualan bilangan desimal ke dalam bilangan biner

makes use of crt;

var Des:integer;
Bin:untai;

start
clrscr;
writeln(‘PROGRAM KONVERSI BILANGAN DESIMAL KE BILANGAN BINER’);
write(‘Masukkan bilangan Desimal=’);
readln(Des);
Bin:=’’;
repeat
start
{menghitung biner berasal dari hasil akhir bagi}

If Des mod 2=0 then Bin:=’0’+Bin
else Bin:=’1’+Bin;

{retak sekitar bilangan desimal}

Des:= Des div 2;
finish;
Until Des=0;
Writeln(‘Bilangan Biner =’,Bin);
readln;
finish.

Sekian posting perusahaan kita kali ini seputar {contoh} sistem Pascal. Semoga semua {contoh} yang telah perusahaan kita menyediakan dapat membuat Anda memahami melibatkan bahasa asing pemrograman komputer Pascal. Jika Anda hendak hal banyak {contoh} algoritma umum, simak {contoh} algoritma pemrograman komputer umum yang pernah sebelumnya perusahaan kita rilis di situs web ini.

Anda ringan menonton: 17 Contoh Program Pascal untuk Latihan Programming

Sumber: https://taylorswift10years.com

Kategori: Teknologi

Leave a Reply

Your email address will not be published.