Olimpiade Sains Provinsi (OSP) 2018 - Komputer, Nomor 37

Question

Diberikan program di bawah ini. Apa output dari program tersebut? {tuliskan jawaban sesuai dengan output yang dihasilkan}

var
	a :array[1..10] of integer;
	b :integer;
	i :integer;
	sum :integer;
	
procedure kwak(x:integer);
begin
	b :=b+1;
	a[b] :=x;
end;

procedure kwek;
var x :integer;
begin
	a[b] :=x;
	b :=b-1;
end;

procedure kwik;
begin
	for i :=1 to b-1 do
	begin
		a[i] :=a[i+1];
	end;
	b :=b-1;
end;

procedure kwok;
begin
	sum :=0;
	for i:=1 to b do
	begin
		m := sum + a[i];
	end;
	writeln(sum);
end;

begin
	b:=0;
	kwak(8); kwak(7); kwek;
	kwak(18); kwak(28); kwak(35);
	kwek; kwik; kwok;
end.

Noya Aldiputera · Accepted Answer

Jika diperhatikan, program ini mengimplementasikan suatu struktur data yang abstrak (ADT, singkatan dari abstract data type), masih belum kita ketahui seperti apa persisnya. Kita andaikan bahwa adalah pointer dari struktur data tersebut, dan array sebagai tempat penyimpanan datanya. Kita tinjau satu-satu: Prosedur . Prosedur ini menginisialisasikan elemen pada indeks ke-() dengan nilai . Fungsi ini bertingkah seperti appender/push-back pada bagian belakang array. Prosedur . Prosedur ini menginis

Olimpiade Sains Provinsi (OSP) 2018 - Komputer, Nomor 37

1 jawaban