Pemograman Pascal

Pascal Merupakan Bahasa Pemograman Tingkat Tinggi.. Bahasa Pemoggraman Pascal Merupakan Dasar kita untuk menjadi seorang Programer, agar kita terbiasa dengan alur Logika program. Biasanya saat kuliah kita akan di ajarkan pemograman pascal dan juga C++ sebagai dasar kita dalam pengenalan Logika untuk membuat program.

struktur Program Pascal:

Program [identifier]; { nama Program}

Var [identifier]; {pengenalan nama Variable}

Proedure [identifier];

Begin
...
[Program Utama]
..
End.



untuk nama program dan Procedure boleh tidak digunakan sesuai kemauan kita. untuk tampilan Program Pascal lihat gambar di bawah :

Pascal 1

Pada Pemograman Pascal kita juga akan mengenal Proses perulangan atau yang sering kita sebut Lopping. Dalam Pascal Mengenal Beberapa perintah Looping. Yaitu:

1. Fungsi IF
2. Fungsi Nested IF ( IF Tersarang )
   
3. Fungsi While Do
4. Fungsi Nested While do ( While Do Tersarang )
5. Fungsi Repeat Until
6. Fungsi Nested Repat Until ( Repeat Tersarang )

Fungsi Perulangan Biasanya sering digunakan dalam program Array. Langsung kita bahas saja Fungsi looping pada Pascal:

1. IF
Perintah looping IF sebenarnyaLogikanya tidak jauh beda dengan fungsi IF pada formula microseoft Excel. Bagi yang sudah terbiasa Menggunakan Excel tidak akan terlalu sulit untuk memahaminya. Struktur IF pada pascal yaitu:

IF [Kondisi] then

[statement] {perintah Apabila kondisi Terpenuhi}

end;

Atau

if [kondisi] then

[statement] {jika kondisi terpenuhi}

else

[statement] {jika Kondisi Tidak terpenuhi}

end;


Contoh Soal,

Program latihan_IF;

Var
kode : char;
nama:string [20];
harga:interger;

Begin
writeln('*********Program Contoh IF**********');
writeln('----------------------------------------------------');
writeln;
write('Masukan Kode : ');Readln(kode);

if upcase(kode)='A' then
begin
nama:='Payung';
harga:=15000;
else if upcase(kode)='B' then
begin
nama:='Jas Hujan';
harga:=45000;
end;
else
Begin
nama:='Tidak Ada Pilihan';
harga:=0;
end;

writeln;
writeln('Nama Barang : ',nama);
writeln('Harga : ',harga);

end.



Catatan :
Apabila Ada lebih dari 1 statement maka harus di awali dengan begin-----end;, jika hanya ada satu statement boleh tidak menggunakan Begin--end;.