Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2009, 18:23   #1
Tanushka5606
Новичок
Джуниор
 
Регистрация: 05.05.2009
Сообщений: 2
Печаль Нужна помощь с лабой, не могу написать программу....

Лаба на тему:Изучение работы с файлами.
Задание звучит так:Считать текстовый файл, удвоив все буквы 'а'. Результат записать в другой текстовый файл.
Tanushka5606 вне форума Ответить с цитированием
Старый 05.05.2009, 18:33   #2
KORN
Банхаммер
Участник клуба
 
Аватар для KORN
 
Регистрация: 17.02.2007
Сообщений: 1,754
По умолчанию

элементарно, пробегаешься в цикле по тексту и копируешь его в другую переменную, как только встречается буква А ты добавляешь во 2й текст букву А и продолжаешь цикл... ну и в конце сохраняешь... для 2го текста юзай tstrings; и сохраняй через savetofile();
Перед тем как спросить ищи на форуме и в GOOGLE
KORN вне форума Ответить с цитированием
Старый 05.05.2009, 18:33   #3
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Что непонятно? Что не получается?
Где ваши наработки?

Задача-то простая.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 05.05.2009, 18:51   #4
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

Я уже приводил подобное решение (думаю не я один).. только без файлов и там удваивалась любая буква... всего лишь воспользоваться поиском, добавить конструкцию if и все это оформить для работы с файлами..
Uguu~
__STDC__ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Не могу найти ошибку. Нужна помощь! Nexx Помощь студентам 10 06.12.2007 19:12
Нужна помощь с задачей...никак не могу разобраться( Gekata Паскаль, Turbo Pascal, PascalABC.NET 4 13.12.2006 14:02