Pra-OSP DKI Jakarta 2015 - Komputer, Nomor 24

Question

Perhatikan potongan program berikut ini

var
capcay:array[1..10] of integer = (43,99,1,56,12,89,5,13,76,20);
i,bawang,kol:integer;

begin
  bawang := 1;
  while bawang <= 10 do
  begin
    kol := bawang;
    for i := bawang to 10 do
      if (capcay[i] < capcay[kol]) then kol := i;
    if (bawang <> kol) then
    begin
      capcay[bawang] := capcay[kol] + capcay[bawang];
      capcay[kol] := capcay[bawang] – capcay[kol];
      capcay[bawang] := capcay[bawang] – capcay[kol];
    end;
    inc (bawang);
  end;
  for i := 1 to 10 do write(capcay[i],‘ ’);
end.

Apakah hasil output dari potongan kode diatas?

tanardi gunawan · Accepted Answer

ini selection sort , itu kan keliata di bagian

kol := bawang;
    for i := bawang to 10 do
      if (capcay[i] < capcay[kol]) then kol := i;

disitu program sedang mencari nilai terkecil lalu nanti di tukar ke posisi paling depan

if (bawang <> kol) then
    begin
      capcay[bawang] := capcay[kol] + capcay[bawang];
      capcay[kol] := capcay[bawang] – capcay[kol];
      capcay[bawang] := capcay[bawang] – capcay[kol];
    end;

fungsi ini untuk menukarkan nilai terkecil ke bagian posisi 1 , 2 , 3 , dst.. jadi jawabannya hanya diurutkan

1 5 12 13 20 43 56 76 89 99

Azhar Abdurrasyid · Answer

itu salah satu contoh bubble sort, jadi jawabannya 1 5 12 13 20 43 56 76 89 89 99

Pra-OSP DKI Jakarta 2015 - Komputer, Nomor 24

2 jawaban