高考问答生活启示录19集:PASCAL题目：随机产生一些1—100之间的整数,直到产生的数为50为止
来源：百度文库 编辑：高考问答 时间：2024/05/06 02:39:50
楼上的程序好象不对吧
随即产生数字一定是要输出的
我觉得第一个道是不错就是没有输出
应该这样
var
i:longint;
begin
randomize;
repeat
i:=1+random(100);
writeln(i);
until i=50;
end.
var
i:longint;
begin
randomize;
repeat
i:=1+random(100);
until i=50;
end.
1你的程序a干啥用。
2你不断生成数字进行判断跟判断后输出效率有区别的。
我给你一个吧，我是学信息学竞赛的。
var
i,count,max:integer;
BEGIN
randomize;
max:=maxint;
for i:=1 to max do
if random(100)=50 then break;
writeln(i);{输出在第一次试的时候出现50}
END.
上面的那位,好象一不小心就会死循环的样子
var
a:byte;
begin
randomize;
while random(100)<>50 do writeln(random(100));
end.