Помогите пожалуйста решить уравнения в среде qbasic

x1ca4064alexei2555Помогите пожалуйста решить уравнения в среде qbasic

Уравнений что-то не видно.
К сообщению приложен файл

Я делаю, но у меня все время застревает на том где надо ввести INPUT, открывается черный дисплей с тем что было рядом написано а там ничего не решить
вот другой пример делаю никак не решить

x1ca4064alexei2555пропущено...

К сообщению приложен файл

В нем нет уравнений.
ну не правильно выразился , функцию решить надо, не получается никак

по предыдущему файлу функция вот эта

допустим для последнего выражения y =
составил в qbasic такое
CLS
REM C с разветвлением
INPUT "Введите X"; X
IF X>1
Print "Условие ДА"
y = (1+X^2) / (1-x^2) + 1+ x ^4
Else
Print " Условие НЕТ"
y = (1+X^2) / (1-x^2) +1 -x^4
Print
Print "X="; X, "Y="; Y
End

когда нажимаю запуск открывается черный экран введите x -?

после нажимания Enter где стоит x? пишет y = 2 x = 0, а для условия нет ничего нет незнаю правильно или нет

alexei2555допустим для последнего выражения y =
составил в qbasic такое
CLS
REM C с разветвлением
INPUT "Введите X"; X
IF X>1
Print "Условие ДА"
y = (1+X^2) / (1-x^2) + 1+ x ^4
Else
Print " Условие НЕТ"
y = (1+X^2) / (1-x^2) +1 -x^4
Print
Print "X="; X, "Y="; Y
End

когда нажимаю запуск открывается черный экран введите x -?
кстати IF не x>1, a x < 1 , неправильно записал
CLS
REM C с разветвлением
INPUT "Введите X"; X
IF X< 1
Print "Условие ДА"
y = (1+X^2) / (1-x^2) + 1+ x ^4
Else
Print " Условие НЕТ"
y = (1+X^2) / (1-x^2) +1 -x^4
Print
Print "X="; X, "Y="; Y
End

x1ca4064alexei2555когда нажимаю запуск открывается черный экран введите x -?
кстати IF не x>1, a x < 1 , неправильно записал




Все правильно.
спасибо
сейчас еще посмотрю уравнение с циклическим алгоритмом

то есть не уравнение

вот для этого выражения
составил следующее
CLS
REM
Rem циклическое вычисление функции
Print "задание- 3/2"
FOR x 0 TO 3 STEP 0.5
M = ((sin(1+(x)/(15))))/((1+(x)/(15))^2)
PRINT "M ( ";x; " ) = "; M
Next x
end
то же не знаю правильно или нет

а вот где строка FOR в задание там x= 0 разделить на три помоему 3
это как для х=0 до 3 с шагом 0.5 или как то по другому записывается

может неправильно
что
FOR X= 0 TO 3 STEP 0.5
а не просто x
CLS
REM
Rem циклическое вычисление функции
FOR x = 0 TO 3 STEP 0.5
M = ((sin(1+(x)/(15))))/((1+(x)/(15))^2)
PRINT "M ( ";x; " ) = "; M
Next x
end