Return to sort.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/sort.p, revision 1.1.1.1

1.1       root        1: program bench1(output);
                      2:     const size = 300;
                      3:     var i,j,t: integer; a: array[1..size] of integer;
                      4: begin for i := 1 to size do a[i] := size + 1 - i;
                      5:     for i := size-1 downto 1 do
                      6:        for j := i to size-1 do
                      7:            if a[j] > a[j+1] then
                      8:                begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
                      9:     { for i := 1 to size do writeln(a[i]) }
                     10: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.