12.5.6. Napisati program za pretvaranje decimalnog u rimski zapis broja (nestandardan zapis npr.4 se piše IIII).

Opis rješenja:

Listing programa:

PROGRAM p12502002;
USES 
  WinCRT;
VAR
  broj: 1..5000;
BEGIN
  WRITE('Broj');
  Readln(broj);
  Write('Rimski broj ');
  WHILE broj >= 1000 DO
    BEGIN
      Write('M');
      broj := broj - 1000;
    END;
  IF broj >= 500 THEN
    BEGIN
      Write('D');
      broj := broj - 500;
    END;
  WHILE broj >= 100 DO
    BEGIN
      Write('C');
      broj := broj - 100;
    END;
  IF broj >= 50 THEN
    BEGIN
      Write('L');
      broj := broj - 50;
    END;
  WHILE broj >= 10 DO
    BEGIN
      Write('X');
      broj := broj - 10;
    END;
  IF broj >= 5 THEN
    BEGIN
      Write('V');
      broj := broj - 5;
    END;
  WHILE broj >= 1 DO
    BEGIN
      Write('I');
      broj := broj - 1;
    END;
END.

Ispis na ekranu:

Index