Cara Membuat Program "Mengurutkan Data"

PROGRAM MENGURUTKAN DATA

 

Listing Program Mengurutkan Data :
program Program_mengurutkandata;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  deret : array[1..100] of integer;
  loop, nested, banyak, tampung : integer;
begin
  write ('Berapa banyak bilangan yang ingin diurutkan ? = ');
  readln (banyak);
  for loop := 1 to banyak do
  begin
    write ('Bilangan ke ',loop:3,' = ');
    readln (deret[loop]) ;
  end;
  for loop := 1 to banyak -1 do
    for nested := loop +1 to banyak do
      if (deret[nested]< deret[loop]) then
      begin
        tampung:= deret[nested];
        deret[nested]:= deret[loop];
        deret[loop]:= tampung
      end;
  writeln;
  writeln('Hasil pengurutan bilangan dari besar ke kecil');
  for loop:= banyak downto 1 do
  begin
    writeln ('Data ke ', (banyak- loop+1):3, '=', deret[loop]);
    end;
    read;
    writeln;
    writeln('Program Mengurutkan Data, by : Ferry Noer Zahrie 2A') ;
    readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
begin
  { TODO -oUser -cConsole Main : Insert code here }
end. 

0 comments