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

• #470 VladimirR nagyúr ALI_G #468

  Új Válasz 2004-11-01 23:50:43 #470

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  VladimirR

  nagyúr

  válasz ALI_G #468 üzenetére

  hat ebben 2 hibat latok igy hirtelen
  -tmp[j-1] tovabbra is nemletezo tombelemre hivatkozik, hisz j felveszi az 1 erteket is
  -if j<>0 mindig igaz erteket ad, hisz j egy pozitiv egesz szamrol csokken 1-ig, s tovabb nem, igy soha nem lesz nulla
  
  en mashogy oldottam meg:
  
       i:=length(s);
  
       while i>=2 do
       begin
            if tmp[i]>tmp[i-1]
               then begin
                         szam:=szam+(tmp[i]-tmp[i-1]);
                         dec(i,2)
                    end
                    else begin
                              szam:=szam+tmp[i];
                              dec(i);
                         end;
       end;
  
       if tmp[2]<=tmp[1]
          then szam:=szam+tmp[1];
  
       romai2arab:=szam;
  
  [Szerkesztve]

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