Question

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

Answer 1

Procedure Replace(var s: string; c: char);
var
  i: integer;
  Lett: set of char;
begin
  Lett := ['A'..'z', 'А'..'я'];
  for i := 1 to Length(s) do
    if s[i] in Lett then s[i] := LowCase(s[i])
    else s[i] := c
end;

var
  s1, s2: string;

begin
  write('Введите первую строку: ');
  readln(s1);
  write('Введите вторую строку: ');
  readln(s2);
  Replace(s1, '$');
  Replace(s2, '_');
  writeln(s1);
  writeln(s2)
end.

Тестовое решение:

Введите первую строку: Карл у Клары украл кораллы, а Клара у Карла... украла кларнет! 1+2+3+4+5=15 По-моему так!
Введите вторую строку: "Colorless green ideas sleep furiously"/ (Noam Chomsky, 1957).
карл$у$клары$украл$кораллы$$а$клара$у$карла$$$$украла$кларнет$$$$$$$$$$$$$$$по$моему$так$
_colorless_green_ideas_sleep_furiously____noam_chomsky________

Answer 2

Ниже представлена процедура на языке Python, которая выполняет описанную вами задачу:

pythonCopy code
def process_symbol(char):
    if not char.isalpha():
        return char
    else:
        return char.lower()

# Пример использования процедуры
string1 = "Hello, World!"
string2 = "12345"
symbol1 = "A"
symbol2 = "?"

result1 = process_symbol(symbol1)
result2 = process_symbol(symbol2)

print(result1)  # Выводит "a", так как символ "A" является буквой
print(result2)  # Выводит "?", так как символ "?" не является буквой

В данной процедуре определяется функция process_symbol, которая принимает символ char в качестве аргумента. С помощью метода isalpha() проверяется, является ли символ буквой. Если символ не является буквой, он возвращается без изменений. В противном случае, символ приводится к нижнему регистру с помощью метода lower() и возвращается результат.

В примере использования процедуры показано, как можно передать символы в функцию process_symbol и получить соответствующие результаты.