Delphi 7

[nvse]

Здравствуйте,вопрос вот в чём:я не знаю как мне сделать поэлементное считывание из файла(тип:2-х мерный массив).

КОД

program Project2;

{$APPTYPE CONSOLE}
uses
SysUtils;

Const
N=3;

Type
ARR=Array[1..N,1..N] of integer;
Var
Sum:real;
X:file of ARR;
Y:ARR;
i,j:byte;

begin
writeln('VVOD');
For i:=1 to N do
For j:=1 to N do
begin
write('A[',i,',',j,']= ');
readln(Y[i,j]);
end;

Assign(X,'D:/Massive.txt');
rewrite(X);
write(X,Y); // запись массива,который вводится, в файл.
close(X);

reset(X);

For i:=1 to N do
For j:=1 to N do

read(X[i,j],Y[i,j]); //вот здесь происходит ошибка


readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Не подскажете как можно сделать данное поэлементное считывание?Заранее спасибо.

@темы: Работа

Comments

[Forumsdk]

read(X,Y)

если нужно по одному значению считывать, то нужен файл типа integer, и придумать порядок записи и считывания в этот файл

[A r i s e n]

А почему X[i,j]? Файл же один...

read(X,Y[i,j]);

[nvse]

A r i s e n да,эт я ошибся.Но так тоже не работает.Я что-то всё равно не пойму как мне в один файл типа integer можно записать массив 2-мерный...

[Forumsdk]

X:file of integer

Запись

For i:=1 to N do
For j:=1 to N do
begin
write(X,Y[i,j]);
end;

Чтение
For i:=1 to N do
For j:=1 to N do
begin
read(X,Y[i,j]);
end;

[Forumsdk]

падает на несовместимости типов, ты пытаешься записать в переменную integer, двумерный массив
read(X,Y[i,j])
Запись из файла X у тебя типа ARR а Y[i,j] типа integer

[nvse]

Forumsdk Большое вам спасибо.Сейчас буду разбираться.

[A r i s e n]

Или сразу Y читать, без циклов.