Return to fnested.p CVS log

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

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

1.1     ! root        1: program test(output);
        !             2: var
        !             3: i :integer;
        !             4:     function f4( var i :integer;
        !             5:                r : real;
        !             6:                function f1(r : real): real;
        !             7:                procedure p1(var i:integer; function bol(r :real): real)
        !             8:        ) :boolean;
        !             9:        begin
        !            10:        write('f4', i:2, r:5:2, f1(i):5:2, f1(r):2:0);
        !            11:        p1(i, f1);
        !            12:        f4 := true;
        !            13:        end;
        !            14:     procedure pr1(var i:integer; function bol(r : real): real);
        !            15:        begin
        !            16:        write(' pr1', bol(i):5:2);
        !            17:        end;
        !            18:     function oneover(r : real) : real;
        !            19:        begin
        !            20:        oneover := 1 / r;
        !            21:        end;
        !            22:     begin
        !            23:        i := 4;
        !            24:        writeln('I should print->f4 4 0.25 0.25 4 pr1 0.25 true<-');
        !            25:        writeln(f4(i, 0.25, oneover, pr1):5);
        !            26:     end.

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