36 lines
732 B
Plaintext
36 lines
732 B
Plaintext
section
|
|
section
|
|
section
|
|
section
|
|
a = 1;
|
|
b = 5;
|
|
c = 6;
|
|
discriminant = ();
|
|
root1 = ();
|
|
root2 = ();
|
|
square-root-discriminant = ();
|
|
section
|
|
print EQUATION: (1x^2) + 5x + 6 = 0;
|
|
compute discriminant = ((b**2)-(4*(a*c)));
|
|
if (discriminant>0) then
|
|
compute square-root-discriminant = FUNCTION SQRT discriminant;
|
|
compute root1 = ((-b+square-root-discriminant)/(2*a));
|
|
compute root2 = ((-b-square-root-discriminant)/(2*a));
|
|
print The equation has two distinct real roots: ;
|
|
print Root 1: root1;
|
|
print Root 2: root2;
|
|
endif
|
|
else if (0==0) then
|
|
if (discriminant==0) then
|
|
compute root1 = (-b/(2*a));
|
|
print The equation has one real root: ;
|
|
print Root: root1;
|
|
endif
|
|
else if (0==0) then
|
|
print The equation has no real roots.;
|
|
endif
|
|
|
|
endif
|
|
|
|
stop run
|