主题：有几个小编程不会，还请高手来帮帮忙！
yzqzsz
[专家分：0] 发布于 2005-12-19 20:38:00
1.有10个整数，求出奇数之各、偶数之和
2.给出A，B，C的值，先检查它们能否成为三角形的三条边，如不能构成三角形，显示“INPUTERROR！”，并要求重新输入，否则计算三角形的面积
3.某企业1999年实现了年产值9500万元，从95-99年连续四年的年产值增长率分别为21%，18%，25%30%。请编程计算95年的年产值是多少万元？99年在95年年产值的基础上翻了多少翻？
4。编程打印出100到200之间的所有素数，打印输出时每行输出5个数。
新手刚学，还请高手帮个忙！谢谢!
回复列表 （共5个回复）
沙发
zhaolinger123 [专家分：10] 发布于 2006-01-17 16:17:00
[em2]
~{5Z~}4~{Lb#:~}
cls
dim a(1 to 200)
for i=1 to 200
a(i)=1
next
for i=2 to 200
if a(i)=0 then goto 1
j=0
j=i+i
do while j<=200
a(j)=0
j=j+i
if j=200 then a(j)=0 :exit do
if j>200 then exit do
loop
1 next
for i=100 to 200
if a(i)=1 then print i;:n=n+1
if n=5 then print:n=0
next
板凳
zhaolinger123 [专家分：10] 发布于 2006-01-17 16:20:00
第4题
cls
dim a(1 to 200)
for i=1 to 200
a(i)=1
next
for i=2 to 200
if a(i)=0 then goto 1
j=0
j=i+i
do while j<=200
a(j)=0
j=j+i
if j=200 then a(j)=0 :exit do
if j>200 then exit do
loop
1 next
for i=100 to 200
if a(i)=1 then print i;:n=n+1
if n=5 then print:n=0
next
不好意思，刚才发的不好！
3 楼
zhaolinger123 [专家分：10] 发布于 2006-01-17 16:25:00
第一题
cls
dim a(1 to 10)
for i=1 to 10
input a(i)
next
for i=1 to 10
if a(i) mod 2=0 then sum1=sum1+a(i)
if a(i) mod 2=1 then sum2=sum2+a(i)
next
print “奇数和：”;sum2
print “偶数和:” ;sum1
4 楼
zzfwind [专家分：0] 发布于 2006-01-17 18:40:00
[em11]
input "a,b,c=";a,b,c
d=a+b-c:e=a+c-b:f=b+c-a
if d<=0 or e<=0 or f<=0 then
do
print "INPUTERROR!"
input "Input a,b,c again",a,b,c
loop until d>0 and e>0 and f>0
endif
p=(a+b+c)/2
s=p*(p-a)*(p-b)*(p-c)
s=sqr(s)
print s
5 楼
zzfwind [专家分：0] 发布于 2006-01-18 17:33:00
[em10]
很对不起啦，我错了，第二题正确的应该是这样：
input "a,b,c=";a,b,c
while a+b<=c or b+c<=a or a+c<=b
print "INPUTERROR!"
input "Input a,b,c again!",a,b,c
wend
p=(a+b+c)/2
s=p*(p-a)*(p-b)*(p-c)
s=sqr(s)
print "S=";s
我来回复
您所在位置：