Tugas Logika dan algoritma

Buat Temen2 PPKIa yang mendapatkan Tugas Bapak Budi, Silahkan Download Pseudocode di bawah ini,pelajari dan dicoba,dilarang membajak...

Ttpe tmhs
a(1) integer 2
a(2) integer 2
a(3) integer 2
a(4) integer 2

Dim fmhs as tmhs
open "siswa.dat" for random as # 1 Len = Len(fmhs)
Recno ← LOF (1)/Len(fmhs)
do
urut ← "ya"
i←1
do While i<(4-1)
J←i+1
if not a(i) <(j) then
T← A(i)
a(i)←a(i)
a(j)← T
urut ← "tidak"
end if
i←i+1
loop


loop while urut ="tidak"
i←1
do while i<=4
cetak a(i)
i←i+1
loop
close #1



by ; Wijaya Kusuma
Dinas Kependudukan dan catatan Sipil Kota Tarakan