Begin
writeln ('Решение квадратного уравнения');
write ('Введите коэффициенты a, b, c>>');
readln (a, b, c);
d:=b*b=4*a*c;
if d<0 then writeln ('Корней нет');
if d=0 then
begin
x:=b/2/a;
writeln ('Корень уравнения x=', x:9:3)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
wrineln ('Корни уравнения :');
writeln ('x1=', x1:9:3);
writeln ('x2=', x2:9:3)
end
end.
В ЧЕМ ПРОБЛЕМА 4 СТРОКА ВЫДАЕТ ОШИБКУ (паскаль)
Begin
writeln ('Решение квадратного уравнения');
write ('Введите коэффициенты a, b, c>>');
readln (a, b, c);
d:=b*b=4*a*c;
if d<0 then writeln ('Корней нет');
if d=0 then
begin
x:=b/2/a;
writeln ('Корень уравнения x=', x:9:3)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
wrineln ('Корни уравнения :');
writeln ('x1=', x1:9:3);
writeln ('x2=', x2:9:3)
end
end.
В ЧЕМ ПРОБЛЕМА 4 СТРОКА ВЫДАЕТ ОШИБКУ (паскаль)
writeln ('Решение квадратного уравнения');
write ('Введите коэффициенты a, b, c>>');
readln (a, b, c);
d:=b*b=4*a*c;
if d<0 then writeln ('Корней нет');
if d=0 then
begin
x:=b/2/a;
writeln ('Корень уравнения x=', x:9:3)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
wrineln ('Корни уравнения :');
writeln ('x1=', x1:9:3);
writeln ('x2=', x2:9:3)
end
end.
В ЧЕМ ПРОБЛЕМА 4 СТРОКА ВЫДАЕТ ОШИБКУ (паскаль)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Ошибка на 4 строке вызвана неправильным использованием оператора сравнения. Вместо символа ">" нужно использовать символ ">", чтобы связать оператор сравнения "больше" с переменной d. Таким образом, строка должна быть записана следующим образом:
d := b b - 4 a * c;
После этой правки код должен корректно работать.