SORTING AND SEARCHING / MEMPERBAIKI DAN PENCARIAN PADA PASCAL

program sorting search;

uses wincrt,crt;

Const x : array[1..6] of Integer = (15,13,11,18,16,17);

var cari, flag, sec, max, i, n, min, k, temp, tempat_min : integer;

begin

clrscr;

n:=6;

    for k := 1 to n do

    begin

       min := x[k];

       for i := k to n do

       begin

          if (x[i] <= max) then

          begin

             min := x[i];

             tempat_min := i;

          end;

       end;

    temp := x[k];

    x[k]:=x[i];

    x[tempat_min] := temp;

end;

write('Setelah Diurutkan : ');

    for i:=1 to n do

    begin

       write(x[i],' ');

    end;

flag:=0;

cari:=17;

for i := 1 to 6 do

if (x[k]=cari) then begin flag:=1; end;

if flag=1 then

begin

writeln;

writeln('Data yang di cari : ',cari);

writeln('Data Ada!!');

end else

begin

writeln;

writeln('Data yang di cari : ',cari);

writeln('Data Tidak Ada!!');

end;

readln;

end.

Posted in: PROGRAM PASCAL