>>425 たぶんBASIC固有の話ではなく、数値計算一般の問題だと思うが。
45 print r; x
ってのを入れてみろ。ヒントはそこに隠れていそうだな。
次に、手元に「BASICリファレンス マニュアル」があれば
SQR関数ってのも調べてみるといい。
それから、たぶん
40 x=b*r/a
の方がよさそう。区分求積法を教えてくれた人が
x=x+(r/a)なんて書いていたとしたら、その人の言うことは話半分に聞いておけ。

90行のp=4sってのは貼り間違いだろうと思うが要確認。