Program Mengurutkan Data (Kecil-Besar)

{Program Mengurutkan Data}

{Programmer : Tb. Ai Munandar}

uses wincrt;

type larik=array[1..100] of real;

var tebe,i,j:integer;

bete:real;

ebet:larik;

begin

clrscr;

write('Jumlah Data Yang Akan Diurutkan : ');readln(tebe);

writeln;

writeln('Masukan Datanya : ');

for i:=1 to tebe do

readln(ebet[i]);

for j:=1 to tebe-1 do

for i:=1 to tebe-j do

if ebet[i]>ebet[i+1] then

begin

bete:=ebet[i];

ebet[i]:=ebet[i+1];

ebet[i+1]:=bete;

end;

writeln;

writeln('Data Setelah Diurutkan : ');

writeln;

for i:=1 to tebe do

write(ebet[i]:6:0);

readln;

end.

Output program :

Jumlah Data Yang Akan Diurutkan : 10

Masukan Datanya :

2

4

7

5

3

1

8

4

1

6

Data Setelah Diurutkan :

1 1 2 3 4 4 5 6 7 8