Pascal ABC. Выход за пределы диапазона изменения индекса 1..100.

[GreenWizard]

вот в этом коде и ошибка, ведь вы тут пишите, что файл хранит блоки по ПЯТЬ массивов, а во второй проге уже вдруг по одному массиву
см. мой текст серого цвета ибо тут куча логических ошибок, а не программных

[Serge_Bliznykov]

Сообщение от Женька Good

Задание, записать одномерный массив по формуле "round(10+random*(100-10))" в файл в одной программе и вывести его на экран с помощью другой программы.

Генерирую его вот этим программным кодом:

Program Z;
Uses Crt;
Type mas1=array [1..100] of integer;
type Xm=record
     a:mas1;
     a1:mas2;
     a2:mas2;
     a3:mas2;
     a4:mas2;
     end;
     myfile=file of Xm;
Var f1:myfile;
    i:integer;
    c1:Xm;
Begin
CLRSCR;
Randomize;
Assign(f1,'h:\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.

Бред полнейший!

во-первых, зачем вам ПЯТЬ массиво внутри одной записи?!

во-вторых, зачем Вы 100 раз по 5 МАССИВОВ записываете?!?!??!!!

Program Z;
Uses Crt;
Type mas1=array [1..100] of integer;
type Xm=record
     a:mas1;
  end;
  myfile=file of Xm;
Var f1:myfile;
    i:integer;
    c1:Xm;
Begin
  CLRSCR;
  Randomize;
  Assign(f1,'h:\OdMassiv');
  rewrite(f1);
  {сначала генерим 100 элементов ОДНОЙ записи}
  For i:=1 to 100 do
    c1.a[i]:=round(10+random*(100-10));

  {потом записываем ОДИН раз}
  write(f1,c1);
  close(f1);
end.

[Женька Good]

Сообщение от Serge_Bliznykov

Бред полнейший!

во-первых, зачем вам ПЯТЬ массиво внутри одной записи?!

во-вторых, зачем Вы 100 раз по 5 МАССИВОВ записываете?!?!??!!!

Program Z;
Uses Crt;
Type mas1=array [1..100] of integer;
type Xm=record
     a:mas1;
  end;
  myfile=file of Xm;
Var f1:myfile;
    i:integer;
    c1:Xm;
Begin
  CLRSCR;
  Randomize;
  Assign(f1,'h:\OdMassiv');
  rewrite(f1);
  {сначала генерим 100 элементов ОДНОЙ записи}
  For i:=1 to 100 do
    c1.a[i]:=round(10+random*(100-10));

  {потом записываем ОДИН раз}
  write(f1,c1);
  close(f1);
end.

Ну вот теперь всё понятно, спасибо.

[GreenWizard]

прога-генератор:

Program Z;
Uses Crt;
Type mas1=array [1..100] of integer;
type Xm=record
     a:mas1;
     end;
     myfile=file of Xm;
Var f1:myfile;
    i,j:integer;
    c1:Xm;
Begin
CLRSCR;
Randomize;
Assign(f1,'h:\OdMassiv');
rewrite(f1);
// создаём ПЯТЬ  записей в файле
 For j:=1 to 5 do begin
 For i:=1 to 100 do 
  c1.a[i]:=round(10+random*(100-10));
  write(f1,c1);
 end;
 close(f1);
end.

чтение:

Program Y;
Uses Crt;
Type mas1=array [1..100] of integer;
type Xm=record
     a:mas1;
     end;
     myfile=file of Xm;
Var f1:myfile;
    i:integer;
    c1:Xm;
Begin
CLRSCR;
Randomize;
Assign(f1,'h:\OdMassiv');
reset(f1);
while not eof(f1) do begin
  read(f1,c1);
 // вывод прочитаного
 For i:=1 to 100 do 
    write('|', c1.a[i], '|');
  writeln('');
 end;
 close(f1);
end.

чуть опоздал)

[Женька Good]

Как я понял, то чтобы начать формировать другой массив из чисел, которые мы записали в файл, нужно использовать "Seek()"
как мне записать его?

Program R;
Uses Crt;
Type mas1=array [1..100] of integer;
type Xm=record
     a:mas1;
  end;
  myfile=file of Xm;
Var f1:myfile;
    f2:myfile;
    i:integer;
    c1:Xm;
    
Procedure RecOd(f1:myfile);
Var i:integer;
Begin
  Randomize;
  Assign(f1,'h:\OdMassiv');
  rewrite(f1);
  For i:=1 to 100 do
    c1.a[i]:=round(10+random*(100-10));
  write(f1,c1);
  close(f1);
end;

{Procedure Create1(f2:myfile);
Var i:integer;
Begin
  Assign(f1,'h:\OdMassiv');
  reset(f1); }

Procedure ReadF(f1:myfile);
Var i:integer;
begin
 Assign(f1,'h:\OdMassiv');
 reset(f1);
 WriteLn('',FileSize(f1));
   Seek();
  While not eof(f1) do
   begin
   Read(f1,c1);
   for i := 1 to 100 do
   write('|',i,'=',c1.a[i],'|');
   end;
  Close(f1);
end;

Begin
 CLRSCR;
 RecOd(f1);
 readf(f1);
 Readln;
end.

[Serge_Bliznykov]

Как я понял, то чтобы начать формировать другой массив из чисел, которые мы записали в файл, нужно использовать "Seek()"
как мне записать его?

вы лучше задание (что вы пытаетесь сделать) полностью процитируйте.
а куда seek() вставить мы потом с вами разберемся!

[Женька Good]

сформировать одномерный массив и записать его в 1 файл.
записать матрицу 3х3 сформированную из чисел, взятых из 1 файла с одномерным массивом, начиная с 15 числа по порядку во 2 файл.

[FireWindX]

var
x0,y0: real;
x,y,d: array[1..10] of real;
i: longint;
begin
readln(x0,y0);
for i:=1 to 10 do readln(x[i],y[i]);
for i:=1 to 10 do
d[i]:=sqrt(sqr(x[i]-x[0])+sqr(y[i]-y[0]));
if (d[i]<=30) then writeln ('Yes')
else writeln ('No');
end.

[Stilet]

Создай свою тему. Не лезь в чужую.

P.S. А ошибка потому что ты пишешь x[0], в то время как сама размерность массива начинается с единицы, и первый элемент надо писать так: x[1]