Запись двумерного массива в файл

[rusasha]

Помогите найти ошибку. Почему то в файле оказывается не массив а ерунда какая то.

вот код.

program xxx;
uses crt;
type mass10=array [1..10,1..10] of real;
mass9=array [1..10,1..9] of real;
var x,z:real;
i,j,n,k:integer;
y:mass10;
e:mass9;
m10:file of mass10;
m9:file of mass9;
begin
clrscr;
x:=4.5;
for i:=1 to 10 do
for j:=1 to 10 do begin
y[i,j]:= cos((exp(0.25*ln(x)))-(0.5*exp(0.5*ln(x)))+(0.25*exp(0.75*ln(x))));
x:=x+0.69;
end;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
write(y[i,j]:5:3,' ');
end;
writeln;end;
writeln;
writeln;
n:=1;k:=1;
for i:=1 to 10 do
for j:=1 to 10 do begin
if i=j then y[i,j]:=0
else
begin
if k=10 then  begin n:=n+1;k:=1;end;
e[n,k]:=y[i,j];
k:=k+1;
end;
end;
for n:=1 to 10 do begin
for k:=1 to 9 do begin
write(e[n,k]:5:3,' ');
end;
writeln;end;
assign(m10,'mas10.txt');rewrite(m10);write(m10,y);close(m10);
assign(m9,'mas9.txt');rewrite(m9);write(m9,e);close(m9);
readkey;
end.

[Stilet]

Подожди а чего ты ждешь то? Что в файле ты цифры увидишь привычные дл чтения людям? у тебя файл не текстовый а
m10:file of mass10;
m9:file of mass9;
т.е. файл чисел, а они туда в обычном своем "компьютерном формате" записываются, а не читабельными человеку арабскими числами

[rusasha]

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

[ROMA2PVT]

program xxx;
uses crt;
type mass10=array [1..10,1..10] of real;
mass9=array [1..10,1..9] of real;
var x,z:real;
i,j,n,k:integer;
y:mass10;
e:mass9;
m10:text;
m9:text;
begin
clrscr;
x:=4.5;
for i:=1 to 10 do
for j:=1 to 10 do begin
y[i,j]:= cos((exp(0.25*ln(x)))-(0.5*exp(0.5*ln(x)))+(0.25*exp(0.75 *ln(x))));
x:=x+0.69;
end;
assign(m9,'C:\mas9.txt');
rewrite(m9);
for i:=1 to 10 do begin
for j:=1 to 10 do begin
write(y[i,j]:5:3,'  ');
write(m9,y[i,j]:5:3,'  ');
end;
writeln;
end;
n:=1;
k:=1;
for i:=1 to 10 do
for j:=1 to 10 do begin
if i=j then y[i,j]:=0
else
begin
if k=10 then
begin
n:=n+1;
k:=1;
end;
e[n,k]:=y[i,j];
k:=k+1;
end;
end;
writeln(' ');
assign(m10,'C:\mas10.txt');
rewrite(m10);
writeln;
for n:=1 to 10 do begin
for k:=1 to 9 do begin
write(e[n,k]:5:3,'  ');
write(m10,e[n,k]:5:3,'  ');
end;
writeln;
end;
close(m10);
close(m9);
readkey;
end.

Вот так.

[Александриус]

program xxx;
uses crt;//подключаем модуль
type mass10=array [1..10,1..10] of real;
     mass9=array [1..10,1..9] of real;
var x,z:real;
    i,j,n,k:integer;
    y:mass10;
    e:mass9;
    m10:text;
    m9:text;
begin
clrscr;//очищаем экран
{заполняем массив y}
x:=4.5;
for i:=1 to 10 do
    for j:=1 to 10 do begin
        y[i,j]:= cos((exp(0.25*ln(x)))-(0.5*exp(0.5*ln(x)))+(0.25*exp(0.75*ln(x))));
        x:=x+0.69;end;
{выводим массив y}
for i:=1 to 10 do begin
    for j:=1 to 10 do begin
        write(y[i,j]:5:3,' ');end;writeln;end;
writeln;writeln;
{заполняем массив е}
n:=1;k:=1;
for i:=1 to 10 do
    for j:=1 to 10 do begin
        if i=j then y[i,j]:=0
           else begin
           if k=10 then  begin n:=n+1;k:=1;end;
           e[n,k]:=y[i,j];
           k:=k+1;end;end;
{выводим массив е}
for n:=1 to 10 do begin
  for k:=1 to 9 do begin
      write(e[n,k]:5:3,' ');end;writeln;end;
{сохраняем в файлы}
assign(m10,'mas10.txt');
rewrite(m10);
write(m10,y);close(m10);
assign(m9,'mas9.txt');
rewrite(m9);
write(m9,e);close(m9);
readkey;
end.

[ROMA2PVT]

Александриус выше Stilet написал о подобной записи в файл.

[rusasha]

всем спасибо. Я сам догадался как тупанул)))

[ROMA2PVT]

Не за что.