TubesDasPro/F17.pas at master · kevin2000141/TubesDasPro · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
// Nama File: F3.pas
// Deskripsi File: Unit prosedur upgrade inventori untuk program utama Engi's Kitchen
// Tanggal terakhir diubah: 22/04/2018

unit F17;

interface
	uses uDef,F1;

	{ Deklarasi Fungsi/Prosedur }

	procedure upgradeInventori(var Nmax: longint);
	{Prosedur untuk menambah jumlah kapasitas inventori}
	{I.S. Nmax terinisialisasi}
	{F.S. Kapasitas inventori bertambah 25}

implementation

	{ Implementasi Fungsi/Prosedur }

	procedure upgradeInventori(var Nmax: longint);
	{Prosedur untuk menambah jumlah kapasitas inventori}
	{I.S. Nmax terinisialisasi}
	{F.S. Kapasitas inventori bertambah 25}

	{KAMUS}

	{ALGORITMA}
	begin
		Nmax := Nmax + 25; {Kapasitas inventori bertambah 25}
		writeln('Inventori ditambah 25 menjadi ', NMax);
	end;

end.