Question

Где ошибка в программе нахождения дискриминанта Pascal. program 1; var a,b,c:real; d,x1,x2:real; begin write('Введите значение a: '); readln(a); write('Введите значение b: '); readln(b); write('Введите значение c: '); readln(c); d:=sqr(b)-4*a*c; if(d<0) then writeln('Корней нет'); else if(d=0) then begin x1:=(-b+sqrt(d))/(2*a); writeln('Корень уравнения x1 ',x1) end; else if(d>0) then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln('Корень уравнения x1 ',x1, 'Корень уравнения x2 ',x2) end; end.

Answer 1

Ответ:

1) program 1; - название программы

2) writeln('Корней нет');

else if(d=0) then - точка с запятой перед else

3) writeln('Корень уравнения x1 ',x1) end;

else if(d>0) then - точка с запятой перед else

Объяснение:

1) Имя программы может содержать символы: цифры, латинские буквы, знак подчеркивания. Имя должно начинаться с букв.

2) Перед else не ставится точка с запятой, поскольку это ключевое слово обозначает не начало нового оператора, а вторую часть условного оператора if ... then ... else

Answer 2

Ошибка в программе нахождения дискриминанта в Pascal заключается в неправильном использовании оператора "else". В данной программе после проверки условия "d<0" используется оператор "else", который не может быть использован с условием "d=0" или "d>0".

Для исправления программы, следует заменить оператор "else" на "else if(d=0)" перед блоком кода, который находится после проверки условия "d=0". Также, перед блоком кода, который находится после проверки условия "d>0", также следует использовать оператор "else if(d>0)".

Исправленный код программы нахождения дискриминанта в Pascal:

program 1; var a, b, c, d, x1, x2: real; begin write('Введите значение a: '); readln(a); write('Введите значение b: '); readln(b); write('Введите значение c: '); readln(c); d := sqr(b) - 4 * a * c; if d < 0 then writeln('Корней нет') else if d = 0 then begin x1 := (-b + sqrt(d)) / (2 * a); writeln('Корень уравнения x1: ', x1) end else if d > 0 then begin x1 := (-b + sqrt(d)) / (2 * a); x2 := (-b - sqrt(d)) / (2 * a); writeln('Корень уравнения x1: ', x1, ' Корень уравнения x2: ', x2) end; end.