Tugas Struktur Data Tk 4E;

program pengurutan;
uses wincrt;
var
angka: array[1..1000] of integer;
k,l,m,n,o,i,a, temp: integer;

begin clrscr;
write('masukkan angka ke-1:');readln(k);
write('masukkan angka ke-2:');readln(l);
write('masukkan angka ke-3:');readln(m);
write('masukkan angka ke-4:');readln(n);
write('masukkan angka ke-5:');readln(o);
writeln;
writeln;
angka[1] := k;
angka[2] := l;
angka[3] := m;
angka[4] := n;
angka[5] := o;
writeln('Ini Nilai Sebelum Diurutkan : ');
writeln;
for i:=1 to 5 do
begin

writeln('angka ke-', i, ' : ', angka[i]);

write;
end;
for i:=1 to 4 do
begin
for a:=i+1 to 5 do
begin
if(angka[a] < angka[i]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
end;
writeln;
writeln('Nilai Setelah Diurutkan Dengan Buble : ');
for i:=1 to 5 do
begin
writeln('|==============|');
writeln('|angka ke-', i, ' : ', angka[i],'|','');
writeln('|==============|');
end;
end.