USES CRT;
FUNCTION COUNTER (X:INTEGER): INTEGER;
BEGIN
COUNTER:=X+1;
END;
VAR
Y:INTEGER;
BEGIN
CLRSCR;
WRITELN(‘Jumlah mobil yang masuk = ‘,COUNTER(Y));
READLN;
END
Penjelasan programnya sebagai berikut:
BEGIN
COUNTER:=X+1;
END;
Bagian ini merupakan subprogram utama. Pada bagian ini dideklarasikan judul function dan variabel yang akan digunakan dalam rumus function. Judul function yang digunakan adalah “Counter” dan variabel yang digunakan dalam rumus function-nya adalah “X”.
VAR
Y:INTEGER;
Bagian ini merupakan pendeklarasian variabel pada program utama. Nilai dari variabel ini akan dimasukkan ke dalam rumus function yang telah dibuat sebelumnya pada subprogram utama.
BEGIN
CLRSCR;
WRITELN(‘Jumlah mobil yang masuk = ‘,COUNTER(Y));
READLN;
END
Bagian ini adalah program utama. Perintah CLRSCR jarang digunakan pada satu program dalam satu file. Perintah ini biasa dipakai pada program yang membutuhkan beberapa output dengan cara membersihkan tampilan setelah output pertama selesai dibuat, sehingga output berikutnya dapat dibuat. Begitu seterusnya. Sedangkan perintah WRITELN dipakai untuk mencetak karakter yang terdapat dalam tanda petik.
