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

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

15.05.2012, 19:35. Просмотров 599. Ответов 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.

http://www.cyberforum.ru/pascalabc/thread699391.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2012, 19:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Текстовый файл. Замена символов. (Pascal ABC):

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

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

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

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

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

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

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

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

Текстовый файл. Вывести его содержимое с исключением символов, отличных от букв и пробела
Дан текстовый файл. Составить программу вывода на экран его содержимого с...

Имеется текстовый файл. Вывести на экран все его строки, содержащие более 15 символов
Добрый день! Решите пожалуйста программу. Имеется текстовый файл. Вывести на...


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

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

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