Question

Запишем на языке Паскаль программу, в которой для введённой с клавиатуры буквы на экран выводится её код. Затем на экран выводится строка, представляющая собой последовательность из трёх букв используемой кодовой таблицы: буквы, предшествующей исходной; исходной буквы; буквы, следующей за исходной.

Answer 1

var a:char;

   k:integer;

   s:string;

begin

 writeln('Введите букву: ');

 readln(a);

 k:=ord(a);

 writeln('Код буквы ',a,' = ',k);

 s:=chr(k-1)+chr(k)+chr(k+1);

 writeln(s);

end.

Answer 2

Для написания программы на языке Паскаль, которая будет выполнять указанные действия, следуйте приведенному ниже коду:

pascalCopy code
program CharCodeAndNeighbors;

var
  inputChar: Char;
  prevChar, nextChar: Char;
  inputCode, prevCode, nextCode: Integer;

begin
  // Вводим букву с клавиатуры
  Write('Введите букву: ');
  ReadLn(inputChar);

  // Получаем код введенной буквы
  inputCode := Ord(inputChar);

  // Вычисляем коды соседних букв (предшествующей и следующей)
  prevCode := inputCode - 1;
  nextCode := inputCode + 1;

  // Преобразуем коды обратно в буквы
  prevChar := Chr(prevCode);
  nextChar := Chr(nextCode);

  // Выводим результаты на экран
  WriteLn('Код введенной буквы "', inputChar, '" : ', inputCode);
  WriteLn('Последовательность из трёх букв:');
  WriteLn(prevChar, inputChar, nextChar);

  // Ждем нажатия клавиши Enter, чтобы закрыть программу
  WriteLn('Нажмите Enter, чтобы закрыть программу.');
  ReadLn;
end.

Программа позволяет пользователю ввести букву с клавиатуры, затем выводит код этой буквы. Далее, программа вычисляет коды соседних букв (предшествующей и следующей за введенной буквой), и выводит последовательность из трех букв: предшествующей, введенной и следующей.

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