Return to t07.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/t07.p, revision 1.1

1.1     ! root        1: program egwhile(output);
        !             2: var
        !             3:        i,n: integer;
        !             4:        h: real;
        !             5: begin
        !             6:        n := 10;
        !             7:        write(n);
        !             8:        h := 0;
        !             9:        for i := n downto 1 do
        !            10:                h := h + 1/i;
        !            11:        writeln(h)
        !            12: end.

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