t_id
406
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022396020 | 1027328 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0202.pp } { flag results not supported with case OK 0.99.11 (PFV) } program silly; var greater : boolean; procedure error; begin Writeln('Error in tbs0202'); Halt(1); end; procedure compare(i,j : integer); begin case (i>j) of true : begin greater:=true; end; false : begin greater:=false; end; end; end; begin compare(45,2); if not greater then error; compare(-5,26); if greater then error; end.