24小时热门版块排行榜

返回列表

66jia66

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 341.2
帖子: 127
在线: 59.2小时
虫号: 780704

[交流] 【求助】程序不运行，怎么样调试？？？

FUNCTION  P(N,X,Y,T)

   DIMENSION X(0:N),Y(0:N)
   P=0
   DO 10 I=0,N
   Q=Y(I)
      DO 20 J=0,N
      IF (J.EQ.I) THEN
      ELSE
            Q=Q*(T-X(J))/(X(I)-X(J))
      END IF
20 CONTINUE

10 P=P+Q
      END

回复此楼

» 猜你喜欢

1楼 2010-11-15 11:59:07

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

ykwang

金虫 (正式写手)

程序强帖: 2
应助: 0 (幼儿园)
金币: 3171.7
帖子: 639
在线: 386.4小时
虫号: 500302

★ ★
ajian04(金币+2):谢谢参与交流~ 2010-11-15 16:25:50

没有主程序，光一个函数子程序还有许多毛病(如变量T未定义等)怎能运行！

赞一下(1人)

回复此楼

2楼2010-11-15 12:30:39

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

66jia66

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 341.2
帖子: 127
在线: 59.2小时
虫号: 780704

ajian04:谢谢参与交流~ 2010-11-15 16:25:55

请问，该怎么办啊？我没学过这个程序，现在有点急用啊

赞一下(1人)

回复此楼

3楼2010-11-15 15:03:24

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

ykwang

金虫 (正式写手)

程序强帖: 2
应助: 0 (幼儿园)
金币: 3171.7
帖子: 639
在线: 386.4小时
虫号: 500302

66jia66(金币+1): 非常感谢 2011-02-09 21:47:07

引用回帖:

Originally posted by 66jia66 at 2010-11-15 15:03:24:
请问，该怎么办啊？我没学过这个程序，现在有点急用啊

既然不懂，那你该发个求助的帖子，看谁有时间能帮你啦。

赞一下

回复此楼

4楼2010-11-15 17:21:19

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 66jia66 的主题更新

返回列表