PEMROGRAMAN PASCAL BESERTA CONTOHNYA

Pascal ini biasanya mempunyai bahasa pemprograman yang bisa kita mengerti, bahasa programan ini dapat disimpulkan sebagai sebuah jalur untuk jalannya sebuah mobil, apabila jalur itu rusak, atau tidak selesai pembuatannya tentu mobil tidak dapat berjalan, sama halnya ini, sedikit saja salah dalam program bahasa tersebut, maka finishingnya tidak akan berjalan lancar. Bahasa pemrograman Pascal termasuk dalam bahasa pemrograman yang dikategorikan tinggi. Struktur dalam Pascal terdiri dari 3 pembagian, yaitu:

1. Kepala Program
   2. Bagian Deklarasi
   3. Bagian Pernyataan (program utama)
   
   
   
2. Kepala Program
   Sebuah program pascal diawali bagian kepala program. Penulisan kepala program diawali dengan kata tercadang (reserved word) PROGRAM, kemudian diikuti oleh nama program dan diakhiri tanda titik koma.
   Bentuk umum: PROGRAM nama_program;
   Contoh: PROGRAM menghitung_luas_lingkaran;

Pemberian aturan pada Nama Program Pascal
1. Harus dimulai dengan huruf alphabet (a..z atau A..Z).
2. Selanjutnya dapat diikuti oleh angka (0..9), alphabet atau garis bawah.
3. Tidak boleh memuat spasi, spasi dapat digantikan dengan garis bawah.
4. Tidak boleh memuat operator hitung dan karakter-karakter khusus (~ ! @ # $ % ^ & * ( ) – + = \ | [ ] { } : “ ; ‘ , >)
5. tidak boleh memuat kata tercadang.
6. panjang karakter yang dikenali adalah 32 karakter pertama.

Bagian Deklarasi
Bagian deklarasi berfungsi sebagai tempat untuk mendeklarasikan/ mengenalkan nama-nama yang akan digunakan dalam bagian pernyataan. Terdiri dari 5 macam deklarasi, yaitu:
1. Deklarasi Label
Pendeklarasian nama label untuk menandai suatu bagian pernyataan dalam program utama.
2. Deklarasi Konstanta
Pendeklarasian nama konstanta sebagai penampung data yang bersifat konstan/ tetap.
3. Deklarasi Tipe
Pendeklarasian nama tipe yang digunakan untuk membuat tipe data baru.
4. Deklarasi Variabel
Pendeklarasian nama variabel sebagai penampung data yang bersifat dinamis/ dapat diubah-ubah.
5. Deklarasi Subprogram
Pendeklarasian fungsi atau prosedur yang akan dipanggil pada program utama.
Dari 5 macam deklarasi, tidak perlu dideklarasikan semuanya dalam program. Hanya bagian yang dibutuhkan saja yang harus dideklarasikan.

Bagian Pernyataan
Bagian pernyataan merupakan program utama dalam pemrograman Pascal. Pada saat dilakukan ekseskusi program, komputer akan menjalankan bagian pernyataan ini. Program utama diawali dengan kata tercadangBEGIN dan diakhiri dengan kata tercadang END dan tanda titik.

Unit
Dalam bahasa pemrograman Pascal menyediakan suatu cara pemrograman modular dengan menggunakan Unit.. unit adalah suatu pustaka yang umumnya terdiri dari fungsi atau prosedur serta variabel yang dapat dikompilasi secara terpisah. Dalam program dituliskan dengan clausa USES diikuti dengan nama unit dan diakhiri tanda titik koma.
Contoh: USES CRT;

Komentar
Dalam Pascal komentar ditulis dalam tanda kurung kurawal { }. Kita dapat menulis keterangan atau apa saja di dalam komentar. Komentar tidak akan dieksekusi oleh program. Tujuan penggunaa komentar adalah untuk dokumentasi dan memudahkan orang lain untuk memahami program yang telah kita buat.

Contoh kerangka program Pascal
PROGRAM contoh:

{———————————————————-}
{ contoh program dengan deklarasi yang lengkap }
{ ———————————————————-}
USES Crt;
LABEL
Selesai;
CONST
Phi = 3.14;
TYPE
BilanganNyata = Real;
VAR
Jari_jari : BilanganNyata;
PROCEDURE HitungLuas(Radius:BilangaNyata);
Begin
Writeln(‘Luas = ‘,0.5*Phi*Radius*Radius);
End;
{ Program Utama }
BEGIN
Clrscr;
Jari_jari:=10.5;
HitungLuas(Jari_jari);
GOTO Selesai;
Writeln(‘Sudah selesai ya?’);
Selesai:
Writeln(‘Selesai…..’);
END.

Pernyataan dalam Pascal
1. Pernyataan Penugasan (assigment)
Pernyataan penugasan digunakan dalam proses pemberian harga/ nilai pada suatu variabel dalam sebuah ungkapan, penulisannya menggunakan simbol :=
Contoh: x := 51;
Luas := p * l;
2. Pernyataan Prosedur
Digunakan untuk mengaktifkan/ memanggil prosedur yang didefinisikan oleh pemrogram ataupun prosedur standart dari pascal sendiri. Penulisannya dengan cara menyebutkan nama prosedur dan diakhiri dengan tanda titik koma.
Contoh: Randomize;
HitungLuas;
Clrscr;
3. Pernyataan Input/ Output
a. Input
Digunakan dalam proses pembacaan data melalui peralatan masukan (keyboard, mouse, dsb) atau melalui pengisian data langsung pada suatu variabel di dalam program yang akan digunakan untuk proses selanjutnya.
Pernyataan input menggunakan perintah READ atau READLN.
b. Output
Digunakan sebagai informasi keluaran yang merupakan hasil dari proses program. Pernyataan output menggunakan perintah WRITE atau WRITELN.
4. Pernyataan Majemuk
Merupakan kumpulan dari beberapa pernyataan yang diawali dengan Begin dan diakhiri dengan End dan tanda titik koma.

 Bentuk Umum:

Begin
Pernyataan 1;
Pernyataan 2;
.
.
Pernyataan n;
End;

Tipe data dan Operator
Sebuah program selalu berhubungan dengan data untuk diinputkan, diolah dan kemudian memberikan hasil yang diinginkan. Variabel dan konstanta merupakan penampung data di dalam program. Variabel bersifat dinamis sedangkan konstanta bersifat statis.
Setiap data yang disimpan di dalm variabel atau konstanta harus memiliki tipe data. Ada beberapa tipe data sederhana yang dapat digunakan dalam Pascal. Berikut adalah tipe data yang sering digunakan.
a. Tipe bilangan bulat dapat dikelompokan menjadi:
Tipe: Ukuran memory: kawasan (range):
- Byte 1 byte 0…255
- Word 2 byte 0…65535
- ShortInt 1 byte -128…127
- Integer 2 byte -32768…32767
- LongInt 4 byte -2147483638…2147483647
b. Tipe bilangan pecahan (real)
c. Tipe string yaitu data yang berisi nol atau beberapa karakter. Tipe
string diapit dengan tanda petik(‘….’).contoh:’nama’.
d. Tipe Char yaitu untuk data yang berisi hanya sebuah karakter saja. Misalnya:’A’,’1’,’?’.
e. Tipe Boolean adalah suatu data yang nilainya berupa false ( salah ) atau true ( benar ).
Disamping tipe –tipe tersebut masih terdapat beberapa tipe lainnya dan dapat juga tipe tersebut dibuat sendiri.

Data-data dalam program akan diproses dengan menggunakan operator. Operator adalah simbol atau kata yang digunakan dalam program untuk melakukan suatu operasi data seperti penjumlahan, pengurangan, pemberian nilai ke dalam variabel, membandingkan kesamaan dua buah nilai dan sebagainya.
Nilai data yang dioperasikan oleh operator bersama operand membentuk suatu ekspresi. Operator yang digunakan dalam Pascal

Sumber : :https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzIh0Z_SNn9laPyOZNo-HszTOtppaW4CYjNsU_nZyXzbjNZCyq0aSpdXgrUxgaFJiOQLN0BlGSTQs1XuLu-jYhx7Y84N5dKS4RSJjzxs7NJakHpsRfMndz0l0AyeGN9Gb2edJ-FD6yoYY/s1600/pascal-2-newsinfopedia.jpg

 

contoh sederhana dari pemrograman pascal

Uses Crt;

const

ewap='ya';

Var

  Panjang, Lebar, Tinggi, Alas, Jari, pilih : integer;

  diameter : real;

  L_Persegi_Panjang : real;

  L_Lingkaran : real;

  L_Segitiga : real;

  V_Tabung : real;

  tanya : string;

Procedure Luas_Persegi_Panjang;

Begin

Write('"Masukkan Nilai Panjang": '); readln(Panjang);

Write('Masukkan Nilai Lebar: '); readln(Lebar);

L_Persegi_Panjang:= Panjang*Lebar;

Writeln('Luas Persegi Panjang Adalah : ',L_Persegi_Panjang:5:3);

end;

Procedure Luas_Lingkaran;

Begin

Write('Masukkan Nilai Jari-Jari: '); readln(Jari);

L_Lingkaran:= 3.14*Jari*Jari;

Writeln('Luas Lingkaran Adalah : ',L_Lingkaran:5:3);

end;

Procedure Luas_Segitiga;

Begin

Write('Masukkan Nilai Alas: '); readln(Alas);

Write('Masukkan Nilai Tinggi: '); readln(Tinggi);

L_Segitiga:= 0.5*Alas*Tinggi;

Writeln('Luas Segitiga Adalah : ',L_Segitiga:5:3);

end;

Procedure Volume_Tabung;

Begin

Write('Masukkan Nilai Jari-Jari Alas: '); readln(Jari);

Write('Masukkan Nilai Tinggi: '); readln(Tinggi);

V_Tabung:= 3.14*Jari*Jari*Tinggi;

Writeln('Volume Tabung Adalah : ',V_Tabung:5:3);

end;

begin

repeat

clrscr;

Writeln

('-----------------------------------------------------------------');

writeln('1. Menghitung Luas Persegi Panjang');

writeln('2. Menghitung Luas Lingkaran');

writeln('3. Menghitung Luas Segitiga');

writeln('4. Menghitung Volume Tabung');

writeln('Masukkan Pilihan Anda : ');

Writeln

('-----------------------------------------------------------------');

read(pilih);

if (pilih=1) then

begin

clrscr;

Luas_Persegi_Panjang;

end

else if (pilih=2) then

begin

clrscr;

Luas_Lingkaran;

end

else if (pilih=3) then

begin

clrscr;

Luas_Segitiga;

end

else if (pilih=4) then

begin

clrscr;

Volume_Tabung;

end

else if (pilih>4) then

  begin writeln('Maaf, pilihan anda tidak ada pada daftar diatas.');

end;

delay(2000);

clrscr;

writeln('Apakah Anda Ingin Mengulanginya???');

delay(1000);

Write('ya atau tidak...???');

read(tanya);

until (tanya<>ewap);

 sumber : pascal sederhana