Cara Membuat Program Mengurutkan Data Menggunakan Delphi

Kali ini saya akan berbagi kepada para pembaca tentang Cara Membuat Program Mengurutkan Data Menggunakan Delphi...

Pertama kita harus mempunyai aplikasi delphi terlebih dahulu tentunya, jika sudah punya aplikasinya langkah-langkahnya sebagai berikut :

1.       Pertama buka terlebih dahulu aplikasi delphinya

2.       Setelah itu pilih File à New à Pilih Console Application

4.       Kemudian, langkah selanjutnya adalah membuat listing programnya, misalnya untuk program yang satu ini listing programnya kurang lebih seperti di bawah ini :

 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 : Achmad Chamza Anshori_2A') ;
    readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.


begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

5.       Setelah semua sudah selesai dan dirasa sudah cukup benar pembuatan listing programnya, coba jalankan program tersebut(running) dengan menekan tombol F9 pada keyboard.

6.       Good Luck !!! Semoga berhasil...!!!

Demikian para pembaca, itu tadi sedikit informasi dari saya mengenai Cara Membuat Program Mengurutkan Data... Semoga bisa bermanfaat bagi anda semuanya. :)