※ 引述《wind19890909 (我这个笨蛋...)》之铭言： : 老师出的作业 : 但是我写好他一直跟我说有一个ERROR : 但是我都找不到 : 有大大们可以帮我吗ORZ : program HW2_3 : open(unit=9,file='out2_3') : real*4 pi,i,j,d,k,a // open 要摆在 real*4 的下一行 fortran 是属於比较古老的一种电脑语言， 1954年 诞生的，为了 维持 後向相容的精神， fortran 有很多不合理的 规定， 可执行的叙述，要放在 所有的变数宣告的叙述之後 : write(*,*) '这是一个让人求出三角形第三边长以及面积的程式!' : write(9,*) '这是一个让人求出三角形第三边长以及面积的程式!' : write(*,*) '请输入第一边长，i=??' : read(*,*) i : write(*,*) '请输入第二边长，j=??' : read(*,*) j : write(*,*) '请输入夹角d=??(0<d<180)' : read(*,*) d : write(9,*) '三角形第一边长i=',i : write(9,*) '三角形第二边长j=',j : write(9,*) '三角形两边夹角d=',d : pi=atan(1.0)*4.0 : k=(i**2+j**2-2*i*j*cos(d*pi/180))**0.5 : a=0.5*i*j*sin(d*pi/180) : write(*,*) '计算得三角形第三边长k=',k : write(9,*) '三角形第三边长k=',k : write(*,*) '计算得三角形面积a=',a : write(9,*) '三角形面积a=',a : stop : end : 感谢了ORZ --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 211.77.241.1