Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Ви5Кторинка
1 / 1 / 0
Регистрация: 19.01.2012
Сообщений: 23
1

Текстовый файл. Замена символов.

15.05.2012, 19:35. Просмотров 619. Ответов 0
Метки нет (Все метки)

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

Программа (с модулями)

Pascal
1
2
3
4
5
6
7
unit Program1;
 
 interface
 type
 st= string;
 implementation
 end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
unit Program4;
 Interface
 uses Program1;
 
 procedure zamena (var stt:string);
 implementation
 procedure zamena (var stt:string);
 var i:integer; f:text;
 begin
 assign (f,'С:\text.txt');
 reset (f);
 while not (seekeof (f)) do
 begin
 read (f, i);
 write (i, ' ');
 i:=1;
 while i<=length (stt) do
 if stt[i]='б' then
 begin delete (stt,i,1);
 Insert('ку',stt,i);
 end
 else i:=i+1
 end;
 begin
 close (f);
 end;
 end;
 end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses Program1, Program4;
 
 var
 f:text;
 st: string;
 begin
 
 writeln ('Введите текст:');
 readln(st);
 writeln(f, st);
 zamena(st);
 writeln ('Измененный текст:',st);
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2012, 19:35
Ответы с готовыми решениями:

Записать последовательность символов в текстовый файл, вставляя символы перевода строки через каждые 40 символов
Дана последовательность символов, заканчивающаяся точкой и вводимая...

Файлы: переформатировать текстовый файл Т1 в файл Т2 с длинной строки N символов
составить программу которая переформатирует текстовый файл Т1 в файл Т2 с...

Текстовый файл. Получить новый файл, исключая из i-той строки i первых символов
Помогите, пожалуйста. Не знаю как перейти на нужную строку и создать новый...

Текстовый файл. Сформировать новый файл, исключив строки, длина которых превышает 50 символов
Дан текстовый файл. Сформировать новый файл, исключив из него строки, длина...

Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов больше 4 и меньш 6
Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2012, 19:35

Имеется текстовый файл.Напечатать первые 10 символов первой строки.
Пожалуйста помогите решить эту задачу очень вас прошу если можно то через путь

Определить число вхождений заданной цепочки символов в текстовый файл
Определить число вхождений заданной цепочки символов в текстовый файл Хелп,...

Замена символов в строках / Запись в результирующий файл
Народ, помогите пожалуйста дописать алгоритм замены символов (он должен быть на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru