二次関数

　　二次関数 ニコール・パックマン 2005/06/22 16:35:08 
　　└間違えました。最後から四行目は ニコール・パックマン 2005/06/22 16:38:00

　　二次関数 ニコール・パックマン 2005/06/22 16:35:08  ツリーへ

二次関数 返事を書く

ニコール・パックマン 2005/06/22 16:35:08

コンピューター用の二次関数を見つけました。

PRINT "x1は?"
INPUT XI
PRINT "yは1?"
INPUT YI
PRINT "xは2?"
INPUT XII
PRINT "yは2?"
INPUT YII
PRINT "x3は?"
INPUT XIII
PRINT "y3は?"
INPUT YIII
LET AYI=YI
LET AYII=YII
LET AYIII=YIII
1 LET B=(AYII-AYI)/(XII-XI)
LET C=AYI-B*XI
LET A=(AYIII-(B*XIII+C))/XIII^2
LET TYI=A*XI^2+B*XI+C
LET TYII=A*XII^2+B*XII+C
LET TYIII=A*XIII^2+B*XIII+C
LET AYI=YI/TYI*AYI
LET AYII=YII/TYII*AYII
LET AYIII=YIII/TYIII*AYIII
IF YI=TYI AND YII=TYII AND YIII=TYIII THEN GOTO 2 ELSE GOTO 1
PRINT "aは",A
PRINT "bは",B
PRINT "cは",C
END

　　└間違えました。最後から四行目は ニコール・パックマン 2005/06/22 16:38:00  ツリーへ

Re: 二次関数 返事を書く

ニコール・パックマン 2005/06/22 16:38:00

間違えました。最後から四行目は
2 PRINT "aは",A
です。

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

二次関数	返事を書く
ニコール・パックマン 2005/06/22 16:35:08
コンピューター用の二次関数を見つけました。 PRINT "x1は?" INPUT XI PRINT "yは1?" INPUT YI PRINT "xは2?" INPUT XII PRINT "yは2?" INPUT YII PRINT "x3は?" INPUT XIII PRINT "y3は?" INPUT YIII LET AYI=YI LET AYII=YII LET AYIII=YIII 1 LET B=(AYII-AYI)/(XII-XI) LET C=AYI-BXI LET A=(AYIII-(BXIII+C))/XIII^2 LET TYI=AXI^2+BXI+C LET TYII=AXII^2+BXII+C LET TYIII=AXIII^2+BXIII+C LET AYI=YI/TYIAYI LET AYII=YII/TYIIAYII LET AYIII=YIII/TYIII*AYIII IF YI=TYI AND YII=TYII AND YIII=TYIII THEN GOTO 2 ELSE GOTO 1 PRINT "aは",A PRINT "bは",B PRINT "cは",C END

Re: 二次関数	返事を書く
ニコール・パックマン 2005/06/22 16:38:00
間違えました。最後から四行目は 2 PRINT "aは",A です。