Как сделать чтоб программа не воспринимала Заглавные буквы - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Как сделать чтоб программа не воспринимала Заглавные буквы»

textual
Листинг программы
const NY: array [Boolean] of String[3] = ('','НЕ ');
function UpCase(c: Char): Char;
begin
  case c of
    'a'..'z', 'а'..'п': Dec(c,32);
    'р'..'я': Dec(c,80);
    'ё': Dec(c);
  end;
  UpCase:=c;
end;
var
  s: String;
  i, j: Integer;
begin
  Write('Введите строку: '); ReadLn(s);
  for i:=Length(s) downto 1 do begin
    s[i]:=UpCase(s[i]);
    if not (s[i] in ['0'..'9','A'..'Z','А'..'Я','Ё']) then Delete(s,i,1);
  end;
  i:=1; j:=Length(s);
  while (i<j) and (s[i]=s[j]) do begin
    Inc(i); Dec(j);
  end;
  WriteLn('Фраза -- ',NY[i<j],'палиндром');
end.

Объяснение кода листинга программы

  1. Создаётся константа NY, которая представляет собой массив строк, где каждая строка состоит из двух символов. В данном случае, массив содержит две строки: '','НЕ '.
  2. Создаётся функция UpCase, которая принимает символ в нижнем регистре и возвращает его в верхнем регистре. Внутри функции используется оператор case для определения, какой набор символов соответствует вводимому символу.
  3. Создаётся переменная s типа String, которая будет хранить введенную пользователем строку.
  4. Создаются две переменные i и j типа Integer, которые будут использоваться для прохода по строке s.
  5. Выводится сообщение Введите строку: и считывается строка с помощью функции ReadLn.
  6. Используя цикл for, происходит проход по каждому символу строки s. Внутри цикла вызывается функция UpCase для каждого символа и происходит замена текущего символа на его верхний регистр. Также проверяется, является ли текущий символ палиндромом (равноценной последовательностью символов как слева направо, так и справа налево). Если символ не является палиндромом, то он удаляется из строки s с помощью функции Delete.
  7. Инициализируются переменные i и j, чтобы начать сравнение символов.
  8. Запускается цикл while, который продолжается до тех пор, пока i меньше j и символы s[i] и s[j] равны друг другу. Внутри цикла происходит увеличение переменной i и уменьшение переменной j.
  9. По окончании цикла выводится сообщение Фраза --, а затем выводится массив NY с соответствующим символом.
  10. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы