Return to t05.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/t05.p, revision 1.1.1.1

1.1       root        1: program egwhile(output);
                      2: var
                      3:        n: integer;
                      4:        h: real;
                      5: begin
                      6:        n := 10;
                      7:        write(n);
                      8:        h := 0;
                      9:        while n > 0 do
                     10:        begin
                     11:                h := h + 1/n;
                     12:                n := n-1;
                     13:        end;
                     14:        writeln(h)
                     15: end.

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