Var a,b,x: real; begin write ('Vvedite koaficient a,b»'); readln (a,b); if a<>0 then begin x:= -b/a; writeln ('Koren yravnenia x=', x:9:3); end else if b<>0 then writeln ('Korney net'); else writeln ('x- luboe chislo'); end. Как можно переделать программу, выдает ошибку?
Var a,b,x: real; begin write ('Vvedite koaficient a,b»'); readln (a,b); if a<>0 then begin x:= -b/a; writeln ('Koren yravnenia x=', x:9:3); end else if b<>0 then writeln ('Korney net'); else writeln ('x- luboe chislo'); end. Как можно переделать программу, выдает ошибку?
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
В данной программе ошибка заключается в том, что оператор else if должен быть использован после оператора if, а не после оператора else.
Вот исправленный вариант программы:
Var a,b,x: real;
begin
write ('Vvedite koaficient a,b»');
readln (a,b);
if a<>0 then
begin
x:= -b/a;
writeln ('Koren yravnenia x=', x:9:3);
end
else
if b<>0 then
writeln ('Korney net');
else
writeln ('x- luboe chislo');
end.
Теперь программа должна работать без ошибок.