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. Найти самое длинное слово среди слов, вторая буква которых есть “е’; если слов с наибольшей длиной несколько, то найти последнее. Если таких слов вообще нет, то сообщить об этом.