IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Запись текста в файл и etc.
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3

Репутация: -  0  +


??? Как нистранно, но завис в основном на теме "Запись текста в файл". Условие вроде как простые, но ...

- Записать текст в файл F. Переписать в перевернутом виде слова файла F в файл H (порядок слов в файле H должен совпадать с порядком исходных слов в файле F).

Кто может? Помогите плз ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Да тут вроде бы ничего нет сложного.

Если принять условие, что слова - это куски текста разделенные пробелами и знаками пунктуации (если конечно не надо переворачивать и пунктуацию тоже), то разобрать строку по словам не сложно. Ну а поменять порядок букв в слове - еще проще.

Попробуй сам справиться. Главное сделать правльное определение "слов".


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

Репутация: -  4  +


если ты читаешь с экрана (а как я понял, дело так и обстоит), то while not EOF(input) окончится, когда ты введешь символ конца файла (^Z, вроде... Ctrl-Z, то бишь). Если хочешь читать до Enter'а, попробуй вместо EOF поставить EOLn (конец строки)


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 3

Репутация: -  0  +


Спасибо за совет. Я только что подумал и просто сделал по другому (проще) через repeat (пока, например, я не допишу в конце слово end).
Но вот дальше по условию задачи - перевернуть все символы слов?
Я так понял, что нужно загонять слова в массив?
Кстати, ^Z - недействовал ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Цитата
Но вот дальше по условию задачи - перевернуть все символы слов?
Я так понял, что нужно загонять слова в массив?
Кстати, ^Z - недействовал ...


Не надо массивов:

...
SS:='';
For i:=Length(St) downto 1 do SS:=SS+St[i];
...

St - исходное слово
SS - "перевернутое" слово


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 20.10.2020 15:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name