t_id
237
t_adddate
2003/10/03
Flag
t_interactive
set
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-834026346 | 725377 | False | True | Skipping test because it is interactive |
Record count: 1
{ %INTERACTIVE } program test_random; var i: integer; begin randomize; WriteLn('Random Values II:'); for i:=0 to 100 do begin WriteLn(Random(100)); end; randomize; WriteLn('Random Values I:'); for i:=0 to 100 do begin WriteLn(Random(100)); end; end. { $Log: trandom.pp,v $ Revision 1.3 2002/09/07 15:40:56 peter * old logs removed and tabs fixed }