Dit programma heb ik niet zelf gemaakt, maar hierdoor ben ik ze wel zelf gaan maken

wat doet dit programma

Dit programma voert de ABC-formule voor je uit. Eerst vraagt het naar A,B en C. dan geeft hij de discriminant. als de discriminant kleiner is dan 0 geeft hij:"GEEN OPLOSSING". Anders geeft hij de X(en).

code

dit is de code die je moet invullen in je rekenmachine

 TITLE:ABC

:Prompt A,B,C

:B²-4AC→D

:Disp "DISCRIMINANT:"

:Disp D

:If D≥0

:Then

:(-B—√(D))/(2A)→X

:(-B+√(D))/(2A)→Y

:Disp "X1:",X,"X2:",Y

:Else

:Disp "GEEN OPLOSSING"

:End