Return to t10.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/t10.p, revision 1.1

1.1     ! root        1: program expon2(output);
        !             2: var
        !             3:        pi, spi: real;
        !             4: 
        !             5: function power(x: real; y: integer): real;
        !             6:        var
        !             7:                z: real;
        !             8:        begin
        !             9:                z := 1;
        !            10:                while y>0 do
        !            11:                begin
        !            12:                        while not odd(y) do
        !            13:                        begin
        !            14:                                y := y div 2;
        !            15:                                x := sqr(x);
        !            16:                        end;
        !            17:                        y := y-1;
        !            18:                        z := x*z;
        !            19:                end;
        !            20:                power := z;
        !            21:        end;
        !            22: begin
        !            23:        pi := 3.14159;
        !            24:        writeln(2.0, 7, power(2.0, 7));
        !            25:        spi := power(pi, 2);
        !            26:        writeln(pi, 2, spi);
        !            27:        writeln(spi, 2, power(spi, 2));
        !            28:        writeln(pi, 4, power(pi, 4));
        !            29: end.

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