| 查看: 542 | 回复: 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; |
回复此楼» 猜你喜欢
求标准粉末衍射卡号 ICDD 01-076-1802
已经有0人回复
-
新西兰Robinson研究所招收全奖PhD
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有296人回复
-
石墨烯转移--二氧化硅衬底石墨烯
已经有0人回复
-
笼目材料中量子自旋液体基态的证据
已经有0人回复
-
数学教学论硕士可以读数学物理博士吗？
已经有0人回复
-
德国亥姆霍兹Hereon中心汉堡分部招镁合金腐蚀裂变SCC课题方向2026公派博士生
已经有4人回复
-
澳门大学 应用物理及材料工程研究院 潘晖教授课题组诚招博士后
已经有11人回复
-
求助NH4V4O10晶体的CIF文件
已经有0人回复
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
- 在线: 24.9小时
- 虫号: 2983133
- 注册: 2014-02-21
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
3楼2015-10-23 15:17:33