Selasa, 27 Maret 2012

Program Mengurutkan Angka Secara Descending Menggunakan Delphi

Well, setelah tadi penulis share tentang mengurutkan angka secara Ascending, kini penulis ingin membantu rekan-rekan semua mengurutkannya secara Descending(Dari Angka Terbesar Hingga Terkecil).

Listing Programnya!!!


procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i:=10 downto 1 do
listbox1.items.add(inttostr(i));
end;

end.


Hasil setelah Di Running!



Terima Kasih Atas Kunjungan Anda ^_^
Lebih dan Kurang Penulis Mohon Maaf
Silahkan Tinggalkan Komentar Anda!!!!

Tidak ada komentar:

Posting Komentar

Labels