Задача 4.2. Скласти програму для розв'язування квадратного рівняння.

Program PR1;
Var a,b,c,D,X1,X2:Real;
Begin
 Write ('Введіть а,b,c '); ReadLn(a,b,c);
   D:=a*a-4*a*c;
 If D>=0 Then
 Begin
       X1:=(-b+SQRT(D))/2*a;
       X2:=(-b-SQRT(D))/2*a;
 WriteLn('X1=',X1:5:2,' X2=',X2:5:2)
 End
 Else
 WriteLn ('Рівняння не має коренєв!')
End.
 

Результати роботи програми:
Введіть а, b, c 1 -2 8
Рівняння не має коренів!

Введіть а, b, c 3 -4 -1
X1=12.87 X2=-0.87

Завдання 4.2. Скласти програму для розв'язування рівняння ax+b=0 Зауваження. Ділення на нуль !!!