 Запись текста в файл и etc. |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| DEN_NAU |
 25.09.2003 14:18
Сообщение
#1
|
 Группа: Пользователи Сообщений: 3 Репутация:  0   |
??? Как нистранно, но завис в основном на теме "Запись текста в файл". Условие вроде как простые, но ...
- Записать текст в файл F. Переписать в перевернутом виде слова файла F в файл H (порядок слов в файле H должен совпадать с порядком исходных слов в файле F). Кто может? Помогите плз ... |
   |
 
|
| APAL |
25.09.2003 14:52
Сообщение
#2
|
 Смотрю...  Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Да тут вроде бы ничего нет сложного.
Если принять условие, что слова - это куски текста разделенные пробелами и знаками пунктуации (если конечно не надо переворачивать и пунктуацию тоже), то разобрать строку по словам не сложно. Ну а поменять порядок букв в слове - еще проще. Попробуй сам справиться. Главное сделать правльное определение "слов". -------------------- |
|
|
|
| DEN_NAU |
27.09.2003 7:03
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 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 - 17.12.2004 14:22 |
|
|
|
| trminator |
27.09.2003 7:46
Сообщение
#4
|
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
если ты читаешь с экрана (а как я понял, дело так и обстоит), то while not EOF(input) окончится, когда ты введешь символ конца файла (^Z, вроде... Ctrl-Z, то бишь). Если хочешь читать до Enter'а, попробуй вместо EOF поставить EOLn (конец строки)
-------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
|
|
|
| DEN_NAU |
27.09.2003 8:07
Сообщение
#5
|
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
Спасибо за совет. Я только что подумал и просто сделал по другому (проще) через repeat (пока, например, я не допишу в конце слово end).
Но вот дальше по условию задачи - перевернуть все символы слов? Я так понял, что нужно загонять слова в массив? Кстати, ^Z - недействовал ... |
|
|
|
| APAL |
29.09.2003 10:05
Сообщение
#6
|
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Цитата Но вот дальше по условию задачи - перевернуть все символы слов? Я так понял, что нужно загонять слова в массив? Кстати, ^Z - недействовал ... Не надо массивов: ... SS:=''; For i:=Length(St) downto 1 do SS:=SS+St[i]; ... St - исходное слово SS - "перевернутое" слово -------------------- |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.06.2025 22:38 |