Layout :
Angka 1 : 8
Angka 2 : 17
Angka 3 : 5
Angka 4 : 7
Angka 5 : 18
Hasil urutan sebagai berikut:
5 7 8 17 18
Jawab:
a. urutan
if N1 > N2 maka tukarkanlah
if N1 > N2 maka tukarkanlah
8 | 17 | 5 | 7 | 18 |
5 | 17 | 8 | 7 | 18 |
5 | 8 | 17 | 7 | 18 |
5 | 7 | 17 | 8 | 18 |
5 | 7 | 8 | 17 | 18 |
b. pemilihan dan perulangan
uses crt;
var x: array[1..5] of integer;
n,min,temp,i,j: integer;
begin
clrscr;
writeln('Program pengurutan bilangan');
writeln('____________________________');
writeln;
for n:=1 to 5 do
begin
write('Input bilangan ',n,': ');readln(x[n]);
end;
n:=5;
for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
begin
if x[j] < x[min] then
min:=j;
end;
temp:=x[i];
x[i]:=x[min];
x[min]:=temp;
end;
writeln('Hasil pengurutan adalah:');
writeln;
for n:=1 to 5 do
write(x[n]:4);
readln
end.
var x: array[1..5] of integer;
n,min,temp,i,j: integer;
begin
clrscr;
writeln('Program pengurutan bilangan');
writeln('____________________________');
writeln;
for n:=1 to 5 do
begin
write('Input bilangan ',n,': ');readln(x[n]);
end;
n:=5;
for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
begin
if x[j] < x[min] then
min:=j;
end;
temp:=x[i];
x[i]:=x[min];
x[min]:=temp;
end;
writeln('Hasil pengurutan adalah:');
writeln;
for n:=1 to 5 do
write(x[n]:4);
readln
end.
Tidak ada komentar:
Posting Komentar