神马品牌网维修基金怎么计提:Pascal菜鸟级问题！
来源：百度文库 编辑：神马品牌网 时间：2024/05/02 18:36:52
不停随即生成1~10的自然数，并将其显示出来，直到键盘上按下s就停止，执行后面的语句
怎么做？
怎么做？
uses crt;
var ch:char;
i:integer;
finished:boolean;
begin
randomize;
finished:=false;
repeat
i:=random(10)+1;
write(i:3);
if keypressed then
if readkey='s' then finished:=true;
until finished;
end.
这个必须支持 uses crt，否则会报错。
这个在tp5.5下测试过了，应该符合你的要求（我的tp7下用不了crt)。
为什么要用uses crt
我认为不要啊！