| 查看: 572 | 回复: 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; |
回复此楼» 猜你喜欢
光学工程学硕调剂信息
已经有32人回复
-
欢迎加入课题组
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有166人回复
-
散金币，求好运，祝面上顺利！
已经有79人回复
-
华东师范大学芯片设计徐珑真实水平咋样
已经有1人回复
-
调剂
已经有0人回复
-
【新加坡】纳米电子器件项目组有“联合培养博士生”名额
已经有0人回复
-
中德博士后2026项目5月30日截止- 国内博士后入站、德国两年全职
已经有0人回复
-
面向全球申请人的中德博士后2026项目5月30日截止- 国内博后入站德国两年全职
已经有0人回复
-
【新加坡】纳米电子器件项目组有“联合培养博士生”名额
已经有2人回复
-
重庆交大材料学院26年硕士招生复试实施细则已出。欢迎加入光子学微结构与器件课题组。
已经有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
- 在线: 28小时
- 虫号: 2983133
- 注册: 2014-02-21
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
3楼2015-10-23 15:17:33
