BASICの宿題はお前にまかせた

BASICの宿題はお前にまかせた at TECH

406:デフォルトの名無しさん
09/10/03 18:21:41
>>403
BASICは方言が多いから環境を明示すべきだぜ。②はこんな感じで（十進数BASIC用）
100 !問題2 ヘロンの公式
110 FUNCTION HERON(A,B,C)
120 LET S=(A+B+C)/2
130 LET S=S*(S-A)*(S-B)*(S-C)
140 IF S<0 THEN !三角形で無いなら-1を返す
150 LET HERON=-1
160 ELSE !三角形なら面積を返す
170 LET HERON=SQR(S)
180 END IF
190 END FUNCTION
200 PRINT "３辺の長さ(例 3,4,5):"
210 INPUT A,B,C
220 LET S=HERON(A,B,C)
230 IF S >=0 THEN
240 PRINT "面積："; S
250 ELSE
260 PRINT "三角形ではない"
270 END IF
280 END

次ページ

続きを表示

1を表示