| 查看: 623 | 回复: 2 | |||
[交流]
1stopt，代码有问题，帮忙看看，非常简单的，主要是因为初学
|
|
总是说没有发现关键词endprogram。。 Parameters P(1,11)[0,60],Q(1,11)[0,40],M(1,11)[0,1],N(1,11)[0,1]; CONSTANT K1=75,K2=13.89,K3=2.2,G1=56.25,G2=10.42,G3=0,R=0.36; startprogram; var i: integer; begin for i:=1 to 11 a=(i-1)/10; f1=(1-a)/(1+3.2*R); f2=(1+1.13*a)/(1+3.2*R)-f1; f3=1-f1-f2; Function P=(f1*K1/(1+M*(K1/P-1))+f2*K2/(1+M*(K2/P-1))+f3*K3/(1+M*(K3/P-1)))/(f1/(1+M*(K1/P-1))+f2/(1+M*(K2/P-1))+f3/(1+M*(K3/P-1))); Q=(f1*G1/(1+N*(G1/Q-1))+f2*G2/(1+N*(G2/Q-1))+f3*G3/(1+N*(G3/Q-1)))/(f1/(1+N*(G1/Q-1))+f2/(1+N*(G2/Q-1))+f3/(1+N*(G3/Q-1))); M=3*P/(3*P+4*Q); N=6*(P+2*Q)/5/(3*P+4*Q); end; endprogram; |
回复此楼» 猜你喜欢
26申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！
已经有1人回复
-
如何从铁电相到顺电相。
已经有1人回复
-
物理学I论文润色/翻译怎么收费?
已经有71人回复
-
各位大佬，求一份最新Wien2k版本作为学习用途
已经有0人回复
-
南科大活性流体和软物质课题组诚招2027级博士、硕士研究生和博后
已经有40人回复
-
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向
已经有24人回复
-
PRB投稿，Acknowledgment sent to author状态十天了
已经有3人回复
-
PVA溶解
已经有1人回复
-
基金申请
已经有44人回复
dingd
铁杆木虫 (职业作家)
- 计算强帖: 4
- 应助: 1641 (讲师)
- 金币: 15037.3
- 散金: 101
- 红花: 234
- 帖子: 3410
- 在线: 1223.7小时
- 虫号: 291104
- 注册: 2006-10-28
2楼2015-10-22 20:54:23
方世超
新虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 21.1
- 帖子: 25
- 在线: 28小时
- 虫号: 2983133
- 注册: 2014-02-21
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
3楼2015-10-23 15:17:33
15