pascal 去除相邻而且重复随机数要怎么办?求一个思路.比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.附上我的程序.还不过没有写上去重复
来源:学生作业学帮网 编辑:学帮网 时间:2024/05/28 19:24:43
pascal 去除相邻而且重复随机数要怎么办?求一个思路.
比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.
附上我的程序.还不过没有写上去重复的部分.不知道写 囧
把后面重复的数字改为0,在输出时把不等于0的数输出即可!
去重程序:
var
a:array[1..200]of longint;
i,n,b,m:longintr;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for b:=i+1 to n do
begin
if a[i]=a[b] then a[b]:=0;
end;
m:=0;
for i:=1 to n do
begin
if a[i]0 then inc(m);
end;
writeln(m);
for i:=1 to n do
if a[i]0 then write(a[i],' ');
end.
pascal 去除相邻而且重复随机数要怎么办?求一个思路.比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.附上我的程序.还不过没有写上去重复
html中怎么去除重复随机数
pascal随机数
请问用C语言怎麼产生1至64的随机数?而且不重复的?
pascal中如何产生随机数
free pascal怎样产生随机数
产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal
怎么用excel生成随机数并且相邻两行不重复如题
怎样用java产生一个指定范围而且不重复的随机数?
谁能告诉我这段pascal语言什么意思1〜40不重复随机数,我不懂它怎么来的
excel随机数生成怎样在A2:A577中产生10000---9999999之间的随机数?而且要不重复.我用的是2003
如何产生不重复随机数
如何产生不重复随机数
如何产生不重复随机数
有重复元素的排列问题pascal
c#生成6个随机数,要求1到33之间不重复的随机数,要最简单的写法
c#生成6个随机数,要求1到33之间不重复的随机数,要最简单的写法
matlab如何产生不重复的随机数啊?比如我想实现产生8个1-----100的随机数,而且不要重复,我自己另外写了一个函数,但是感觉写得不好,有没有现成可用的函数啊?