saadilah mursid: Program Prosedur Pascal

Listing program

Program ini bernama program prosedur, prosedur adalah suatu bentuk program yang mana dia akan menampilkan proses nya saja, prosedur tidak dapat mencetak output.

contoh listing programnya:

Program pilihan;

uses crt;

procedure balok;

var

Vbalok, p, l, t : integer;

begin

clrscr;

write('masukkan panjang : '); readln(p);

write('masukkan lebar : '); readln(l);

write('masukkan tinggi : ');readln(t);

Vbalok := p * l * t;

writeln;

writeln('Volume balok (Prisma Siku-siku) = ',Vbalok);

readln;

end;

procedure kubus;

var

Vkubus, s : integer;

begin

clrscr;

write('masukkan sisi : '); readln(s);

Vkubus := s * s * s;

writeln;

writeln('Volume kubus (dadu) = ',Vkubus);

readln;

end;

procedure menu;

var

pil : byte;

begin

repeat

clrscr;

Textcolor(LightGreen);

writeln(' Menu ');

writeln('1. Volume balok (Prisma Siku-siku)');

writeln('2. Volume kubus (dadu)');

writeln('3. Keluar');

write('Pilih : '); readln(pil);

case pil of

1 : balok;

2 : kubus;

3: end;

until pil >= 3;

readln;

end;

begin

menu;

end.

Logika Program

uses digunakan untuk memanggil unit library pascal sedangkan crt adalah unit crt yang terdapa implentasi fungsi BIOS untuk screen dan interface keyboard. Procedure adalah sebuah blok program tersendiri yang merupakan bagian dari proogram lain yang lebih besar. Var berfungsi menghubungkan sebuah idenfieer dan tipenya dengan suatu lokasi di memori di manan nilai-nilai dari tipe tersebut dapat disimpan, integer digunakan untuk menyatakan bilangan bulatyang boleh bernilai minus sampai tidak terhingga. Begin digunakan untuk memulai suatu blok program dan kemudian dilanjutkan dengan clrscr yang berfungsi untuk membersihkan layar ketika memulai program tersebut. Write berfungsi untuk menuliskan seatu variabel ke dalam sebuah komponen file, sedangkan readln bertugas mengeksekusi prosedure read kemudian bergerak ke baris berikutnya dalam file program. Adapun writeln berffungsi mengeksekusi prosedura write lalu kemudan mengeluarkan seebuah penanda end-of-line(EOL) ke file program.

End; berguna untuk mengakhiiri proses pada suatu blok program. Vbalok := p * l * t; kode tersebut merupakan sebuah proses dimana p, l ,t, dan Vbalok merupakan integer adapun operatornya adalah := menjadi sama dengan sedangkan * sebagai pengalinya. writeln('Volume Balok (Prisma Siku-siku) = ',Vbalok); kode tersebut terdapat pada listing program di atas ‘,Vbalok digunakan untuk memanggil hasil dari proses Vbalok := p * l * sebelumnya. Pil : byte; digunakan untuk menentukan variabel yang digunakan. Repeat mendefinisikan statemen atau blok statemen yang akan terus diulang sampai keadaan perhentiannya terpenuhi.

Textcolor(LightGreen); digunakan untuk membei warna pada variabel yang diinput. Case of digunakan untuk menyatakan kondisi pemilihan. a : balok; , b : kubus; ,c : end; digunakan untuk memanggil program prosedure yang telah dituliskan di atas sebelumnya.

until pil >= 3; merupakan akhir program dari repeat sebelumnya. Kemudian end. digunakan untuk mengakhiri program secara keseluruhan.

Output Program

Listing program sebelum di Run :