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