home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t8.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  599 b   |  19 lines
  1. program roman;
  2. var x,y:integer;ende:boolean;
  3. begin
  4.   y:=1;ende:=false;
  5.   repeat
  6.     x:=y; write(x:5,' ');
  7.     while x>=1000 do   begin write('M'); x:=x-1000 end;
  8.     if    x>=500  then begin write('D'); x:=x-500  end;
  9.     while x>=100  do   begin write('C'); x:=x-100  end;
  10.     if    x>=50   then begin write('L'); x:=x-50   end;
  11.     while x>=10   do   begin write('X'); x:=x-10   end;
  12.     if    x>=5    then begin write('V'); x:=x-5    end;
  13.     while x>=1    do   begin write('I'); x:=x-1    end;
  14.     writeln;
  15.     if y<maxint div 2 then y:=y*2 else ende:=true;
  16.   until ende
  17. end.
  18.  
  19.