 файл, переписать в другой файл, но размер файла неизвестен |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| anastasiya |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 5 Пол: Женский Реальное имя: Анастасия Репутация:  0   |
через 3 дня здавать практику а я пратически ничего не сделала. вот задача : Имеется файл с целыми чилами. Все четные числа записать в другой файл. Размер файла неизвестен.
|
   |
 
|
| Krjuger |
Сообщение
#2
|
|
Профи  Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: 20 |
var
fin,fout:text;
ch:integer;
.....................
.....................
while not eof(fin) do begin{пока не конец файла делаем....}
read(fin,ch);
if ch mod 2 =0 then{проверка четности}
write(fout,ch,',');
end;
Думаю остальное сама напишеш.....Тебе осталось инифиализировать файлы и все. (чтоб самой что нибудь да пришлось сделать....  |
|
|
|
| anastasiya |
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 5 Пол: Женский Реальное имя: Анастасия Репутация: 0 |
Цитата Думаю остальное сама напишеш.....Тебе осталось инифиализировать файлы и все. (чтоб самой что нибудь да пришлось сделать.... думаю получится надеюсь мозги еще не совсем вытекли, попробую. |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 15.04.2025 20:39 |
Связь с администрацией: bu_gen в домене octagram.name