21 Практическая работа Работа со строками

1. Вывод символов по ASCII-кодам:
begin
WriteLn(Char(35)); // #
WriteLn(Char(64)); // @
WriteLn(Char(123)); // {
end.


2. Показать код символа, введённого пользователем:
var
c: Char;
begin
Write('Введите символ: ');
ReadLn(c);
WriteLn('Код символа: ', Ord(c));
end.


3. Объединить строки и символ:
var
s1, s2, res: string;
c: Char;
begin
s1 := 'Чебурашка';
s2 := 'Гена';
c := 'и';
res := s1 + c + s2;
WriteLn(res); // ЧебурашкаиГена
end.


4. Длина строки и поиск подстроки 'ар':
var
s: string;
pos_ar: Integer;
begin
Write('Введите строку: ');
ReadLn(s);
WriteLn('Длина строки: ', Length(s));
pos_ar := Pos('ар', s);
if pos_ar > 0 then
WriteLn('Подстрока "ар" найдена на позиции: ', pos_ar)
else
WriteLn('Подстрока "ар" не найдена');
end.


5. Коррекция слова "ПРРИЕР" в "ПРИМЕР":
var
s: string;
begin
s := 'ПРРИЕР';
Delete(s, 3, 1); // Удаляем лишнюю "Р" (третий символ)
Insert('М', s, 4); // Вставляем "М" на позицию 4
WriteLn(s); // ПРИМЕР
end.


6. Перевернуть строку и проверить палиндром (без учета пробелов и регистра):
var
s, s_clean, s_rev: string;
i: Integer;

function IsPalindrome(str: string): Boolean;
var
i, len: Integer;
begin
len := Length(str);
for i := 1 to len div 2 do
if str[i] <> str[len - i +1] then
begin
Result := False;
Exit;
end;
Result := True;
end;

begin
s := 'Ешь немытого ты меньше';

// Очищаем строку от пробелов и переводим в нижний регистр
s_clean := '';
for i := 1 to Length(s) do
if s[i] <> ' ' then
s_clean := s_clean + LowerCase(s[i]);

// Переворот строки
s_rev := '';
for i := Length(s) downto 1 do
s_rev := s_rev + s[i];

WriteLn('Перевернутая строка: ', s_rev);

if IsPalindrome(s_clean) then
WriteLn('Строка является палиндромом')
else
WriteLn('Строка не является палиндромом');
end.


7. Подсчет символов 'е' и 'Е':
var
s: string;
count, i: Integer;
begin
s := 'Ешь немытого ты меньше';
count := 0;
for i := 1 to Length(s) do
if (s[i] = 'е') or (s[i] = 'Е') then
Inc(count);
WriteLn('Количество символов "е" и "Е": ', count);
end.