Question

Есть программа по нахождению квадратного уравнения:: 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" Что не так?

Answer 1

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

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

Answer 2

Видимо, у вас проблема с тем, как и где вы запускаете эту программу. Код сам по себе выглядит корректным, но ошибка, которую вы описываете, может возникать, если вы пытаетесь запустить этот код в некорректном окружении.

Программа, которую вы предоставили, написана на языке программирования Pascal. Вероятнее всего, вы пытаетесь запустить ее в каком-то среде программирования или интерпретаторе Pascal.

Если вы пытаетесь запустить этот код в среде Pascal, убедитесь, что вы правильно скопировали его туда и сохранены все изменения. Ошибка "Встречено '.', а ожидалось ';'" может возникнуть, если в коде где-то потерян символ ";" в конце строки.

Если вы пытаетесь запустить код в другой среде программирования или на каком-то онлайн-интерпретаторе, убедитесь, что этот код действительно соответствует языку программирования Pascal.

Если вы продолжаете сталкиваться с ошибками, пожалуйста, уточните, где и как вы пытаетесь запустить эту программу, и пришлите информацию о среде программирования или интерпретаторе, чтобы можно было более точно определить проблему.