Andri Nur
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
1 komentar:
maksaih ya Jilbab Segi Empat Terbaru dan Grosir Jilbab Murah serta Agar Online Shop Ramai Pembeli dan Cara Pasang Iklan di Tokopedia juga Cara Mengatasi Online Shop Sepi Pembeli kemudian ada juga Cara Meningkatkan Penjualan di Lazada dan Cara Mengatasi Jualan di Tokopedia Sepi
Posting Komentar