Question

Написать программу на Паскале :Найти позицию букв в алфавите и букву по её номеру

Answer 1

===== PascalABC.NET =====

begin

 var s:='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

 var c := ReadlnChar('Какую букву ищем?');

 Println('Буква', c, 'в алфавите имеет номер', Pos(c, s));

 var i := ReadInteger('Какая по порядку буква Вам нужна?');

 Println('Это буква', s[i])

end.

Answer 2

Конечно, вот пример программы на Pascal, которая находит позицию буквы в алфавите и букву по её номеру:

pascalCopy code
program AlphabetPosition;
var
  letter: char;
  position: integer;
begin
  // Введите букву
  write('Введите букву: ');
  readln(letter);
  
  // Преобразуем букву в верхний регистр, чтобы обработать и маленькие и большие буквы
  letter := upcase(letter);
  
  // Проверяем, что введена буква английского алфавита
  if (letter >= 'A') and (letter <= 'Z') then
  begin
    // Находим позицию буквы в алфавите
    position := ord(letter) - ord('A') + 1;
    writeln('Позиция буквы "', letter, '" в алфавите: ', position);
  end
  else
  begin
    writeln('Введите букву английского алфавита.');
  end;
  
  // Введите номер позиции в алфавите
  write('Введите номер позиции в алфавите (1-26): ');
  readln(position);
  
  // Проверяем, что номер позиции в допустимом диапазоне
  if (position >= 1) and (position <= 26) then
  begin
    // Находим букву по номеру позиции
    letter := chr(ord('A') + position - 1);
    writeln('Буква на позиции ', position, ' в алфавите: ', letter);
  end
  else
  begin
    writeln('Введите номер позиции в допустимом диапазоне (1-26).');
  end;
end.

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