Program Dr; Var a,b,c,D,x1,x2:Real; Begin D:=b*b-4*a*c; Read(a,b,c); if D<0 Then Writeln...

Question

Program Dr;
Var a,b,c,D,x1,x2:Real;
Begin
D:=b*b-4*a*c;
Read(a,b,c);
if D<0 Then Writeln ('корней нет')<br> else if D=0 then begin x:=-b/(2*a):Writeln(x);
end;
else
begin x1:=(-b-SQRT(D))/(2*a);
x2:=(-b+SQRT(D))/(2*a);
Writeln(x1);
Writeln(x2);
end;
end.


Program1.pas(9) : Встречено 'else', а ожидался оператор.
В чём проблема?

Comments

Program1.pas(7) : Неизвестное имя 'x'

---

ну так вы не объявили её в var

---

ах точно!

---

Program1.pas(7) : Форматное выражение может использоваться только внутри write, writeln и str

---

на 7ой строчке

---

else if D=0 then begin x:=-b/(2*a):Writeln(x); и ещё в этой строке перед writeln вы поставили : вместо ;

---

ща попробую

---

там в ответах уже всё исправленное оставили

---

вижу

---

Спасибо!

Answer 1

Program Dr;
var
  a,b,c,D,x,x1,x2:Real;
begin
  Read(a,b,c);
  D:=b*b-4*a*c;
  if D<0 Then Writeln ('корней нет')<br>  else
    if D=0 then begin x:=-b/(2*a); Writeln(x); end
    else begin
      x1:=(-b-SQRT(D))/(2*a);
      x2:=(-b+SQRT(D))/(2*a);
      Writeln(x1);
      Writeln(x2)
    end
end.

Comments

исправлено приличное количество ошибок...

---

Работа программы проверена на тестовых примерах.