• 
  • 14 March 2021
  Информатика
  • Автор: ap4xi93

  

  Есть программа по нахождению квадратного уравнения::
  var a,b,c: real;
  x1,x2,D: real;
  begin
  readln(a,b,c);
  D := b*b - 4*a*c;
  if D<0 then
  writeln('Корней нет')
  else if D=0 then begin
  x1 := -b/2/a;
  writeln('x1=x2=',x1);
  end
  else begin
  x1 := (-b-sqrt(D))/2/a;
  x2 := (-b+sqrt(D))/2/a;
  writeln('x1=',x1,' x2=',x2);
  end;
  end.
  
  Но при запуске пишет ошибку "Встречено '.', а ожидалось ';'"
  Если . в конце меняю на ; то пишет: " Встречен конец файла, а ожидалось begin"
  Что не так?
  

• 
  • 14 March 2021
  • Ответ оставил: MaxLevs

  Запустил программу "как есть" в онлайн ide с разными наборами входных парамтеров, чтобы проверить все 3 варианта решения в действительных числах. Всё работает без каких-либо проблем. Ошибок не выдаёт. Всё так.

  Ошибка где-то вне кода.

  
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (30.11.2024) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы