Operation Manual

Ex  51
Create a program to determine solutions for quadratic equation
Cree un programa para determinar las soluciones de la ecuacion
cuadrática
Crie um programa para determinar soluções para equação
quadrática
Erstellen sie ein Programm, um die Lösungen für quadratische
Gleichungen zu bestimmen
Créez un programme pour déterminer les solutions pour une
équation quadratique
Generare un programma per det
erminare le soluzioni di
unequazione quadratica
Creëer een programma om een kwadratische vergelijking op te
lossen
Opret et program, der finder løsninger for andengradsligninger
Napisz program pozwalaj
cy rozwi
zywa
równania kwadratowe
Membuat sebuah program untuk
menentukan penyelesaian dari
persamaan kuadratik
A X
2
+ B X + C = 0, D = B
2
 4AC
1) D > 0
,
2) D = 0
3) D < 0
,
Program Type : MAIN
Line Program
1 I N P U T
A
,
B
,
C
;
2 D = B
2

4
A
C
3 E =

B
/
2
A
;
F =
(
A
B S
(
D
)
)
/
2
A
4 G = E + F
;
H = E

F
5 I F
(
D > 0
)
T H E N
{
P R I N T " X 1 = "
,
G
,
" X 2 = "
,
H
;
}
6 I F
(
D
==
0
)
T H E N
{
P R I N T " X = "
,
E
;
}
7 I F
(
D < 0
)
T H E N
{
P R I N T " X 1 = "
,
E
,
" + "
,
F
,
" I "
,
" X 2 = "
,
E
,
"

"
,
F
,
" I "
;
}
8 E N D
RUN
2 X 2  7 X + 5 = 0
X
1
= 2.5 , X
2
= 1
[
]
A =
PROG
DD