作业帮PASCAL题目：随机产生一些1—100之间的整数,直到产生的数为50为止
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 18:19:57
PASCAL题目：随机产生一些1—100之间的整数,直到产生的数为50为止
PASCAL题目：随机产生一些1—100之间的整数,直到产生的数为50为止
PASCAL题目：随机产生一些1—100之间的整数,直到产生的数为50为止
楼上的程序好象不对吧
随即产生数字一定是要输出的
我觉得第一个道是不错就是没有输出
应该这样
var
i:longint;
begin
randomize;
repeat
i:=1+random(100);
writeln(i);
until i=50;
end.
上面的那位,好象一不小心就会死循环的样子
var
a:byte;
begin
randomize;
while random(100)<>50 do writeln(random(100));
end.
1你的程序a干啥用。
2你不断生成数字进行判断跟判断后输出效率有区别的。
我给你一个吧，我是学信息学竞赛的。
var
i,count,max:integer;
BEGIN
randomize;
max:=maxint;
for i:=1 to max do
if random(100)=50 then...
全部展开
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
i:longint;
begin
randomize;
repeat
i:=1+random(100);
until i=50;
end.