Program Pascal Procedure

Contoh Program pascal

Untuk Memulai Pemograman pada pascal kita terlebih dahulu harus membuka program itu lalu deklarasikan perintah agar pascal dapat mengenali perintah perintah yang kita masukan. Kali ini program yang akan di buat adalah pertambahan, pengurangan, perhitungan Luas Segitiga dan Persegi Panjang
Untuk memulainya pertama kali dengan cara ketik perintah seperti gambar dibawah ; uses crt, label, dan var yaitu berguna untuk mendeklarasikan tipe data dan variabel yang dimasukan dalam program
Procedure penjumlahan ( mengenalkan prosedur yang kita gunakan dalam program pada progam ini kita menggunakan procedure penjumlahan, pengurangan, luas segitiga dan luas persegi panjang )
Begin ( memulai progam )
Clrscr; ( digunakan untuk membersihkan tampilan pada layar hasil )
Writeln (‘nilai a:’); ( digunakan untuk mencetak kata kata nilai a: )
Read(a); ( membaca nilai a yang nnti akan di masukan )
Writeln (‘nilai b:’); ( digunakan untuk mencetak kata kata nilai b: )
Read(b); ( membaca nilai b yang nnti akan di masukan )
Begitu seterusnya hanya mengubah variabel yang di gunakan sesuai dengan perintah yang akan kita buat
C:= a+b; ( memasukan rumus yang digunakan , a+b untuk penjumlahan , a-b untuk pengurangan, a/b untuk pembagian, a*b untuk perkalian yang akan di gunakan untuk perintah luas segitiga dan persegi panjang )
Writeln (‘penjumlahan a+b=’,c); ( digunakan untuk mencetak kata kata penjumlaha a+b = sedangkan ,c berguna untuk membaca nilai c yang nanti akan dihasilkan
Readkey; ( berguna untuk mengunci atau mempertahankan layar pada saat melihat hasil dari program tersebut)
end; ( untuk menyelesaikan perintah )

Perhatikan Gambar ! !


Keterangan :Dan perintah di atas dalam program ini hanya di ulang ulang hanya mengubah rumus, variabel, dan procedure yang di gunakan ) yang dapat di lihat pada tampilan gambar di bawah

Setelah itu kita akan menampilkan berupa menu menu yang dapat di pilih pada program seperti gambar di bawah

Sedangkan :

read (pil); (perintah untuk membaca pilihan yang di masukan )

if pil >5 then goto tamat; ( jika pada menu kita masukan angka yang tidak ada pada pilihan pada menu perintah tersebut akan menyelasaikan nya )

case pil of

1: Penjumlahan

2:Pengurangan

3:Luas Segitiga

4: LuasPersegi Panjang

Adalah untuk membaca perintah yang di masukan antara 1- 4 dan menyesuaikan pada perintah perintah yang di masukan dengan rumus rumusnya

Writeln (‘Terima Kasih ^_^’); untuk mencetak tampilan tersebut pada saat program tersebut selesai

end. ( untuk menyelesaikan program )

Dan coba jalankan programnya