Pengenal Pascal - SMP Xaverius Tugumulyo

Bentuk umum program pascal

 

Contoh Sederhana: Program Menghitung Luas Persegi Panjang

Program Menghitung_Luas_Persegi_Panjang_Ani;

Var

   Panjang:Integer;

   Lebar:Integer;

   Luas:Integer;

Begin

   Write('Masukkan Nilai Panjang = ');read(Panjang);

   write('Masukkan Nilai Lebar   = ');read(Lebar);

   Luas:=Panjang*Lebar;

   writeln('Hasil Luas Persegi Panjang = ',Luas);

   readkey;

End.

PENJELASAN 

* Judul Program:

Program Menghitung_Luas_Persegi_Panjang_Ani;

Tulisan Menghitung Luas Persegi Panjang Ani diketik tanpa menggunakan spasi, boleh menggunakan underscore.

* Deklarasi Variabel

Panjang:Integer;

Lebar:Integer;

Luas:Integer;

karena data yang akan diinput dan diproses berupa data angka kita gunakan tipe data Integer, jika data berupa data teks atau karakter gunakan tipe data String.

Karena sama-sama bertipe data Integer penulisan di atas diubah seperti di bawah ini:

Panjang,Lebar,Luas:Integer;

* INPUT

Write('Masukkan Nilai Panjang = ');read(Panjang);

write('Masukkan Nilai Lebar   = ');read(Lebar); 

Untuk Memasukkan Data dalam program digunakan WRITE, anda bisa menuliskan teks diantara tanda kutip satu (boleh menggunakan spasi.

Untuk membaca data input digunakan READ, isi di dalam read harus sama dengan yang ada di deklarasi VAR

 

* PROCESS

Tuliskan rumus anda dengan memperhatikan deklarasi pada VAR (tulisan yang anda buat dalam rumus harus sama dengan deklarasi variabel) dan terdapat tanda titik dua, sama dengan dan diakhiri tanda titik koma

Luas:=Panjang*Lebar;

* OUTPUT

Dibuat dengan menggunakan WRITELN dengan menambahkan tanda koma ( , ) untuk memanggil rumus yang sudah dibuat pada PROCESS

writeln('Hasil Luas Persegi Panjang = ',Luas);

readkey;