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?
Vannes
3de graad ASO - donderdag 18 april 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
Re: Programmeren : vierkantsvergelijking oplossen 