Pascal (Паскаль) Файлы - Помощь студентам

DRGNforce · 28.05.2010, 04:12

Дан файл, компоненты которого являются действительными числами. Найти произведение нечетных компонент файла.

DoDge_VipeR · 28.05.2010, 04:14

Действительные числа = Вещественные числа ==> четность и нечетность у них не определяется!

Grag · 28.05.2010, 07:19

Читай внимательно задание! "Нечетных компонент файла"... значит элементов файла с нечетными позициями... А вообще, задания пишут с двояким смыслом

DoDge_VipeR · 28.05.2010, 07:23

A если бы было так: компонент файла >5. это тоже порядковые номера >5 брать?

Grag · 28.05.2010, 07:33

Так устанавливай указатель на нужный компонент файла и бери его...

Код:

f:file of real:


reset(f);
N:=1;
while not Eof(f) do
  begin
    seek(f,N);
    read(f, Numb);
    Inc(N,2)
  end

28.05.2010, 04:12	#1
DRGNforce Пользователь Регистрация: 27.02.2010 Сообщений: 18	Pascal (Паскаль) Файлы Дан файл, компоненты которого являются действительными числами. Найти произведение нечетных компонент файла.

28.05.2010, 04:14	#2
DoDge_VipeR Форумчанин Регистрация: 30.04.2010 Сообщений: 317	Действительные числа = Вещественные числа ==> четность и нечетность у них не определяется! icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!

28.05.2010, 07:19	#3
Grag А может и не... Участник клуба Регистрация: 27.03.2010 Сообщений: 1,269	Читай внимательно задание! "Нечетных компонент файла"... значит элементов файла с нечетными позициями... А вообще, задания пишут с двояким смыслом Перемешивай дело с бездельем и не сойдешь с ума...

28.05.2010, 07:23	#4
DoDge_VipeR Форумчанин Регистрация: 30.04.2010 Сообщений: 317	A если бы было так: компонент файла >5. это тоже порядковые номера >5 брать? icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!

28.05.2010, 07:33	#5
Grag А может и не... Участник клуба Регистрация: 27.03.2010 Сообщений: 1,269	Так устанавливай указатель на нужный компонент файла и бери его... Код: `f:file of real: reset(f); N:=1; while not Eof(f) do begin seek(f,N); read(f, Numb); Inc(N,2) end` Перемешивай дело с бездельем и не сойдешь с ума... Последний раз редактировалось Grag; 28.05.2010 в 07:38.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск