应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 1stopt，代码有问题，帮忙看看，非常简单的，主要是因为初学
31/1返回列表
查看: 567  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

zzq4816

新虫 (小有名气)

[交流] 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;
回复此楼

» 猜你喜欢
1楼 2015-10-22 13:26:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
写的完全不对，先好好看看使用手册。
赞一下 回复此楼
2楼2015-10-22 20:54:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

方世超

新虫 (初入文坛)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
声明常亮是parameter: K1=75,K2=13.89,K3=2.2,G1=56.25,G2=10.42,G3=0,R=0.36;
声明的函数和数组也不是这样声明的呀,好好看看fortran语法再写，你写的不对，没办法编译别说运行了。祝你好运。
赞一下 回复此楼
3楼2015-10-23 15:17:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zzq4816 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭