Запись текста в файл и etc. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Запись текста в файл и etc. |
DEN_NAU |
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
??? Как нистранно, но завис в основном на теме "Запись текста в файл". Условие вроде как простые, но ...
- Записать текст в файл F. Переписать в перевернутом виде слова файла F в файл H (порядок слов в файле H должен совпадать с порядком исходных слов в файле F). Кто может? Помогите плз ... |
DEN_NAU |
Сообщение
#2
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
Да вот начинаю писать прогу типа, чтобы только записать текст в текстовый файл. Все вроде пишется, но не закрывается, тоесть какой-то бесконечный ввод данных?
Код ... var F: text; ... BEGIN assign(F,'c:tp7text_1.txt'); {связываем переменную с файлом} rewrite(F); while (not eof(input)) do {цикл ввода пока не достигнет конца ввода} begin read(symb); {читаем каждый символ} write(F,symb); {записываем сиволы в файл} end; close(F); {закрываем файл} ... END. Вот, что тут не так? Сообщение отредактировано: volvo - |
Текстовая версия | 26.04.2024 10:04 |