Program Automatic Car Wash

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:

 FUNCTION COUNTER (X:INTEGER): INTEGER;

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.