pascal 去除相邻而且重复随机数要怎么办?求一个思路.
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/16 17:20:41
pascal 去除相邻而且重复随机数要怎么办?求一个思路.
比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.
附上我的程序.还不过没有写上去重复的部分.不知道写 囧
比如,上一个随机数是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.
去重程序:
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 去除相邻而且重复随机数要怎么办?求一个思路.
【基础】去除重复数字 Pascal
pascal随机数
怎样用java产生一个指定范围而且不重复的随机数?
Pascal 中 random随机数产生器的用法?求详细用法.
pascal:明明的随机数
求一个特定区域内产生随机数不重复的算法.具体是这样的:
求PASCAL背包问题和无限背包思路和程序
产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal
一个两位数去除251,得到的余数是41.求这个两位数.说明思路,
pascal中如何产生随机数
free pascal怎样产生随机数