いっぱいいっぱいです（汗 大根 2003/09/08 16:51:31 

　　いっぱいいっぱいです（汗 大根 2003/09/08 16:51:31  ツリーへ

いっぱいいっぱいです（汗	返事を書く
大根 2003/09/08 16:51:31
今、台形の面積を半分にする高さをｘとして 求めるプログラムを作って このようなプログラムになったんですが 改良点などあるでしょうか？ ちなみに図は↓の物です ／~~B~~＼ /~~~~~~~~|　＼ / | | / | | /-----------|＼ C / | | | / | x | / | | | /_______________|／／ ＼_____A_______／ 100 INPUT PROMPT "A,B,C=":A,B,C 110 IF (A=0 AND B=0) OR C=0 THEN 120 PRINT "計算できません" 130 ELSE 140 LET P= 2*(B-A) 150 LET Q= 4*A*C 160 LET R= -(C^2*(B+A)) 170 LET D=Q^2-4*P*R 180 IF P=0 THEN 190 LET X=C/2 200 PRINT "X=";X 210 ELSE 220 LET X1=(-Q+SQR(D))/(2*P) 230 LET X2=(-Q-SQR(D))/(2*P) 240 IF X1>=C THEN 250 PRINT "X=";X2 260 ELSE 270 PRINT "X=";X1 280 END IF 290 END IF 300 END IF 310 END