简单题 — 编程爱好者社区

主题：简单题

冰冻小企鹅 [专家分：190] 发布于 2009-02-26 20:03:00

输入N个任意数，将其中重复的删得只剩下一个！！（程序设计）
[em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9]
[em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18]

本帖地址： http://bbs.pfan.cn/post/294670.html

回复列表（共2个回复）

沙发

wjl8719 [专家分：190] 发布于 2009-02-27 18:50:00

print "输入多少个数？"
input "n=",n
dim a(n)
for i=1 to n
input a(i)
next
d=n
for p=1 to d
t=t+1
for q=1 to n
if a(p)=a(q) then
t=t-1
else
a(t)=a(p)
d=d-1
endif
next

for i=1 to d
print a(d)
next
end

板凳

冰冻小企鹅 [专家分：190] 发布于 2009-02-27 20:23:00

womintianzailaidafuni

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：简单题

回复列表（共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：简单题

回复列表 （共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共2个回复）