Mengurutkan/Menyortir Data Angka Menggunakan Turbo Basic

DIM A(100)
cls
Input "Banyak data (max 100) :",N
For i = 1 to N
print "Masukkan data ke-";i;
input A(i)
next i
print "Data sebelum diurutkan :"
For i = 1 to N
print A(i);
next i


'Proses pengurutan/sortir
For i = 1 to N-1
For j= 1 to N-i
if A(j) > A(j+1) then
bantu = A(j)
A(j) = A(j+1)
A(j+1) = bantu
end if
next j
next i
print
print "Data setelah diurutkan (Ascending) : "
For i = 1 to N
print A(i);
next I

For i = 1 to N-1
For j= 1 to N-i
if A(j) < A(j+1) then
bantu = A(j)
A(j) = A(j+1)
A(j+1) = bantu
end if
next j
next i
print
print "Data setelah diurutkan (discending) : "
For i = 1 to N
print A(i);
next I