Паскаль. Как вывести числа из файла начиная с определенного?

[Женька Good]

Собственно говоря, то всё сказано в заголовке.
Как вывести на экран файлы записанные в файле?
Как вывести на экран числа начиная с определенного, например с 10.

Вот так я записываю числа в файл:

Procedure Fo(a:mas1; f1:myfile);
Var i:integer;
    j:integer;
begin
Randomize;
Assign(f1,'i:\OdMassiv');
rewrite(f1);
 For i:=1 to 100 do begin
  c1.a[i]:=round(10+random*(100-10));
  write(f1,c1);
 end;
 close(f1);
end;

[BDA]

Для облегчения перемещения указателя по файлу и доступа к компонентам типизированного файла существуют специальные процедуры и функции:

fileSize(<имя_ф_переменной>) – функция Паскаля, определяющая число компонентов в файле;

filePos(<имя_ф_переменной>) – функция Паскаля, значением которой является текущая позиция указателя;

seek(<имя_ф_переменной>,n) – процедура Паскаля, смещающая указатель на компоненту файла с номером n. Так, процедура seek(<имя_ф_переменной>,0) установит указатель в начало файла, а процедура seek(<имя_ф_переменной>, FileSize(<имя_ф_переменной>)) установит указатель на признак конца файла.

Используйте seek.
Зачем передаете в процедуру файловую переменную, а потом все равно ее инициализируете в процедуре файлом? Ну это, конечно, ваше личное дело.

[Serge_Bliznykov]

Женька Good, во-первых, ЗАЧЕМ вы ещё одну тему создаёте?! Вот в этой
Паскаль. В файл записываются только "0". Что делать? вы тот же вопрос задавали. и ответы получили..
видимо, ответы не помогли..

во-вторых, Вы думаете, что написанного Вами достаточно?
Когда неизвестно, что такое типы mas1 и myfile, откуда взялась (и главное, какого типа переменная C1) ?!

вот моя прога

Program Xme1ez_6_Record;
Uses Crt;
Type mas1=array [1..100] of integer;
Type mas2=array [1..100, 1..100] of integer;
type Xm=record
     a:mas1;
     a1:mas2;
     end;
     myfile=file of Xm;
Var f1:myfile;
    f2:myfile;
    c1:Xm;

Procedure Fo(a:mas1; f1:myfile);
Var i:integer;
    j:integer;
begin
Randomize;
Assign(f1,'i:\OdMassiv');
rewrite(f1);
 For i:=1 to 100 do begin
  c1.a[i]:=round(10+random*(100-10));
   Write('x',i,'=',c1.a[i],' ');
  write(f1,c1);
 end;
 close(f1);
end;

BDA, если вдруг соберётесь отвечать TC - весьма настойчиво рекомендую ознакомится предварительно с его предыдущей темой. я несколько постов подряд повторял ему одно и то же, повторял.. пока не устал..

[Женька Good]

BDA, если вдруг соберётесь отвечать TC - весьма настойчиво рекомендую ознакомится предварительно с его предыдущей темой. я несколько постов подряд повторял ему одно и то же, повторял.. пока не устал.. [/QUOTE]

Если уж решили потратить свое, как я понимаю, драгоценное время, чтобы помочь, так уж потрудитесь, чтобы человек, которому вы помогаете понял то, что вы пытаетесь к нему донести.
P.S.Если вы знаете, то это не значит, что все знают.

[Serge_Bliznykov]

я Вам пытаюсь объяснить, Вы меня не понимаете. А я не понимаю, что именно Вы не можете понять.. замкнутый круг..

ладно. сделаю ещё одну попытку..


то, что Xm - это тип данных, который описывает в своём составе ДВА массива - это, надеюсь, понятно?

var c1:Xm;
то, что переменная C1 это переменная, которая имеет тип Xm, таким образом эта переменная одна содержит в себе ДВА массива одновременно, это понятно?

дальше.
то, что если взять конструкцию с циклом
For i:=1 to 100 do <Что-То Делаем>,
то, очевидно, что <Что-То Делаем> выполнится (в теле цикла) ровно 100 раз. Это тоже очевидно?

если есть тип myfile=file of Xm;
то это описывает типизированный файл, каждый элемент которого является собой компонентой типа Xm. Это понятно?

Var f1:myfile;А если есть переменная f1 такого типа, то
Read(f1, C1); прочитает из файла f1 ровно одну компоненту (запись) типа Xm в переменную C1 - это понятно? А то, что переменная C1 представляет собой ДВА массива мы уже выяснили ранее. Значит,
Read(f1, C1); прочитает (за одну команду) ДВА массива из файла в переменную C1. Это понятно?

Дальше, если у нас это написано в цикле,
for i:=1 to 100 do
Read(f1, C1);
то мы прочитаем 100 раз по ДВА массива.
Это понятно?

То, что нам НЕ НУЖНО ЧИТАТЬ 200 МАССИВОВ из файла (да и не факт, что они в этом файле вообще есть!!) - это понятно?

Т.е. написанный Вами код по меньшей мере - некорректный (и почему так) - Вам теперь, надеюсь, стало понятно?!!