t_id
735
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022995091 | 1027424 | True | False | Successfully run |
Record count: 1
program test; procedure write1( var charbuf:string); begin Writeln(Charbuf); end; procedure write2( var charbuf:string; attrbuf:array of word); begin Writeln(Charbuf); end; var chars : String[82]; attrs : array [1..162] of word; begin Chars := 'Das ist ein Test, den ich gerade schreibe'; write1(chars); write2(chars,attrs); end.