Процедуры и функции обработки строк Шутилина Л.А.

Текст и две разных буквы bukva1 и bukva2 вводятся с клавиатуры. Программа должна заменить в тексте все символы, совпадающие с bukva1 на bukva2. Если символа bukva1 в тексте не обнаружиться, то должно быть выведено сообщение об этом. Пример 1

Program zamena2_Pos; uses Crt; var Slovo: string; Bukva1, bukva2: char; len, i, k:integer; Begin clrscr; writeln ('Задайте текст'); readln (slovo); writeln ('Задайте первую букву '); readln (bukva1); writeln ('Задайте вторую букву'); readln (bukva2); len:=length(slovo); k:=0; i:=0; repeat k:=pos(bukva1,slovo); slovo[k]:=bukva2; i:=i+1; until k=0; if i=1 then writeln ('Буквы ', bukva1,' нет в этом тексте') else writeln (slovo,i:5); readln; end.

Составить программу, которая переставляет символы в заданном тексте задом на перед. Не использовать дополнительную строку. Пример 2

Program Palindrom; var Slovo: string; Bukva: char; len, i:integer; Begin writeln ('Задайте текст или число '); readln (slovo); len:=length(slovo); for i:=1 to len div 2 do begin bukva:=slovo[i]; slovo[i]:=slovo[len-i+1]; slovo[len-i+1]:=bukva; end; writeln (slovo); readln; end.

Program vstavka_simvolov; var Slovo: string; Bukva: char; len, i:integer; Begin writeln ('Задайте слово '); readln (slovo); len:=length(slovo); writeln ('Задайте букву '); readln (bukva); for i:=1 to len do insert (bukva,slovo,i+i); writeln (slovo); readln; end. Составить программу, которая в заданном тексте после каждой буквы вставляет заданный символ. Пример 3

Вы знаете, что каждый символ на клавиатуре имеет свой код. Компьютер работает как раз с этими кодами. ORD определяет код символа, CHR преобразовывает код обратно в символ. Var Simvol: char; Kod: integer; Begin... Kod:=ord(Simvol); Simvol:=chr(Kod);... Функции преобразования СНR и ORD

Составить программу, которая в заданном тексте меняет все заглавные буквы на прописные. Для того, чтобы это сделать, нам нужно: определить код символа с помощью функции ORD, проверить его, если он попадает в заданный интервал, пересчитать его преобразовать код обратно в символ с помощью обратной функции CHR Пример 4

Program Perevod_iz_bolshih_v_malenkie; var Slovo: string; Bukva1, bukva2: char; len, i, k:integer; Begin writeln ('Задайте текст'); readln (slovo); len:=length(slovo); k:=0; for i:=1 to len do begin k:=ord(slovo[i]); if (k>65) and (k