Return to t06.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/t06.p, revision 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:        repeat
        !            10:                h := h + 1/n;
        !            11:                n := n-1;
        !            12:        until n = 0;
        !            13:        writeln(h)
        !            14: end.

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