Sorting algorithms/Bubble sort: Difference between revisions
→{{header|ALGOL 60}}: Section added
(Added AppleScript implementation.) |
PatGarrett (talk | contribs) (→{{header|ALGOL 60}}: Section added) |
||
Line 199:
New_Line;
end Main;</lang>
=={{header|ALGOL 60}}==
{{works with|A60}}
<lang algol60>begin
comment Sorting algorithms/Bubble sort - Algol 60;
integer array A[1:20]; integer nA;
procedure bubblesort(lb,ub);
value lb,ub; integer lb,ub;
begin
integer i;
boolean swapped;
swapped :=true;
for i:=1 while swapped do begin
swapped:=false;
for i:=lb step 1 until ub-1 do if A[i]>A[i+1] then begin
integer temp;
temp :=A[i];
A[i] :=A[i+1];
A[i+1]:=temp;
swapped:=true
end
end
end bubblesort;
procedure inittable(lb,ub);
value lb,ub; integer lb,ub;
begin
integer i;
for i:=lb step 1 until ub do A[i]:=entier(rand*100)
end inittable;
procedure writetable(lb,ub);
value lb,ub; integer lb,ub;
begin
integer i;
for i:=lb step 1 until ub do outinteger(1,A[i]);
outstring(1,"\n")
end writetable;
nA:=20;
inittable(1,nA);
writetable(1,nA);
bubblesort(1,nA);
writetable(1,nA)
end </lang>
{{out}}
<pre>
70 92 61 64 74 5 89 52 38 91 59 57 51 34 81 27 57 51 32 74
5 27 32 34 38 51 51 52 57 57 59 61 64 70 74 74 81 89 91 92
</pre>
=={{header|ALGOL 68}}==
| |||