Listing Program Pascal : Packing Barang Otomatis

USES CRT ;
FUNCTION COUNTER (X:INTEGER):INTEGER;
BEGIN

COUNTER ;=X+1;
END;

VAR
Y:INTEGER;
BEGIN
CLRSCR;

WRITELN ('Jumlah barang yang ingin di pack = ',COUNTER(Y));
READLN;

END.

Penjelasan Listing Program diatas :


"FUNCTION COUNTER (X:INTEGER):INTEGER;
BEGIN

COUNTER ;=X+1;
END;"

 Bagian yang diatas 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”.


"CLRSCR;

WRITELN ('Jumlah barang yang ingin di pack = ',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.
Secara sederhana, program di atas dapat dituliskan dalam bentuk flowchart sebagai berikut:

Rangkaian Flowchart : packing barang otomatis

 penjelasan:

start     : untuk memulai program flowchart

read n  : adalah jumlah barang yang dimasukan dalam mesin agar tidak kelebihan jumlah barang

menghitung jumlah : adalah proses dimana alat mulai menghitung jumlah barang

memulai pemasukan : alat memulai memasukan barang ke packing 

kemudian alat loop jika barang kelebihan jumlah maka akan kembali ke proses penghitungan barang

stop : untuk menghentikan program flowchart