Array Pada Pascal

Array adalah sekelompok data sejenis yang disimpan ke dalam variabel dengan nama yang sama, dengan memberi indekx pada variabel untuk membedakan antara yang satu dengan yang lain. Array dapat berupa satu dimensi, dua dimensi, tiga dimensi dan berdimensi banyak.

Pada kali ini, saya akan memberikan contoh penggunaan Array satu Dimensi :

Kumpulan elemen yang identik yang tersusun satu baris bentuk umum :
Var :
Array [Indeksnya] of TipeData;

==================================================
Program Hitung;
Uses wincrt;
Var
Bilangan : Array [1..10] of integer;
a,b,jml:integer;
Begin
Clrscr;
Write ('Masukan Bilangan :');readln(b);
for a:=1 to b do
Begin
write ('Masukan Bilangan Ke ',a,' = ');readln(bilangan [a]);  
jml:=jml+Bilangan [a];
end;
writeln('Jumlah Bilangan yang diinput ',jml);
write ('Bilangan yang dimasukkan adalah :');
for a := 1 to b do
write ( bilangan [a]:4);
end.
===================================================
Berikut Hasil jadinya :

Contoh Pascal Fungsi If Then

Next, pada kali ini kita akan membahas penggunaan fungsi If Then..

Yang dimana pernyataan If digunakan untuk menguji sebuah kondisi. Bila kondisi yang diuji terpenuhi, program akan menjalankan pernyataan-pernyataan tertentu; dan bila kondisi yang diuji salah, program akan berhenti dan tidak menjalankan apapun.

Pada contoh kali ini saya akan memberikan contoh soal,
Program untuk mengetahui Informasi harga besar angsuran jika dikredit selama 10 Tahun.
Adapun daftarnya sebagai berikut :

 Program Tunai_Kreditt;

uses wincrt;
var
tipe,jenis:char;

begin
clrscr;
write('Pilih Tipe Rumah [A,B,C,D]= ');readln(tipe);
write('Jenis Pembayaran [T/K]    = ');readln(jenis);
Writeln;
if tipe ='A' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 50.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 500.000');
end;
end;
if tipe ='B' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 65.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 650.000');
end;
end;
if tipe ='C' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 75.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 700.000');
end;
end;
if tipe ='D' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 85.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 850.000');
end;
end;

readln;
end.

======================================
Berikut hasil outputnya :

Contoh Pascal Case Of Gaji Karyawan

Setelah mengetahui pengertian dan logika tentang case of, sekarang saya akan tunjukan metode penggunaan Case Of dalam mencari jumlah Gaji Karyawan yang dimana :


    Jika Jabatan, Direktur maka gaji pokoknya Rp 3.000.000, Tunjangan Transport Rp 850.000, dan Tunjangan Makan Rp 500.000.
    Jika Jabatan, Wakil Direktur maka gaji pokoknya Rp 2.500.000, Tunjangan Transport Rp 800.000, dan Tunjangan Makan Rp 500.000.
    Jika Jabatan, Manajer maka gaji pokoknya Rp 2.000.000, Tunjangan Transport Rp 800.000, dan Tunjangan Makan Rp 450.000.
    Jika Jabatan, Asisten maka gaji pokoknya Rp 1.500.000, Tunjangan Transport Rp 700.000, dan Tunjangan Makan Rp 400.000.
    Jika Jabatan, Karyawan maka gaji pokoknya Rp 1.000.000, Tunjangan Transport Rp 500.000, dan Tunjangan Makan Rp 300.000.

==============================================
Pprogram pembuatan_record;
Uses wincrt;

type
reckaryawan=record
jab,nama:string;
gol:integer;
gapok,trans,makan:real;
end;
var pegawai:reckaryawan;
total:real;
ulang:char;
Begin
clrscr;
ulang:='Y';
while Upcase(ulang)='Y' do
begin
clrscr;
writeln('            DAFTAR GAJI KARYAWAN        ');
Writeln('========================================');
writeln;
write('Masukan Nama Karyawan : ');readln(pegawai.nama);
write('Golongan[1(DR)/2(WD)/3(MN)/4(AS)/5(KW)] : ');
readln(pegawai.gol);
Writeln('========================================');
case pegawai.gol of
1:
begin
pegawai.jab:='Direktur';
pegawai.gapok:=3000000;
pegawai.trans:=850000;
pegawai.makan:=500000;
end;
2:
begin
pegawai.jab:='Wakil Direktur';
pegawai.gapok:=2500000;
pegawai.trans:=800000;
pegawai.makan:=500000;
end;
3:
begin
pegawai.jab:='Manager';
pegawai.gapok:=2000000;
pegawai.trans:=800000;
pegawai.makan:=450000;
end;
4:
begin
pegawai.jab:='Asisten';
pegawai.gapok:=1500000;
pegawai.trans:=700000;
pegawai.makan:=400000;
end;
5:
begin
pegawai.jab:='Karyawan';
pegawai.gapok:=1000000;
pegawai.trans:=500000;
pegawai.makan:=300000;
end;
end;
total:=pegawai.gapok+pegawai.trans+pegawai.makan;
clrscr;
Writeln('================================================');
    Writeln('           |Gaji Karyawan PT. ARDIANSYAH.Corp |');
Writeln('================================================');
writeln('Jabatan Karyawan       : ',pegawai.jab);
writeln('Gaji Pokok             : Rp.',pegawai.gapok:8:0);
writeln('Tunjangan Transportasi : Rp.',pegawai.trans:8:0);
writeln('Tunjangan Makan        : Rp.',pegawai.makan:8:0);
Writeln('================================================');
writeln('Total Gaji Karyawan    : Rp.',total:8:0);
writeln;
Writeln('================================================');
    Writeln('Created, Ardiansyah. B || 20142205002 ||TI.11              =');
Writeln('================================================');
    write('Mau mencari daftar gaji lagi? [Y/T]: ');
    Readln(ulang);
    end;
end.
==================================================
Berikut Hasil Listingnya :

Pengertian Pascal Case Of

Dalam fungsi yang berkaitan dengan logika adalah fungsi if, selain fungsi isi terdapat fungsi case of yaitu suatu ungkapan logika yang disebut selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.
Statement yang mempunyai case label yang bernmilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainnya tidak.
Bentuk struktur case of :
Case Variabel Kondisi Of
  case-labe 1 : Statement 1;
  case-label 2: tatement 2;
  case-label 3: Statement 3;
  case-label 4: Statement 4;
  .....
  Case-label : Statement n ;
end;   {end dari case}
Daftar case label dapat berupa konstanta, range dari konstanta yang bukan bertipe real.

Pascal Menghitung Umur Dalam Satuan JAM

Program Menghitung_Umur_Seseorang;
Uses Wincrt;
label awal, akhir;
Var  dd,mm,yy,x1,x2,x3,Total_Jam:longint;

        ulang:char;
Begin
awal:
clrscr;
Writeln ('Masukkan Umur Anda Dalam:');
Writeln ('=========================');
Write ('Tahun = ');read (yy);
Write ('Bulan = ');read (mm);
Write ('Hari  = ');read (dd);


x1:=yy * 365 * 24;
x2:=mm * 30 * 24;
x3:=dd * 24;
Total_Jam:=x1+x2+x3;
Writeln ('==================================');
Writeln ('Anda sekarang hidup adalah ',(Total_Jam), ' Jam');
Writeln ('==================================');
Writeln('Created, Ardiansyah. B || 20142205002 || TI.11');
Writeln ('==================================');
Writeln ('Mau menghitung ulang? [Y/T]: ');
    ulang := readkey;
if upcase(ulang)='Y' then goto awal
else goto akhir;akhir:
   
end.
=================================================
Berikut hasil jadinya :

Pascal Penggunaan DIV dan MOD

Yang dimana :
- Bus berangkat jika minimal 50 pendaftar.
- Mikrolet berangkat minimal 11 pendaftar.
- Dan sisanya tidak berangkat (belum beruntung :p).

Cek this out :
================================
Program Keberangkatan_Bus;

uses wincrt;

var a,bus,mikrolet,sisa:integer;
    ulang:char;

Begin
clrscr;
ulang:='Y';
while Upcase(ulang)='Y' do
Begin
clrscr;
writeln('   -->BUS BERANGKAT MINIMAL 50 PENDAFTAR<-- div="">
writeln('-->MIKROLET BERANGKAT MINIMAL 11 PENDAFTAR<-- div="">
Writeln('==============================================');
write('Masukan Jumlah Pendaftar = ');
readln(a);

bus:=a div 50;
mikrolet:=a mod 50 div 11;
sisa:=a mod 50 mod 11;
Writeln('==============================================');
writeln('Jumlah Bus Yang Berangkat             = ',bus, ' BUS');
writeln('Jumlah Mikrolet Yang Berangkat        = ',mikrolet, ' Mikrolet');
writeln('Jumlah Pendaftar Yang Tidak berangkat = ',sisa, ' Penumpang');
writeln;
Writeln('==============================================');
    Writeln('Created, Ardiansyah. B || 20142205026 ||TI.11   =');
Writeln('==============================================');
    write('Mau menghitung ulang? [Y/T]: ');
    Readln(ulang);
    end;

end.
=======================================================
Berikut hasil jadinya :

Pascal Mencari Pembagian Hewan Kurban

Program Pembagian_Hewan_Kurban;
uses wincrt;
var a,b,c,d,i:integer;
      v:real;
      m:real;
      x:real;
      ulang:char;

Begin
clrscr;
ulang:='Y';
while Upcase(ulang)='Y' do
Begin
clrscr;
writeln('Pembagian Hewan Kurban');
writeln('======================');
write('Masukan berat sapi=');
readln(a);
write('Masukan jumlah sapi=');
readln(b);
write('Masukan jumlah penerima daging kurban=');
readln(c);
write('Masukan jumlah penerima hadiah=');
readln(i);

d:=a*b;
v:=a*1/3/7;
m:=d*1/3/c;
x:=d*1/3/i;

writeln('Total Berat Sapi=',d,'Kg');
writeln('Pemilik Kurban=',v:00:2,'Kg');
writeln('Jatah Sedekah Perorang=',m:00:2,'Kg');
writeln('Hadiah=',x:00:2,'Kg');
Writeln('================================');
    Write('Created, Ardiansyah. B 20142205002. Mau menghitung ulang? [Y/T]: ');
    Readln(ulang);
    end;

end.
============================================================
Yang dimana hasilnya adalah sebagai berikut :