您所在位置：主题：[讨论]怎么回事？！
phile
[专家分：2310] 发布于 2011-02-23 18:59:00
uses crt;
var i:integer;
begin
clrscr;
gotoxy(1,1);
writeln('No.');
writeln('Press any key to stop!');
i:=1;
repeat
gotoxy(1,4);
if i>47 then i:=1;
if i<=9 then write('0');
write(i);
i:=i+1;
until keypressed;
assign(output,'Number.txt');
rewrite(output);
writeln('No.',i);
close(output);
end.
我是想用随机抽取数，但不用randomize.
要通过键盘按键来抽取。
这个程序有问题，编译通过了，可是总会运行不了。
出现Error 200：Division by zero
求解！求解！[em18][em18]
var i:integer;
begin
clrscr;
gotoxy(1,1);
writeln('No.');
writeln('Press any key to stop!');
i:=1;
repeat
gotoxy(1,4);
if i>47 then i:=1;
if i<=9 then write('0');
write(i);
i:=i+1;
until keypressed;
assign(output,'Number.txt');
rewrite(output);
writeln('No.',i);
close(output);
end.
我是想用随机抽取数，但不用randomize.
要通过键盘按键来抽取。
这个程序有问题，编译通过了，可是总会运行不了。
出现Error 200：Division by zero
求解！求解！[em18][em18]
