Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Ви5Кторинка
1 / 1 / 0
Регистрация: 19.01.2012
Сообщений: 23
#1

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

15.05.2012, 19:35. Просмотров 563. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Текстовый файл. Замена символов. (Pascal ABC):

Записать последовательность символов в текстовый файл, вставляя символы перевода строки через каждые 40 символов - Pascal ABC
Дана последовательность символов, заканчивающаяся точкой и вводимая пользователем с клавиатуры. Необходимо записать её в текстовый файл,...

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

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

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

Замена символов в строках / Запись в результирующий файл - Pascal ABC
Народ, помогите пожалуйста дописать алгоритм замены символов (он должен быть на месте ??? в процедуре Alg). Собственно, текст задания: ...

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

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

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

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

Дан текстовый файл f, содержащий 20 строк. Получить g исключая из i той строки f i последних символов - Pascal ABC
Дан текстовый файл f, содержащий 20 строк. Получить g исключая из i-той строки f i последних символов.

Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины - Pascal ABC
1. Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины.Пример Длина 1-5 Длина 2-3 Длина 3-10 2....


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

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

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