Sabtu, 18 Desember 2010

metode urutan angka

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

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.  

Tidak ada komentar:

Posting Komentar