Dibawah ini yang bukan aturan dalam program Pascal adalah

Flowchart yang sudah dirancang selanjutnya akan diterjemahkan ke dalam bahasa program. Untuk itu kita harus memahami terlebih dahulu struktur pemrograman pascal. Struktur Program Pascal terdiri dari sebuah judul program dan suatu blok program atau badan program. Blok program dibagi lagi menjadi dua bagian, yaitu bagian deklarasi dan bagian pernyataan. Bagian deklarasi dapat terdiri dari deklarasi label,konstanta, tipe, variable, prosedur dan fungsi.

Penjelasan

Judul Program

Judul program sifatnya adalah optional di dalam program, artinya boleh dituliskan atau boleh juga tidak dituliskan. Judul Program hanya bertujuan untuk memberi nama dari program yang dibuat. Judul program harus terletak pada awal program dan diakhiri dengan titik koma.

Deklarasi Unit Pascal

Unit adalah kamus bahasa Pascal. Unit Pascal selalu disebutkan pada awal program setelah Judul Program. Tujuannya agar perintah bahasa pascal dapat diterjemahkan oleh compiler pada saat dikompilasi. Jika unit pascal tidak disebutkan maka perintah bahasa Pascal tidak dapat dikompilasi karena compiler tidak dapat mengenali perintah yang digunakan. Misalnya kata Begin, End, Clrscr, write,writeln,read,readln, dan lain-lain terdapat dalam kamus/unit crt. Oleh karena itu, unit crt selalu disebutkan pertama kali pada baris program dengan perintah uses crt.

Bagian Deklarasi

Deklarasi di atas hanya disebutkan jika akan digunakan dalam program. Bahkan dalam program yang sangat sederhana ada yang tidak menggunakan deklarasi. Dalam pemrograman dasar, pada umumnya menggunakan deklarasi variabel, konstanta, tipe data, dan label. Sedangkan deklarasi prosedur dan fungsi umumnya digunakan dalam pemrograman tingkat lanjut yaitu pemrograman tekstruktur.Deklarasi variabel selalu diawali dengan kata var, deklarasi konstanta diawali dengan kata Const, dan deklarasi label diawali dengan kata Label. 

Bagian Program

Program pascal tidak mengenal aturan penulisan yang kaku. Penulisan perintah boleh ditulis mulai kolom atau baris mana saja, tetapi harus jelas dan rapi agar mudah dibaca. Penulisan perintah dengan huruf besar dan kecil dianggap sama. Jadi Pascal tidak membedakan huruf besar dan kecil. Misalnya penulisan perintah BEGIN, Begin, begin adalah sama bagi pascal. Demikian juga dengan penulisan variabel. Penulisan teks yang bersifat komentar dan bertujuan untuk menjelaskan kode program harus diletakkan dalam tanda kurung kurawal. Kemudian setiap baris pernyataan/kode program selalu diakhir dengan tanda titik koma (;). Contoh : 

Perintah Dasar Bahasa Pascal

Write dan Writeln 

Perbedaan write dan writeln :

Setelah Write menuliskan datanya, maka kursor tidak berpindah ke baris berikutnya sedangkan dengan writeln, kursor akan berpindah ke baris berikutnya setelah menuliskan datanya. Kata writeln; tanpa diikuti teks dalam kurung sering digunakan untuk memindahkan posisi kursor ke baris berikutnya.

Perintah read dan readln digunakan untuk membaca data variabel yang akan dimasukan ke dalam program. Jadi digunakan untuk  membaca data input data ke dalam program. Kata readln; tanpa diikuti teks dalam kurung sering digunakan untuk menghentikan sementara tampilan output program agar tampak di layar. Dengan menekan sembarang tombol, maka program akan dilanjutkan.

Program Pascal Sederhana

1.  Contoh Program Tanpa Deklarasi

Konsntanta merupakan pengenal yang memiliki nilai yang sudah terdefinisikan dan tidak dapat diubah. Definisi konstanta diawali dengan kata cadangan CONST diikuti oleh kumpulan pengenal yang diberi suatu nilai.

3.  Contoh Program Deklarasi Variabel

Setiap variabel yang digunakan dalam harus untuk dideklarasikan terlebih dahulu. Kata cadangan VAR digunakan sebagai judul pada bagian deklarasi variable dan diikuti oleh satu atau lebih pengenal yang dipisahkan dengan koma, diikuti dengan titik dua dan tipe dari datanya serta diakhiri dengan titik koma. Tiap variabel harus memiliki tipe data. Tipe data sederhana dalam bahasa Pascal adalah : 

5. Contoh Program Deklarasi Tipe Data

6.  Contoh Program Deklarasi Label

Jika program akan menggunakan statement GOTO untuk meloncat ke suatu statement yang tertentu, maka dibutuhkan suatu label pada statement yang dituju dan label tersebut harus dideklarasikan terlebih dahulu.

Setelah memahami struktur program pascal dengan baik, maka pembahasan kita selanjutnya adalah membuat program matematika sederhana seperti penjumlahan, pengurangan, perkalian, pembagian, pangkat, dan akar bilangan.

Page 2

Konsep fungsi dalam pascal hamper sama dengan konsep fungsi dalam matematika. Sebuah fungsi digunakan untuk menghitung sebuah nilai berdasar satu atau beberapa nilai masukan. Dalam pascal, fungsi akan membantu mewujudkan pemecahan masalah yang lebih sederhana, sehingga program semakin mudah dibaca dan lebih mudah diubah atau dimodifikasi.

Fungsi dalam pascal mempunyai nama dan baris baris statemen yang merupakan implementasi fungsi tersebut. Sebuah fungsi dapat mempunyai satu atau lebih parameter.fungsi akan mengirimkan sebuah nilai yang tipenya sudah didefinisikan. Aturan penulisan deklarasi fungsi adalah sebagai berikut:

Function nama-fungsi(parameter) : tipe-hasil;

Begin

{statemen statemen implementasi fungsi}

Nama-fungsi :=nilai yang dikirimkan/hasil

End;

 parameter yang digunakan pada saat pendeklarasian fungsi disebut dengan parameter formal.

Berikut ini adalah beberapa contoh untuk memperjelas konsep fungsi

Contoh 1:

Buatlah sebuah fungsi untuk menghitung gaya yang dihasilkan berdasar massa dan percepatan yang telah diketahui.

Analisis: fungsi memiliki dua parameter yaitu percepatan dan massa yang akan mengirimkan gaya. Tipe hasil, gaya tergantung kepada tipe massa dan percepatan.

Function gaya(m,a:real) : real;

{m=massa,a=percepatan, megirimkan gaya,f=m*a}

Begin

Gaya:=m*a;

End;

Contoh 2:

Buatlah fungsi yang mengirimkan nilai terbesar dari dua buah integer yang diberikan.

Function maks(a,b:integer) :integer;

{mengirimkan a jika a>b dan b jika sebaliknya}

Begin

If a>b then

Maks:=a

Else maks :=b;

End;

Contoh 3:

Buatlah fungsi yang menghitung jumlah deret integer mulai dari 1 sampai dengan batas.

Function jumlah_deret (batas:integer): integer;

{mengirimkan jumlah 1+2+3+…+batas,batas>0}

Var i,jumlah:integer;

Begin

{penghitungan jumlah}

Jumlah:=0;

For i=1 to batas do

Jumlah:=jumlah+i;

{pengiriman hasil}

Jumlahderet:=jumlah;

End;

Catatan: nama fungsi tidak boleh dilibatkan dalam perhitungan

Contoh 4:

Buat fungsi yang menerima sebuah integer dan menetukan apakah integer itu kelipatan tiga atau bukan. Jika ya maka fungsi kan mengirimkan true, dan mnegirimkan false jika sebaliknya.

Function kelipatan3(n:integer): Boolean;

{mengrimkan true jika n kelipatan tiga}

Begin

If (n mod 3 = 0) then

Kelipatan3:=true

Else kelipatan3:=false;

End;

PEMANGGILAN FUNGSI

Contoh1: buat program yang menerima dua buah integer dan menentukan integer terbesar diantara keduanya menggunakan fungsi.

Program terbesar;

Var angka1,angka2:integer;

Terbesar:integer;

Function maks(a,b : ineteger) : integer;

Begin

If  a>b then

Maks:=a

Else maks:=b;

End;

{program utama}

Begin

Write (‘angka pertama=’);readln(angka1);

Write (‘angka kedua=’);readln(angka2);

Terbesar:=maks(angka1,angka2);

Write (‘angka terbesar adalah’,terbesar);

End.

Parameter yang digunakan pada waktu pemanggilan fungsi disebut dengan parameter actual. Ada beberapa syarat yang harus dipenuhi waktu menggunakan parameter actual:

1. Jumlah parameter actual harus sama dengan parameter formal pada pendeklarasian fungsi. Pada contoh diatas,terdapat dua parameter formal yaitu a dan b serta terdapat dua parameter actual yaitu angka1, dan angka2.
2. Tipe parameter formal harus sama dengan parameter actual
3. Urutan penulisan partameter actual harus sama dengan urutan penulisan partameter formal sesuai yang dimaksudkan.

Contoh 2:

Buatlah sebuah fungsi untuk mengkonversi nilai mata uang dalam rupiah ke dolar, yang menerima dua buah integer yang masing masing menyatakan nilai uang dalam rupiah dan nilai tukar 1 dolar dalam rupiah, serta mengirimkan nilai rupiah tersebut dalam dolar

Penyelesain:

Program kurs_uang;

Var         rupiah,kursdolar:integer;

Dolar:real;

Function nilaidolar(rp,kurs : integer) : real

Begin

Nilaidolar:=rp/kurs;

End;

{program utama}

Begin

Write(‘masukan nilai rupiah=’);readln(rupiah);

Write(‘kurs 1 dolar=’);readln(kursdolar);

Dolar:=nilaidolar(rupiah,kursdolar);

Write(‘Rp’, rupiah, ‘=’, dolar:3:2 ‘dolar’);

End.

oleh: syariful fahmi