ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p3/tst/records1.pcat

Text File | 2005-10-24 | 264b | 14 lines

(* testing records *)

program is
    type Pair is record i: integer; r: real; end;
    var c : Pair := Pair { r := 0.0; i := 0 };
    procedure print() is begin
    write("    (", c.r, ", ", c.i, ")");
    end;
begin
    c.r := 2.3;
    c.i := 1;
    print();
end;