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

[Женька Good]

При считывании из файла данных пишет, что выход за пределы диапазона индексов в 19 строке(выделена красным)

Program Record;
Uses Crt;
Type mas1=array [1..100] of integer;
Type mas2=array [1..100, 1..100] of integer;
type Xm=record
     a:mas1;
     end;
     myfile=file of Xm;
Var f1:myfile;
    c1:Xm;
    i:integer;
Begin
CLRSCR;
 Assign(f1,'h:\OdMassiv');
 reset(f1);
  While not eof(f1) do
  begin
  Read(f1,c1);
  write('|',c1.a[i],'|');
  end;
 readln;
end.

[Hacker19_90]

Ну а чего вы хотели когда обращались по 0 в лучшем случае индексу?

[Женька Good]

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

Ну а чего вы хотели когда обращались по 0 в лучшем случае индексу?

А как записать правильно?

[GreenWizard]

Program Record;
Uses Crt;
Type mas1=array [1..100] of integer;
Type mas2=array [1..100, 1..100] of integer;
type Xm=record
     a:mas1;
     end;
     myfile=file of Xm;
Var f1:myfile;
    c1:Xm;
    i:integer;
Begin
CLRSCR;
 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],'|');
  end;
 readln;
end.

а вообще же, неужели ты так глуп и не понимаешь, что за 1 read считываешь один массив? что переменная i у тебя равна всегда нулю? ты хоть в спорт зал ходишь, чтоб мог хоть руками работать, если головой трудно? я вон только сделал 6 упражнений по 3 подхода с 10 повторами, но мне это не мешает шарить в коде! даже инвалидность не мешает, а тебе что мешает врубится в эти чёртовые файлы?

P.S. сорри, не сдержался
P.S.S. случаем не Позднеев Жека?

[Hacker19_90]

GreenWizard по меньше агрессии! Своё мнение держи при себе! -

[Женька Good]

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

Program Record;
Uses Crt;
Type mas1=array [1..100] of integer;
Type mas2=array [1..100, 1..100] of integer;
type Xm=record
     a:mas1;
     end;
     myfile=file of Xm;
Var f1:myfile;
    c1:Xm;
    i:integer;
Begin
CLRSCR;
 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],'|');
  end;
 readln;
end.

а вообще же, неужели ты так глуп и не понимаешь, что за 1 read считываешь один массив? что переменная i у тебя равна всегда нулю? ты хоть в спорт зал ходишь, чтоб мог хоть руками работать, если головой трудно? я вон только сделал 6 упражнений по 3 подхода с 10 повторами, но мне это не мешает шарить в коде! даже инвалидность не мешает, а тебе что мешает врубится в эти чёртовые файлы?

P.S. сорри, не сдержался
P.S.S. случаем не Позднеев Жека?

и ты вообще в курсе, что получается?

[Hacker19_90]

и ты вообще в курсе, что получается?

Женька Good а вот что делаете то и получается!
Каким образом файл генерируете? Тут не телепаты!
Задание напиши! И код ВЕСЬ желательно!

[GreenWizard]

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

и ты вообще в курсе, что получается?

фигня получается, а знаешь почему? потому что ты типа решил задачу, выложил код и думаешь, что это "глупый Паскаль не работает", а ошибка-то в твоём решении и без условия задачи помочь не реально
в коде ты хотел вывод считанного элемента - это и получил

[Serge_Bliznykov]

например, так, как было написано в вашей предыдущей теме - ТЫРК
(ну, разумеется, типы нужно изменить под ваши новые):

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


begin
  CLRSCR;
  Assign(f1,'h:\OdMassiv');
  reset(f1);
  WriteLn('Всего в файле записей (массивов): ',FileSize(f1));
  While not eof(f1) do
  begin
     Read(f1,c1);
     for i:=1 to 100 do 
        write('|',c1.a[i],'|');
     WriteLn;
     WriteLn;
  end;
  Close(f1);
  Readln
end.

[Женька Good]

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

Женька 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.