Olimpiade Sains Provinsi (OSP) 2011 - Komputer

Tiga orang dewasa Roni(pria), Susi(wanita), dan Vina(wanita) bersama dengan lima anak-anak Fredi(pria), Heru(pria), Jono(pria), Lisa(wanita) dan Marta(wanita) akan pergi berdarmawisata ke Kebun Binatang dengan menggunakan sebuah kendaraan minibus. Minibus tersebut memiliki satu tempat di sebelah pengemudi, dan dua buah bangku panjang di belakang yang masing-masing terdiri dari 3 tempat duduk, sehingga total terdapat delapan tempat duduk di dalam minibus tersebut, termasuk pengemudi. Setiap peserta wisata harus duduk sendiri, masing-masing di sebuah kursi yang ada dan susunan tempat duduk harus disesuaikan dengan beberapa ketentuan sebagai berikut:

• Pada masing-masing bangku harus terdapat satu orang dewasa yang duduk

• Salah satu di antara Roni dan Susi harus duduk sebagai pengemudi

• Jono harus duduk bersebelahan dengan Marta

Enam orang bernama A, B, C, D, E, F melakukan perjalanan bersama dalam satu kendaraan. Mereka masing-masing berasal dari negara yang berlainan. Negara-negara itu adalah Indonesia, Malaysia, Singapura, Thailand, Laos, dan Myanmar. Ada 2 orang untuk tiap profesi yang sama dan tiap orang berprofesi tunggal (tidak ada yang memiliki profesi lebih dari satu). Selain itu diketahui juga fakta-fakta berikut.

• A yang berasal dari Singapura dan pria yang berasal dari negara Indonesia, keduanya adalah dokter

• E dan wanita yang dari negara Malaysia adalah guru

• C dan orang yang dari Singapura adalah insinyur

• B dan F dulu pernah bekerja di luar Asia, tapi orang yang dari Singapura tidak pernah bekerja di luar Asia

• Orang yang dari Laos lebih tua dari A

• Orang yang dari Myanmar lebih tua dari C

• Di kota X, B dan pria dari Indonesia turun untuk tidak meneruskan perjalanan

• Berikutnya, di kota Y, C dan pria dari negara Laos juga turun untuk tidak meneruskan perjalanan

Di suatu pertemuan ada 4 orang pria dewasa, 4 wanita dewasa, dan 4 anak-anak. Keempat pria dewasa itu bernama: Santo, Markam, Gunawan, dan Saiful. Keempat wanita dewasa itu bernama Ria, Gina, Dewi, dan Hesti. Keempat anak itu bernama Hadi, Putra, Bobby dan Soleh. Sebenarnya mereka berasal dari 4 keluarga yang setiap keluarga terdiri dari seorang ayah, seorang ibu dan satu orang orang anak, namun tidak diketahui yang mana yang menjadi ayah dan mana yang menjadi ibu dan mana yang menjadi anak dari masing-masing keluarga itu. Kecuali, beberapa hal diketahui sebagai berikut:

• Ibu Ria adalah ibu dari Soleh.

• Pak Santo adalah ayah dari Hadi.

• Pak Saiful adalah suami dari Ibu Dewi, tapi bukan ayah dari Bobby.

• Pak Gunawan adalah suami Ibu Hesti.

Di sebuah bandara internasional di negara antah berantah, pengelola bandara tersebut menyediakan bis yang berjalan keliling dari terminal A, terminal B dan terminal Parkir. Bis tersebut berhenti secara berurutan di 4 titik di terminal A yaitu terminal A1, terminal A2, terminal A3, terminal A4 yang melayani penerbangan-penerbangan dalam negeri. Kemudian bis tersebut secara berurutan berhenti di 3 titik terminal B yaitu terminal B1, terminal B2 dan terminal B3 yang melayani penerbanganpenerbangan internasional. Dari terminal B 3 bis tersebut menuju terminal Parkir untuk berhenti sejenak, dan kemudian menuju kembali ke terminal A1 dan seterusnya berulang-ulang. Di airport tersebut juga disediakan layanan dua buah kereta listrik, salah satunya hanya berjalan dari terminal A3 ke terminal parkir pulang pergi, dan kereta lainnya hanya berjalan dari terminal B2 ke terminal parkir pulang pergi. Alat transportasi tersebut merupakan layanan dari pihak pengelola bandara, dan tidak ada alat transportasi lain di lingkungan bandara tersebut yang dapat dipergunakan. Semua transportasi tersebut berjalan terus menerus selama 24 jam dan tidak dikenakan biaya bagi siapapun yang ingin memanfaatkannya.

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;

Perhatikan potongan program berikut:

hitung:=0;
n:=10;
for i:=1 to n do
  if (i mod 2 = 0) then
    for j:=1 to 10 do
      if (j mod 2 = 0) then
        hitung := hitung + j
      else
        hitung := hitung + i;
writeln(hitung);

Perhatikan program berikut:

var
lolo: array[0..10] of integer = (1,0,10,3,4,6,-1,14,-10,25,1);

procedure tukar(var a,b: integer);
var
  c: integer;
begin
  c:=a;
  a:=b;
  b:=c;
end;

procedure lele(lili,lala: integer);
var
  i,a,e : integer;
begin
  i := lili;
  a := lala;
  e := (i+a) div 2;
  while (i<a) do
  begin
    while lolo[i] <= lolo[e] do
      i:=i+1;
    while lolo[a] >= lolo[e] do
      a:=a-1;
    if (i<a) then
    begin
      tukar(lolo[i],lolo[a]);
    end;
    i:=i+1;
    a:=a-1;
  end;
  if lili < a then lele(lili,e);
  if i < lala then lele(e,lala);
end;

Perhatikan program berikut:

var
i,j:integer;
A: array[0..9,0..10] of integer;
qr,qc: array[0..10000] of integer;
mr: array[0..3] of integer = (0,1,0,-1);
mc: array[0..3] of integer = (1,0,-1,0);
area: array[0..9,0..10] of char =
( ('o','l','i','m','p','i','a','d','e','s','a'),
('i','n','s','t','i','n','g','k','a','t','p'),
('r','o','v','i','n','s','i','2','0','1','1'),
('.','i','o','i','2','0','1','1','d','i','a'),
('d','a','k','a','n','d','i','t','h','a','i'),
('l','a','n','d','.','g','o','g','e','t','g'),
('o','l','d','s','i','n','d','o','n','e','s'),
('i','a','.','b','e','p','r','e','p','a','r'),
('e','d','f','o','r','i','o','i','2','0','1'),
('1','.','i','n','d','o','n','e','s','i','a')
);

procedure init;
var
  i:integer;
  j:integer;
begin
  for i:=0 to 9 do for j:=0 to 10 do A[i,j]:= 9999;
end;

procedure S_B;
var
  i,h,t: integer;
begin
  init;
  h:=0; t:=0;
  qr[t] := 2; qc[t] := 1;
  A[qr[t],qc[t]] := 0;
  t:=t+1;
  while (h<t) do
  begin
    for i:=0 to 3 do
      if ((0<=qr[h]+mr[i]) and (qr[h]+mr[i]<=9) and
         (0<=qc[h]+mc[i]) and (qc[h]+mc[i]<=10)) and
{soal 33} (area[qr[h]+mr[i],qc[h]+mc[i]] <> 'i') and
{soal 33} (A[qr[h]+mr[i],qc[h]+mc[i]] > A[qr[h],qc[h]]) then
      begin
        qr[t] := qr[h]+mr[i];
        qc[t] := qc[h]+mc[i];
        A[qr[t],qc[t]] := A[qr[h],qc[h]]+1;
        t:=t+1;
      end;
      h:=h+1;
  end;
end;

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;

Perhatikan program berikut:

Var
a: array[1..100] of integer
n, jumlah, rata2: integer;

begin
  sum:=0;
  readln(n);
  for i:=1 to n do
  begin
    readln(a[i]);
  end;
  for i:=1 to n do
    { Soal No. 38: tuliskan kode
    untuk menghitung jumlah semua elemen array a
     ..... }
    { Soal No. 39: tuliskan kode untuk menghitung rata2 nilai elemen array a
     ..... }
end.