Program Equation;
var a,b,c,x1,x2,d:real;
begin
write ('Введіть коефіцієнти:');
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln ('Коренів немає') else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
if x1<0 and x2<0 then writeln ('Корені відємні')else
if x1>0 and x2>0 then writeln ('Корені додатні')else
if x1>0 and x2<0 then writeln ('Корені мають різні знаки')else
if x1<0 and x2>0 then writeln ('Корені мають різні знаки')else
writeln ('Корені є: ',x1:6:2, x2:6:2);
end;
end.
какая тут ошибка и как ее исправить? пишет, что нельзя преобразовать тип real к integer в рядах
if x1<0 and x2<0 then writeln ('Корені відємні')else
if x1>0 and x2>0 then writeln ('Корені додатні')else
if x1>0 and x2<0 then writeln ('Корені мають різні знаки')else
if x1<0 and x2>0 then writeln ('Корені мають різні знаки')else.
157
377
Ответы на вопрос:
Популярно: Информатика
-
sasha235sasha10.10.2020 23:33
-
Unknоwn04.12.2021 09:27
-
FlayakaDanya29.03.2021 12:36
-
Lialimur03.03.2020 00:18
-
Neznau2722.06.2021 07:20
-
Sayonara1328.12.2021 20:11
-
alb12309.12.2021 08:00
-
denisDergunov26.08.2020 10:42
-
IIIayni21.09.2022 23:13
-
Veronika69112.08.2020 22:59