cifre_ro.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 81 行

program cifre_romane;
var x:word;
begin
write('x= ');
readln(x);
if x>3999 then writeln('romanii nu foloseau astfel de nr.');
if x=0 then writeln('anno Dominii');
while x>=1000 do
      begin
           write('M');
           x:=x-1000;
      end;
if x>=900 then
              begin
                   write('CM');
                   x:=x-900;
              end
          else
              if x>=500 then
                            begin
                                 write('D');
                                 x:=x-500;
                            end
                       else
                           if x>=400 then
                                         begin
                                              write('CD');
                                              x:=x-400;
                                         end;
while x>=100 do
               begin
                    write('C');
                    x:=x-100;
               end;
if x>=90 then
              begin
                   write('XC');
                   x:=x-90;
              end
          else
              if x>=50 then
                            begin
                                 write('L');
                                 x:=x-50;
                            end
                       else
                           if x>=40 then
                                         begin
                                              write('XL');
                                              x:=x-40;
                                         end;
while x>=10 do
               begin
                    write('X');
                    x:=x-10;
               end;
if x>=9 then
              begin
                   write('IX');
                   x:=x-9;
              end
          else
              if x>=5 then
                            begin
                                 write('V');
                                 x:=x-5;
                            end
                       else
                           if x>=4 then
                                         begin
                                              write('IV');
                                              x:=x-4;
                                         end;
while x>=1 do
               begin
                    write('I');
                    x:=x-1;
               end;
writeln;
end.