program hanshu
implicit none
real::w
parameter(w=500.0)
real::u
parameter(u=1.2)
real::s(4)=(/400.0,300.0,200.0,130.0/)
integer i
complex::kn
real::f=(2.0)
do i=1,3
Kn=cmplx((w*u*0.5/s(i))**(0.5),(-(w*u*0.5/s(i))**(0.5)))
f=kn*f
end
do
write(*,*)"f",f
stop
end
D:\exercise\tiaoshi\1.f90
D:\exercise\tiaoshi\1.f90(12) : Error: An unterminated block exists.
do i=1,3
^
D:\exercise\tiaoshi\1.f90(17) : Error: An unterminated block exists.
do
^
Error executing df.exe.
1.obj - 2 error(s), 0 warning(s)
人生的方向在哪里,求各位高手解答,小弟不胜感激!
站在靠近梦想的地方,人之所以在选择时优容寡断是因为总在希望在可选择的范围内选到的是更适于自己的,或是最好的抉择,没有犀利眼光。因为犹豫未作任何选择与努力见识最大的错误与损失。不要因为不会而不去做,你比别人先去做了,就会比别人先会及获得优势。还有梦想,就别犹豫,从梦想脚下做起,同...
...要有规则的“我,爱,李,惠”四字,请君劳神,小弟不胜感激...
念念不忘名是惠
...鼠标键盘都没反应 求高手解答 小弟不胜感激啊
1、你的电源是否稳定 2、你的电风扇是否正常是不是散热效果不好 3、你的BOIS里面设置是否正确,有没有超频(你的电脑能否支持;设置省电功能时间设置过短, 导致你的电脑频繁黑屏死机)4、最后就是你的电脑是否兼容的问题了 希望以上能帮到你 ...
感谢赠书经典语录精选44句
2、【解释】:涕:眼泪;零:落。因感激而流泪。形容极度感激。3、此刻就是我最美好的时光,我收到了我心心念念的书,我非常谢谢我的朋友,谢谢他们一直如此的关心我照顾我,让我享受到生活中的美好.希望在以后的日子里,我们能够友谊长存。4、希望大家不吝赐教,小弟感激不尽!5、您能降贵纡尊来...
求各位高人帮忙解答一下这几道三角函数的题吧~本人将不胜感激呐!
1. tanx=sinx\/cosx = cosx sinx = (cosx)^2 ∵(sinx)^2 + (cosx)^2=1 ∴(sinx)^2 + sinx =1 解得:sinx=(-1±√5)\/2 ∵sinx的值域是[-1,1]∴sinx=(√5-1)\/2 2. 两边平方:(sinx + cosx)^2 =(sinx)^2 + 2sinxcosx + (cosx)^2 = 1+sin2x =1\/25 sin2x=-...
关于纺织机械行业的问题?高手解答,小弟不胜感激!
进一步加大对高能耗、高污染等落后生产工艺和设备的淘汰力度。棉纺行业重点淘汰建国前生产的以及所有“1”字头纺纱和织造设备,A512型、A513型系列细纱机;毛纺行业重点淘汰B250型毛精纺机、H212型毛织机等落后设备;印染行业重点淘汰74型染整生产线、落后型号的平网印花机、热熔染色机、热风布铗拉幅机、短...
感激不尽造句-用感激不尽造句
(7) 提的问题比较杂,还请高手不吝赐教,小妹在这 感激不尽 了! (8) 倘能对我说一声“相信”,我便心满意足, 感激不尽…… (9) 对你的隆情厚谊,我们全家 感激不尽。 (10) 希望大家不吝赐教,小弟 感激不尽! (11) 请教一下各位大侠们,那位帮我解答一下,在下 感激不尽!!! (12) 山本先生,您把阿...
...都试了.求各位高手学霸们师哥师姐们解答,不胜感激!
解法一:∵齐次方程y''=y'的特征方程是r²=r,则r1=1,r2=0 ∴此齐次方程的通解是y=C1e^x+C2 (C1,C2是积分常数)∵设原方程的解为y=Ax²+Bx 代入原方程得2A=2Ax+B+x ==>2A=B,2A+1=0 ==>A=-1\/2,B=-1 ∴原方程的特解是y=-x²\/2-x 故原方程的通解...
...是会出现两行英文?请求高手帮我解决问题,小弟不胜感激!
答案一:没联网,联下网。答案二:补丁不对,重新下载下补丁。答案三:客户端DATA错误。卸载完在安装下就好了。
10 10 11 12怎么样等于24求高手解答,不胜感激~
10÷10+11+12=24