TubesDasPro/delete_array.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
35
36
37
38
39
40
41
42
43
44
45
46
// Nama File: delete_array.pas
// Deskripsi File: Unit prosedur delete array untuk beberapa prosedur pada program utama Engi's Kitchen
// Tanggal terakhir diubah: 22/04/2018

unit delete_array;

interface

uses uDef,F1;

	{ Deklarasi Fungsi/Prosedur }

	procedure deletearray (var arr : Ainventori; var Neff : Integer; var index : Integer);
	{procedure deletearrat menerima masukan array dengan tipe Ainventori, Neff suatu array, dan indexnya.
	 misal indeks dinyatakan dengan i, makan procedure deletearray akan menimpa elemen ke i dengan i+1,
	 elemen ke i+1 dengan ke i+2, dst. Lalu nilai Neff akan dikurangi satu}
	{I.S. menerima masukan sebuah array dengan jumlah elemen efektif sebesar Neff dan index array yang akan dihapus}
	{F.S. menghapus elemen array dengan index yang telah ditentukan}

implementation

	procedure deletearray (var arr : Ainventori; var Neff : Integer; var index : Integer);
	{procedure deletearrat menerima masukan array dengan tipe Ainventori, Neff suatu array, dan indexnya.
	 misal indeks dinyatakan dengan i, makan procedure deletearray akan menimpa elemen ke i dengan i+1,
	 elemen ke i+1 dengan ke i+2, dst. Lalu nilai Neff akan dikurangi satu}
	{I.S. menerima masukan sebuah array dengan jumlah elemen efektif sebesar Neff dan index array yang akan dihapus}
	{F.S. menghapus elemen array dengan index yang telah ditentukan}

	{KAMUS}

	{ALGORITMA}
	begin
		if (Neff<>index) then
			begin
			for i := index to Neff-1 do
			begin
				arr[i] := arr[i+1];			{Menimpa elemen ke i dengan elemen ke i+1}
			end;
		end;
		Neff:=Neff-1; 						{ Mengeset panjang array menjadi panjang array-1 }
	end;
end.

//Contoh Immplementasi
	//Inventori bahan mentah
	//deletearray ( FEInventoribahanmentah[NomorSim],NInvBM[NomorSim], i):