Hirdetés

Keresés

Új hozzászólás Aktív témák

  • VladimirR

    nagyúr

    válasz ALI_G #471 üzenetére

    kicsit modositani kellett rajta, mert a fenti kod az egyjegyu romai szamokkal bajban van (ugyanis a ciklus csak 2-ig szamol vissza), az utana levo feltetel meg nezne a masodik elemet

         if tmp[2]<=tmp[1]
            then szam:=szam+tmp[1];

         if length(s)=1
            then szam:=tmp[1];


         romai2arab:=szam;

    ugyanis egyjegyui szamnal, ha a 2. tombelemnek nagyobb volt az erteke, mint az egyetlen beallitott ertek, akkor erdekes dolgokat irt ki (ugye a tombben letrehozasakor minden hulyeseg van, s ezekkel dolgozott)
    a dolt betus resz beszurasa utan mar ez az ertek nem szamit, mert egyjegyu szam eseten felulirja a kimeno erteket a helyes eredmennyel

    [Szerkesztve]

Új hozzászólás Aktív témák