Return to t04.p CVS log

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

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

1.1     ! root        1: program roman(output);
        !             2: var
        !             3:        x,y: integer;
        !             4: begin
        !             5:        y := 1;
        !             6:        repeat
        !             7:                x := y;
        !             8:                write(y, ' ');
        !             9:                while x >= 1000 do
        !            10:                begin
        !            11:                        write('m');
        !            12:                        x := x-1000
        !            13:                end;
        !            14:                while x >= 500 do
        !            15:                begin
        !            16:                        write('d');
        !            17:                        x := x-500
        !            18:                end;
        !            19:                while x >= 100 do
        !            20:                begin
        !            21:                        write('c');
        !            22:                        x := x-100
        !            23:                end;
        !            24:                if x >= 50 then
        !            25:                begin
        !            26:                        write('l');
        !            27:                        x := x-50
        !            28:                end;
        !            29:                while x >= 10 do
        !            30:                begin
        !            31:                        write('x');
        !            32:                        x := x-10
        !            33:                end;
        !            34:                if x >= 5 then
        !            35:                begin
        !            36:                        write('v');
        !            37:                        x := x-5
        !            38:                end;
        !            39:                while x >= 1 do
        !            40:                begin
        !            41:                        write('i');
        !            42:                        x := x-1
        !            43:                end;
        !            44:                writeln;
        !            45:                y := 2*y;
        !            46:        until y > 5000
        !            47: end.

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