PASCAL题目:随机产生一些1—100之间的整数,直到产生的数为50为止
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/03 13:06:18
![PASCAL题目:随机产生一些1—100之间的整数,直到产生的数为50为止](/uploads/image/z/3868166-38-6.jpg?t=PASCAL%E9%A2%98%E7%9B%AE%EF%BC%9A%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F%E4%B8%80%E4%BA%9B1%E2%80%94100%E4%B9%8B%E9%97%B4%E7%9A%84%E6%95%B4%E6%95%B0%2C%E7%9B%B4%E5%88%B0%E4%BA%A7%E7%94%9F%E7%9A%84%E6%95%B0%E4%B8%BA50%E4%B8%BA%E6%AD%A2)
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.