Lakiša Bukumirović
Početnik
- Poruka
- 1
Pozdrav! Pravim igru 'Slagalica' u Pascalu. Prvo je potrebno da mi program nadje nasumičnu reč. I ovaj kod radi taj posao,ali često se pojavi i greška 203. Šta da izmenim?
program slagalica;
var I:text; line,rec:string; r:integer;
begin
Randomize;
rec:='';
r:=random(54545); //jer u bazi imam 54545 reči
assign(I,'D:\recnik.txt');
reset(I);
while r>0 do begin
readln(i,line);
if length(line)>7 then rec:=line;
r:=r-1;
end;
close(I);
writeln(rec);
readln;
end.
program slagalica;
var I:text; line,rec:string; r:integer;
begin
Randomize;
rec:='';
r:=random(54545); //jer u bazi imam 54545 reči
assign(I,'D:\recnik.txt');
reset(I);
while r>0 do begin
readln(i,line);
if length(line)>7 then rec:=line;
r:=r-1;
end;
close(I);
writeln(rec);
readln;
end.
