Else begin

i: =i+1;

j: =j+1

End

end;

Close(f);

end;

procedure zamena(numm: word);

Var

i, j: word;

txtt: string;

Begin

ReSet(f);

j: =1;

while not SEEKEOF(f) do begin

readln(f, txtt);

i: =1;

while i< =length(txtt) do begin

if (txtt[i]= ’*’) and (j< > numm) then begin

delete(txtt, i, 1);

insert(’-’ txtt, i);

end;

i: =i+1;

j: =j+1

end;

writeln(g, txtt);

end;

close(f);

close(g);

end;

Begin

assign(f, ’F: \fttt.txt’);

{$I-}

reset(f);

{$I+}

if IOResult < > 0 then

writeln(’ошибка открытия файла’)

Else begin

poisk(fl, num);

if fl then

writeln(’нет *’)

Else begin

assign(g, ’F: \gttt.txt’);

{$I-}

rewrite(g);

{$I+}

if IOResult < > 0 then

writeln(’ошибка открытия файла’)

Else

zamena(num)

end;

end;

end.

Задания для самостоятельного решения.

Вариант 1.

1. Дан символьный файл f. Напишите программу подсчета числа букв ’а ’ и ’б ’ в заданном файле. Вывести на экран сообщение, каких букв больше.

2. Дан символьный файл f. Преобразовать его следующим образом: если нет символа ’*’, то оставить его без изменений, иначе заменить каждый символ ’*’, встречающийся после первого его вхождения, на символ ’-’. Результат записать в файл g.

3. Дан символьный файл f. Посчитать сколько слов начинается с буквы ’М ’.

Вариант 2.

1. Дан символьный файл f. Написать программу, удаляющую из данного текста все буквы ’л ’.

2. Дан символьный файл f. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Удалить из файла все однобуквенные слова и лишние пробелы. Результат записать в файл g.

3. Дан символьный файл f, состоящий из слов. Проверить, встречается
ли заданное слово X в файле f.

Вариант 3.

1. Дан символьный файл f. Написать программу, которая каждую букву ’б’ в файле f заменяет сочетанием ’ку’.

2. Дан символьный файл f. Преобразовать ее следующим образом: удалить каждый символ ’*’ и повторить каждый символ, отличный от символа ’*’. Результат записать в файл g.

3. Дан символьный файл f. Преобразовать его следующим образом: удалить группы пробелов, которыми начинается и заканчивается последовательность, а также заменить каждую внутреннюю группу пробелов одним пробелом. Результат записать в файл g.

Вариант 4.

1. Дан символьный файл f. Определить число вхождений в файл f, группы букв ’aвс’.

2. Дан символьный файл f. Написать программу, подсчитывающую, сколько раз в данном файле встречается слово Y.

3. Дан символьный файл f. Написать программу, которая подсчитывает количество слов, в текстовом файле учитывая, что между словами может быть по несколько пробелов.

Вариант 5.

1. Дан символьный файл f. Выяснить, верно, ли, что в файле имеется, пять идущих подряд букв ’е’.

2. Дан символьный файл f. Написать программу, которая каждый встречающийся в файле заданный символ заменяет на заданную последовательность символов. Результат записать в файл g.

3. Дан символьный файл f. Написать программу, которая находит самое длинное слово, встречающееся в файле.

Вариант 6.

1. Дан символьный файл f, заменить все вхождения буквы ’а’ на ’о’. Результат записать в файл g.

2. Дан текстовый файл f. Исключить пробелы, стоящие в концах его строк. Результат поместить в файл g.

3. Дан текстовый файл f. Преобразовать ее следующим образом: удалить из слов этого файла все предыдущие вхождения последней буквы каждого слова. Результат поместить в файл g.

Вариант 7.

1. Дан текстовый файл f, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ. Результат поместить в файл g.

2. Дан текстовый файл f. Выяснить, сколько в файле слов перевертышей.

3. Дан текстовый файл f. Преобразовать его следующим образом: удалить из слов этого файла все последующие вхождения первой буквы каждого слова. Результат поместить в файл g.

Вариант 8.

1. Дан текстовый файл f. Преобразовать его следующим образом: если слово нечетной длины, то удалить его первую букву, если слово четной длины, то удалить его последнюю букву. Результат поместить в файл g.

2. Дан текстовый файл f. Подсчитать кол-во слов, у которых первый и последний символы совпадают.

3. Дан текстовый файл f, содержащий от 2 до 30 слов, в каждом из которых от 1 до 5 букв латинского или русского алфавита; между соседними словами - запятая, за последним словом - точка. В новый файл вывести все слова, которые встречаются в исходном файле по одному разу.

Вариант 9.

1. Дан текстовый файл f. Преобразовать его следующим образом: в каждом слове перенести последнюю букву в начало слова. Результат поместить в файл g.

2. Дан текстовый файл f. Удалить самое короткое слово из файла, учитывая, что все слова разной длины.

3. Дан текстовый файл f. Написать программу, которая сформирует новый файл g состоящий из этой же последовательности слов, но в обратном порядке.

Вариант 10.

1. Дан текстовый файл f. Преобразовать его следующим образом: в каждом слове перенести первую букву в конец слова. Результат поместить в файл g.

2. Дан текстовый файл f. Преобразовать его следующим образом: удалит из каждого слова все повторяющиеся символы. Результат поместить в файл g.

3. Дан символьный файл f. Найти самое длинное слово среди слов, вторая буква которых есть “е’; если слов с наибольшей длиной несколько, то найти последнее. Если таких слов вообще нет, то сообщить об этом.