WisFaq!

Programmeren : vierkantsvergelijking oplossen

Ik werk met een TI-83, invoeren waarden a, b en c, berekenen D en D afdrukken lukt allemaal, maar daarna geef ik eens de stappen met if then else want ik krijg telkens error
if D < 0
then
disp "geen opl"
else
if D = 0
then
disp "1opl", -B/(2*A)
else
disp "2opl",(-B-sqrt(D))/(2*A),"en",(-B+sqrt(D))/(2*A)
end
Wat doe ik fout?
Ook als ik al stop na disp "geen opl":end
geeft hij al een foutmelding?

Vanneste Diana
18-4-2013

Antwoord

Ik werk met de TI-89, maar ik veronderstel dat de structuur van het programma gelijkaardig is.
Met de volgende tekst werkt het programma :

:vkv()
:Prgm
:Input a
:Input b
:Input c
:b^2-4*a*c®d
:If d<0 Then
:Disp "geen opl"
:Else
:If d=0 Then
:Disp "1 opl",-b/(2*a)
:Else
:Disp "2 opl",(-b-Ö(d))/(2*a)," en ",(-b+Ö(d))/(2*a)
:EndIf
:EndIf
:EndPrgm

LL
19-4-2013