Работа с числовыми файлами

danilos23

Дата: Суббота, 21.03.2009, 00:37 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 3

Репутация: 0

Замечания: 0%

Статус: Offline

Создать файл данных соответствующий условию задачи. Решить задачу с использованием данных созданого файла. Предусмотреть процедуру просмотра содержимого файла на екране дисплея.
Вот собственно сама задача:

Дан файл F, компонентыкоторого являються целыми числами. Получить в файле G все нечетные числа, входящие в файл F. Числа в файле G должны следовать в порядке не возрастания.

P.S. : буду очень благодарен если эту задачу решат в ближайшие два дня.

Сообщение отредактировал danilos23 - Суббота, 21.03.2009, 00:49

Seqular

Дата: Суббота, 21.03.2009, 11:36 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Не возрастание = убывание с повторениями. Т.е. нужно считать все в массив, отсортировать любым методом и записать в другой файл только нечетные числа

Поддерживаю также проект сообщество молодых сисадминов

Firefrominside

Дата: Суббота, 25.04.2009, 02:46 | Сообщение # 3

Уже "свой"

Группа: Модераторы

Сообщений: 85

Репутация: 0

Замечания: 0%

Статус: Offline

а по условию они в G должны быть отсортированны.
ТОгда просто задаёшь цикл
for i:=1 to n do begin
.................
................
................
i:=i+1;
end;

Большая просьба выкладывать хоть какой-то код Вашей программы.
Это поможет найти общий язык между Вами и нами! =)
И не забываем благодарить за помощь=)
Нужна помощь с задача С++? тебе сюда bc-for-all.ucoz.ru

Seqular

Дата: Суббота, 25.04.2009, 09:08 | Сообщение # 4

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Quote (Firefrominside)

Code

for i:=1 to n do begin
i:=i+1;
end;

Вряд-ли такая запись подойдет. Получается что мы меняем счетчик цикла (i) в самом цикле! И что же будем делать в массиве? Тем более G - результирующий файл, которого, я так понимаю, у нас нет! Он создается..

Поддерживаю также проект сообщество молодых сисадминов

Firefrominside

Дата: Понедельник, 27.04.2009, 06:17 | Сообщение # 5

Уже "свой"

Группа: Модераторы

Сообщений: 85

Репутация: 0

Замечания: 0%

Статус: Offline

Если у нас файл с целыми числами,то они должны быть разделемы запятой!
и тогда можно это использовать:
...................................

Code

k:=1;
while (NotEOF(f)) do begin
read(f,n);
if n=',' then k:=-k;
if k<0 then
write(n,g);
end;

...............................

Такое прокатит?

Seqular

Дата: Понедельник, 27.04.2009, 11:17 | Сообщение # 6

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Firefrominside, Нет, файл не раделяемый. Не Text. Компонентами являются целые числа, значит file of Integer. Бинарный

Поддерживаю также проект сообщество молодых сисадминов

		Понедельник, 03.02.2025
	Pascal 4 All