t_id
374
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
479806645 | 940796 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0152.pp } { End value of loop variable must be calculated before loop variable is initialized. OK 0.99.11 (PM) } Program tbs0152; { Shows wrong evaluation of loop boundaries. First end boundary must be calculated, only then Loop variable should be initialized. Change loop variable to J to see what should be the correct output. } PROCEDURE LGrow(VAR S : String;C:CHAR;Count:WORD); VAR I,J :WORD; BEGIN I:=ORD(S[0]); { Keeping length in local data eases optimalisations} IF I'1111111abcedfghij' then begin writeln('tbs0152 fails'); halt(1); end; end.