Почему в QBasic пишет "деление на ноль" и как это исправить ?

Question

Почему в QBasic пишет "деление на ноль" и как это исправить ?

Тимур Матюнин Ученик (39), закрыт 14 лет назад

CLS
FOR X = 0 TO 5 STEP .2
LET Y = SIN(X ^ 2) * COS(X) * COS(X) / (X - 1)
I = X - 1
IF I = 0 THEN PRINT "H.P." ELSE
IF Y < 0 THEN K = K + 1
NEXT X
PRINT "K="; K
END

Answer 1

При x = 1 при вычислении Y происходит деление на ноль.
Для твоей задачи решение:
CLS
FOR X = 0 TO 5 STEP .2
I = X - 1
Y=0
IF I <> 0 THEN Y = SIN(X ^ 2) * COS(X) * COS(X) / (X - 1)
IF Y < 0 THEN K = K + 1
NEXT X
PRINT "K="; K
END

Answer 2

Потому что когда X станет равным 1, будет деление на 0. Это ясно видно.

Answer 3

Не Скажу Мыслитель (7090) 14 лет назад

cos(x)/(x-1) != cos(x/(x-1)) это раз
второе при x=1

Answer 4

Во- первых, LET уже давно писать не надо. Во-вторых (и самое главное)
I = X - 1
IF I = 0 THEN PRINT "H.P." ELSE должно стоять перед
LET Y = SIN(X ^ 2) * COS(X) * COS(X) / (X - 1) иначе как раз при Х=1 и получается деление на ноль. Еще до проверки оператором IF