Advertisemen
Buat urutan angka dari terkecil sampai terbesar dari 5 (lima) nilai yang dinput. Gunakan metode urutan, pemilihan dan perulangan.
b. pemilihan dan perulangan
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
|
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.
Advertisemen