Ошибка неожиданный символ в паскале

Andrew_97, учите матчасть. Получилось так, что Вы написали совершенно не по теме.

Так как с пятой строкой проблемы, то нужно посмотреть дамп этой самой пятой строки:

Addr 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f
0000 a0 20 6e 2c 20 69 2c 20 73 3a 20 69 6e 74 65 67 . n, i, s: integ
0010 65 72 3b .. .. .. .. .. .. .. .. .. .. .. .. .. er;

Видите? первый символ в строке не символ пробела (код 020h), а символ неразрывного пробела (код 0a0h). Выглядит этот неразрывный пробел в точности как обычный пробел, но, так как он не входит в алфавит языка паскаль, то воспринимается средой программирования как ошибочный.

Откуда этот «не тот» пробел взялся в программе, вопрос к Dmitryow. Наверное, скопировал код из какого-нибудь «типографского» редактора, например, из Microsoft Word, или скопировал код откуда-нибудь из интернета. В пользу копирования говорит тот факт, что пятые строки приведённых Dmitryow программ полностью идентичны.

Для справки: символ неразрывного пробела используется во всех кодировках unicode и во многих ANSI-кодировках, в частности, в русскоязычной кодировке для Windows CP-1251. Отличается от обычного пробела тем, что при переносе по словам на месте неразрывного пробела запрещается перенос на следующую строку.

Dmitryow, при таких ошибках проще всего удалить строку целиком (чтобы не разбираться, где именно прячется недопустимый символ), и напечатать строку заново ВРУЧНУЮ.

Начал изучать программирование на паскале по видеоурокам с ютуба. Все абсолютно одинаково, но почему-то у автора программа запускается, а у меня выдает «Неожиданный символ» на последней строке (end.)

type 
  Human=class
    public
      Name:string;
      Age:integer;
      Height:integer;
  end;
  
var
  h:Human;
begin
  h:new Human;
  writeln('Привет! Я хочу немного узнать о тебе.');
  write('Как тебя зовут?');
  readln(h.Name);
  write('Прекрасно, ', h.Name, 'а теперь скажи, сколько тебе лет?');
  readln(h.Age);
  if (h.Age>17) then 
      writeln('Здорово! Ты уже совершеннолетний!') 
    else 
      writeln('Ой! Да ты еще совсем мал.');
  write('Ладно. А скажи-ка, какой у тебя рост?');
  readln(h.Height);
  writeln();
  writeln('Отлично. Мы собрали всю необходимую информацию:');
  writeln('Тебя зовут', h.Name, '. Тебе ', h.Age, ' лет. И твой рост ', h.Height);
  write('Ну вот и все. Всего хорошего', h.Name, '!');
end.

Что здесь не так?

2 ответа:

Читайте также

На сайте решения олимпиадных задач acmp.ru есть несколько компиляторов Паскаля: PascalABC.NET 3.8, Free Pascal 3.2.2, Delphi 7.0.

Один и тот же код решения интерактивной задачи получает Accepted (принято) на Free Pascal и Delphi и Presentation Error 1 (ошибка представления на первом тесте) на PascalABC.NET. Судя по продолжительному статусу Running (исполняется) при сдаче, какая-то сторона не может дождаться данных от другой — или интерактор от решения, скомпилированного PascalABC.NET, или наоборот.

При замене чтения данных с readln(c); на c := Console.ReadLine()[1]; программа получает Accepted (принято). То есть есть основания предполагать, что readln пытается прочитать больше символов, чем сейчас доступно для чтения — и блокируется — а потом программу снимают по пределу времени.

Для версии PascalABC.NET 3.5.1 (которая была на сайте до 29.05.2020) есть решения интерактивных задач, которые используют readln. То есть проблемы в 3.5.1 точно нет. В 3.8 и актуальной 3.8.3 проблема есть.

Предположительно в какой-то версии PascalABC.NET после 3.5.1 происходило ускорение ввода — и это ускорение ввода читает слишком много символов вперёд — и это приводит к зависанию решений интерактивных задач. Альтернативно (но менее вероятно) flush(output); перестал выполнять свою функцию. Менее вероятно, потому что при чтении через Console.ReadLine() программа успешно работает без необходимости flush(output);.

Ссылка на условие интерактивной задачи и возможность сдать: https://acmp.ru/index.asp?main=task&id_task=1465

Полный код решения интерактивной задачи на классическом Паскале (принимается на Free Pascal и Delphi, не принимается на PascalABC.NET).

var
  mid, left, right: integer;
  c: char;
  
begin
  left := 0; // left < answer
  right := 1000 * 1000 * 1000 + 1; // right > answer
  while true do
  begin
    mid := (left + right) div 2;
    writeln(mid);
    flush(output);
    readln(c);
    if c = '<' then begin
      right := mid;
    end
    else if c = '>' then begin
      left := mid;
    end
    else if c = '=' then begin
      exit;
    end
    else begin
      writeln('неожиданный символ - >', c, '<');
      halt(1);
    end;
  end;
end.

Полный код решения, используя чтение .NET — принимается даже несмотря на отсутствие сброса буфера потока output.

var
  mid, left, right: integer;
  c: char;
  
begin
  left := 0; // left < answer
  right := 1000 * 1000 * 1000 + 1; // right > answer
  while true do
  begin
    mid := (left + right) div 2;
    writeln(mid);
    c := Console.ReadLine()[1];
    if c = '<' then begin
      right := mid;
    end
    else if c = '>' then begin
      left := mid;
    end
    else if c = '=' then begin
      exit;
    end
    else begin
      writeln('неожиданный символ - >', c, '<');
      halt(1);
    end;
  end;
end.