Question

Составить программу которая определяет коды двух введенных с клавиатуры символов (паскаль)

Answer 1

var a, b: char;

begin

  writeln('Введите первый символ');

  readln(a);

  writeln('Введите второй символ');

  readln(b);

  writeln('Код первого символа равен ', ord(a), ', код второго символа равен ', ord(b));

end.

Answer 2

Определение кодов символов в Pascal

Для определения кодов двух символов, введенных с клавиатуры, в Pascal можно использовать функцию `Ord`. Функция `Ord` возвращает числовое значение (код) символа, переданного в качестве аргумента.

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

program CharacterCodes;

var
  char1, char2: char;

begin
  writeln('Введите первый символ:');
  readln(char1);
  
  writeln('Введите второй символ:');
  readln(char2);
  
  writeln('Код первого символа: ', Ord(char1));
  writeln('Код второго символа: ', Ord(char2));
end.

В этой программе мы объявляем две переменные типа `char` - `char1` и `char2`. Затем мы запрашиваем у пользователя ввод первого символа и считываем его с помощью `readln`. Затем мы делаем то же самое для второго символа.

После этого мы используем функцию `Ord` для определения кодов символов и выводим их на экран с помощью `writeln`.

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

Пример использования программы

Введите первый символ:
A
Введите второй символ:
B
Код первого символа: 65
Код второго символа: 66

В данном примере пользователь вводит символы "A" и "B", и программа выводит их коды - 65 и 66 соответственно.

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