Deskripsi Untuk Soal Nomor 35 dan 37
Perhatikan program berikut:
var
mm,r,x,h : integer;
larik : array[1..10] of integer;
{ dengan instruksi sebagai berikut: }
function D(y,z:integer):boolean; forward;
procedure C(r:integer); forward;
procedure B(r:integer); forward;
procedure A; forward;
procedure main(m: integer); forward;
{ pemanggilan function / procedure dapat dilakukan dengan benar tanpa memperdulikan
urutan penulisan fungsi }
function D(y,z:integer):boolean;
begin
r:=32767;
if ((y=0) or (z=0)) then
D:= (y=0)
else if (r=32767) then
D:=D(y+1,z+1);
end;
procedure C(r:integer);
begin
x:=larik[r];
if D(x-mm,h-mm) then h:=x;
B(r-1);
end;
procedure B(r:integer);
begin
if (r<>0) then C(r);
end;
procedure A;
begin
B(r);
writeln(h);
end;
procedure main(m: integer);
begin
mm:=m;
h:=-m;
r:=10;
A;
end;Misalkan variable larik yang merupakan array dan setiap elemennya diisi sehingga bernilai sebagai berikut: 2,3,1,4,9,-1,7,-9,-2,5.
Pada program berikut ini, apakah output yang tampil di layar?
begin
main(10);
end.Misalkan setiap elemen larik diisi sehingga bernilai sebagai berikut: 12,33,1,49,9,-11,7,-91,-2,53.
Dengan program utama berikut ini, apakah output yang tampil di layar?
begin
main(10);
end.Asumsikan larik adalah array dengan ukuran tak hingga. Tentukan nilai r yang membuat program tidak berhenti dengan benar untuk larik dengan nilai sembarang!

SMA Unggulan CT Arsa Foundation
35) 2
36) 1
Inti dari program diatas, mencari angka yang True dari Procedure D. Jika berhasil maka hasilnya adalah procedure D yang terakhir itulah h:= x nya.
yang dilihat juga iayalah saat di pocedure C
D(x-mm,h-mm). Pada saat x - mm < -20 atau h - mm atau x - mm > 0 atau h-mm maka h tidak mendapatkan apapun
Tapi jika x - mm > h - mm dan x - mm < 0 maka h mendapatkan x.
Masuk untuk menulis jawaban