pascal 去除相邻而且重复随机数要怎么办?求一个思路.比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.附上我的程序.还不过没有写上去重复
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/25 10:57:21
![pascal 去除相邻而且重复随机数要怎么办?求一个思路.比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.附上我的程序.还不过没有写上去重复](/uploads/image/z/7645030-70-0.jpg?t=pascal+%E5%8E%BB%E9%99%A4%E7%9B%B8%E9%82%BB%E8%80%8C%E4%B8%94%E9%87%8D%E5%A4%8D%E9%9A%8F%E6%9C%BA%E6%95%B0%E8%A6%81%E6%80%8E%E4%B9%88%E5%8A%9E%3F%E6%B1%82%E4%B8%80%E4%B8%AA%E6%80%9D%E8%B7%AF.%E6%AF%94%E5%A6%82%2C%E4%B8%8A%E4%B8%80%E4%B8%AA%E9%9A%8F%E6%9C%BA%E6%95%B0%E6%98%AF3%2C%E5%A6%82%E6%9E%9C%E4%B8%8B%E4%B8%80%E4%B8%AA%E6%95%B0%E4%B9%9F%E6%98%AF3%E9%82%A3%E4%B9%88%E5%B0%B1%E6%8A%8A%E7%AC%AC%E4%BA%8C%E4%B8%AA3%E8%88%8D%E5%8E%BB%2C%E5%86%8D%E9%87%8D%E6%96%B0%E5%8F%96%2C%E7%9B%B4%E5%88%B0%E5%8F%96%E6%BB%A125%E4%B8%AA%E6%95%B0%2C%E7%84%B6%E5%90%8E%E8%BE%93%E5%87%BA.%E9%99%84%E4%B8%8A%E6%88%91%E7%9A%84%E7%A8%8B%E5%BA%8F.%E8%BF%98%E4%B8%8D%E8%BF%87%E6%B2%A1%E6%9C%89%E5%86%99%E4%B8%8A%E5%8E%BB%E9%87%8D%E5%A4%8D)
pascal 去除相邻而且重复随机数要怎么办?求一个思路.比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.附上我的程序.还不过没有写上去重复
pascal 去除相邻而且重复随机数要怎么办?求一个思路.
比如,上一个随机数是3,如果下一个数也是3那么就把第二个3舍去,再重新取,直到取满25个数,然后输出.
附上我的程序.还不过没有写上去重复的部分.不知道写 囧
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.