Bantu temanmu belajar dengan menambahkan soal di Kujawab. Klik disini..

Olimpiade Sains Provinsi (OSP) 2011 - Komputer , Nomor 23 - 24

Deskripsi untuk soal nomor 23 - 24

Perhatikan program berikut:

{
ubah adalah fungsi yang menerima masukan integer i dengan rumus:
ubah(1) = ‘A’; ubah(2) = ‘B’; ubah(3) = ‘C’, dst.
}
var
kalimat : array[1..10000] of string;
hitung : integer;
procedure berulang(idx,n: integer; kata:string);
var
i:integer;
begin
  if (idx = n) then
  begin
    hitung := hitung+1;
    kalimat[hitung] := kata;
  end
  else
  begin
    for i:=1 to 5 do
      berulang(idx+1,n, kata+ubah(i));
  end;
end;
23

Jika diberikan program utama ini:

begin
  berulang(0,5,'');
  writeln(hitung);
end.

Apakah output yang tampil di layar?

24

Jika diberikan program utama ini:

begin
  berulang(0,5,'');
  writeln(kalimat[1],' ',kalimat[10],' ',kalimat[hitung]);
end.

Apakah output yang tampil di layar?