Matematické Fórum

procedure zpracuj(kalkulus : string); {kalkulus je string s celou operací která na jedno řádku, takže třeba I+I+I}
var pomocne : string;
    delka, k, vysledek, cislo : integer;
    znamenko, zacatek : boolean;
begin
     k := 1;
     vysledek := -MAXINT;
     delka := length(kalkulus);
     znamenko := false;
     zacatek := TRUE;
     pomocne := '';
     while k < delka+1 do
     begin
          while ((kalkulus[k] <> '-') and (kalkulus[k] <> '+') and (k < delka+1)) do
          begin
               pomocne := pomocne + kalkulus[k];
               Inc(k);
          end;
          cislo := ZRimskych(pomocne);
          if (zacatek and (pomocne <> '')) then          {pokud je znaménko na začátku operace, tak se má ignorovat či-li -V+V je X a ne O}
          begin
               vysledek := cislo;
               zacatek := false;
          end
          else if znamenko then vysledek := vysledek + cislo
          else vysledek := vysledek - cislo;
          if kalkulus[k] = '+' then znamenko := TRUE;
          pomocne := '';
          Inc(k);
          {writeln(vysledek);}
     end;
     DoRimskych(vysledek);
end;