Return to realout.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/realout.p, revision 1.1.1.1

1.1       root        1: program testio(input, output);
                      2: 
                      3: var
                      4: work :array[1..20] of char;
                      5: doesit :boolean;
                      6: i, j :integer;
                      7: r :real;
                      8: 
                      9: begin
                     10: work := 'This program works? ';
                     11: doesit := true;
                     12: r := 31.4159;
                     13: i := 10;
                     14: j := 25;
                     15: writeln('i = ',i,' ':3,'j = ':1,j:1);
                     16: writeln('r = ',r,'   2 * r = ',2*r);
                     17: write('also r = ',r:1,'   and r = ',r:10);
                     18: writeln('   finally r = ',r:7:3);
                     19: writeln('and r = ',r:j:i);
                     20: writeln(work,doesit);
                     21: writeln(work:i,doesit:i);
                     22: writeln(work:j,doesit:1);
                     23: j:=2;
                     24: writeln(work:5,doesit:j);
                     25: end.

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