FORTRAN77のプログラミングについて教えてください。
・学校の課題で任意の数値の平均と、入力した数の個数を出力するプログラムを作 りなさいという課題が出たのですがうまくいきません。次にあげるプログラムの 中で修正する部分を教えてください。
*課題2 平均値
integer N
real X,T1,M
* 初期値
N=0
T1=0
* 累積
10 read(5,*,end=20) X
N=N+1
T1=T1+X
go to 10
* まとめ
20 if(N.GE.2) then
M=T1/N
write(6,*) '総数は' ,N, '平均は',M
ELSE
IF(N.EQ.1) THEN
WRITE(6,*) '総数は',N, '平均は',T1
ELSE
WRITE(6,*) '数値がない'
END IF
END IF
END
・この問題は最初からよくわかりません。教えてください。
「3つの数a,b,cを読み込む。a,b,cを三角形の3辺の長さとしたとき三角形にな るかを判定しなさい。三角形にならない場合はその面積をヘロンの公式を求め て表示する。
s=(a+b+c)/2 , ss=s(s-a)(s-b)(s-c) として
S=sqrt(ss) とする。」
以上の二つです。分かる方お願いします。