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