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 |
|---|---|---|---|---|
| -1736700984 | 568888 | 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
}