Как исправить ошибку в паскале writeln

В языке программирования Pascal при написании кода, может возникнуть ошибка “Pascal встречено ‘writeln’, а ожидалось ‘;'”. Эта ошибка означает, что в коде не хватает ; и поэтому компилятор ожидает его. Итак, рассмотрим 5 причин, почему возникает эта ошибка и как ее избежать.

1. Отсутствие ‘;’ в конце оператора

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

writeln('Hello World')

Для исправления такой ошибки убедитесь, что добавили ; в конце оператора.

writeln('Hello World');

2. Неправильный порядок использования операторов

Если вы используете связку операторов в не правильном порядке, можете получить ошибку “Pascal встречено ‘writeln’, а ожидалось ‘;'”. Например, если вы используете символы переноса строки между операторами, при этом забывая ставить “;”, то в результате создается такая ошибка.

writeln('Hello');
writeln('World')

Для корректного исполнения, используйте точку с запятой между операторами.

writeln('Hello');
writeln('World');

3. Отсутствие директивы uses

Если в вашей программе отсутствует директива “uses”, то вы можете столкнуться с ошибкой “Pascal встречено ‘writeln’, а ожидалось ‘;'”. Это происходит потому, что компилятор не знает, какие модули должны быть загружены.

program Hello;
begin
  writeln('Hello World');
end.

Для корректировки ошибки нужно добавить директиву “uses”, указав на необходимый модуль.

program Hello;
uses crt;  
begin
  writeln('Hello World');
  readln;
end.

4. Неправильный порядок использования условий

Если вы используете условия в своем коде, но неправильно структурировали операторы, то вы получите ошибку “Pascal встречено ‘writeln’, а ожидалось ‘;'”. Это происходит, когда вы забываете использовать оператор “end” в блоке операторов.

if 2 > 1 then
  writeln('2 больше, чем 1');
writeln('Hello, World!');

Чтобы исправить ошибку, просто добавьте “end” после каждого блока операторов.

if 2 > 1 then
  writeln('2 больше, чем 1');
end;
writeln('Hello, World!');

5. Отсутствие перпендикуляра в конце

Еще одна причина ошибки “Pascal встречено ‘writeln’, а ожидалось ‘;'” – это отсутствие правильного символа перпендикуляра в конце оператора. В Pascal каждый оператор должен заканчиваться символом перпендикуляра (^). Если символ не указан, компилятор не сможет продолжить работу.

writeln('Hello, World!')

Для исправления, добавьте символ перпендикуляра после ;

writeln('Hello, World!')^

Вот и все пять причин ошибки “Pascal встречено ‘writeln’, а ожидалось ‘;'” и способы их устранения. Убедитесь, что вы следуете этим рекомендациям, при написании программ на Pascal и избегайте этой ошибки.

Неописанная переменная

begin
  S := 1; // Неизвестное имя S
end.

Все используемые переменные должны быть предварительно описаны с помощью ключевого слова var (внутри блока begin/end или, что обычно хуже, в разделе описаний вначале программы).

Отсутствующая ;

begin
  var S: integer 
  S := 1;         // Компилятор здесь скажет: Ожидалась ; — имеется ввиду предыдущая строка!
end.

begin
  var S := 1 
  S := S + 1  // Аналогично: проблема на предыдущей строке, а на текущей нет, потому что после неё идёт end.
end.

Очень частая ошибка у начинающих. Курсор, как правило, позиционируется в начале следующей строки.

Несовместимость типов при присваивании

begin
  var S: integer := 1.3; // Нельзя преобразовать тип real к integer
end.

Безболезненно можно присваивать только данные одного типа. Если данные – разных типов, то в редких случаях можно преобразовать данные одного типа в данные другого. Например, целое можно преобразовать в вещественное, а символ – в строку. Обратные преобразования не допускаются.

Чтобы не ошибаться в подобных простых случаях в Паскале есть следующая краткая форма объявления и инициализации переменной:

begin
  var S := 1.3; // Тип real будет выведен компилятором автоматически
end.

Отсутствие закрывающего апострофа литеральной строки

begin
  var x := 2;   // x получает тип integer
  var y := 3;   // y получает тип integer
  writeln('Результат сложения равен =, x + y); // Не хватает закрывающего апострофа
end.

Закрыть апостроф надо на той же строке, где расположен открывающий апостроф

Ошибки расстановки запятых и апострофов при выводе строк и выражений

begin
  var x := 2;   // x получает тип integer
  var y := 3;   // y получает тип integer
  writeln(x, '+,' y, '=', x+y); // Неверная расстановка запятых и апострофов
end.

Слишком много запятых и апострофов рядом, потому начинающие часто путаются 🙂
Надо уяснить правила:

• запятые разделяют разные элементы вывода
• все, что находится в апострофах, будет выведено на экран без изменений

Ошибка ввода

begin
  var x: integer;
  read(x); // введите блаблабла и посмотрите, что получится
end.

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

Аналогичный фрагмент в более современном и предпочтительном синтаксисе:

begin
  var x := ReadInteger;
end.

Ошибка неинициализированной переменной

begin
  var x: integer;
  // Забыли инициализировать или ввести x
  var r := x * x;  // r получает тип integer
  writeln('Квадрат числа ', x, ' = ', r);
end.

Перед использованием любую переменную надо ввести или присвоить ей начальное значение. Это действие называется инициализацией переменной.

Деление на 0

begin
  var x := 0;
  var c := 666 div x; // Здесь происходит деление на 0
end.

Если во время выполнения программа выполнит деление на 0, то она завершится с ошибкой.

Корень из отрицательного числа

begin
  writeln(sqrt(-1)); // Корень из отрицательного числа 
end.

В обычном Паскале возникает ошибка времени выполнения.
В PascalABC.NET выводится NaN – Not a Number

Ссылки

• Программы для начинающих
• Сайт PascalABC.NET: Программы и алгоритмы для начинающих