Я получаю синтаксическую ошибку, когда запускаю следующий код:
Prompt A,B,C
B^2-4*A*C→Δ
If Δ IS<(0)
Disp "No Real Solutions"
If Δ=0
Disp "One Solution",-B/(2*A)
If Δ IS>(0)
Then
(-B-√(Δ))/(2*A)→E
(-B+√(Δ))/(2*A)→F
End
Какие-то проблемы с этим кодом?
Ваша проблема связана с использованием
If Δ IS<(0)
Команда IS< не проверяет меньше чем. Вместо этого он принимает переменную и значение в качестве параметров, увеличивает переменную и пропускает следующую строку кода, если переменная меньше значения. Вместо этого вы хотите сделать If Δ < 0, как сказал JFed-9.
Кроме того, дельта может быть проблемой, но сначала попробуйте сделать это выше.
Я никогда не видел символ «Δ» на TI-84 Plus, возможно, это может быть проблемой, но если нет, я готов поспорить, что проблема заключается в третьей строке.
If Δ IS<(0)
не является правильным. Вы должны заменить его на
If Δ < 0
Это должно сработать для вас. Кроме этого, вы должны быть хорошими! Хорошая стартовая программа, кстати!
Попробуй это:
Prompt A,B,C
B²-4AC
If Ans<0
Disp "No Real Solutions
If not(Ans
Disp "One Solution",-B/2/A
If D>0
Then
(-√(D)-B)/2/A→E
(√(D)-B)/2/A→F
End
