Помогите, пожалуйста ♥️ (pascal)

Question

Помогите, пожалуйста ♥️ (pascal)

---

Comments

нужно любой двухмерный массив перевести в файловый документ

Answer 1

Var f: text;
a,b: array[1..100,1..100] of integer;
i,j,k,n,m,s: integer;
begin
write ('Введите количество строк (n<=100): ');<br>readln (n);
write ('Введите количество столбцов (m<=100): ');<br>readln (m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(19);
write (a[i,j]:5)// вывод массива на экран для проверки
end;
writeln
end;
assign(f,'array.txt');//Файл создаётся в рабочей папке или нужно указать полный путь
rewrite(f);
for i:=1 to n do
begin
for j:=1 to m do
write(f,a[i,j]:5);
writeln(f,'')
end;
close(f);
writeln;
assign(f,'array.txt');
reset(f);
i:=1;
j:=1;
while not seekeof(f) do// Пропускает пробельные символы в конце файл
begin
while not seekEoln (f) do// Пропускает пробельные символы в конце строки
begin
read(f,k);
b[i,j]:=k;
s:=j;
j:=j+1
end;
i:=i+1;
j:=1
end;
close(f);
for n:=1 to i-1 do
begin
for m:=1 to s do
write(b[n,m]:5);
writeln
end
end.

Comments

var f: text;
a: array[1..100] of integer;
i,j,k: integer;
begin
assign(f,'array1.txt');
reset(f);
i:=1;
while not eof(f) do
begin
read(f,k);
a[i]:=k;
i:=i+1
end;
close(f);
for j:=1 to i-1 do
write (a[j],' ')
end.

---

нужно не считать а записать. или и то и другое

---

var f: text;
a,b: array[1..100,1..100] of integer;
i,j,k,n,m,s: integer;
begin
write ('Введите количество строк (n<=100): ');<br>readln (n);
write ('Введите количество столбцов (m<=100): ');<br>readln (m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random(19);
write (a[i,j]:5)// вывод массива на экран для проверки
end;
writeln
end;

---

assign(f,'array.txt');//Файл содаётся в рабочей папке или нужно указать полный путь
rewrite(f);
for i:=1 to n do
begin
for j:=1 to m do
write(f,a[i,j]:5);
writeln(f,'')
end;
close(f);
writeln;
assign(f,'array.txt');
reset(f);
i:=1;
j:=1;
while not seekeof(f) do// Пропускает пробельные символы в конце файл
begin
while not seekEoln (f) do// Пропускает пробельные символы в конце строки
begin
read(f,k);
b[i,j]:=k;
s:=j;
j:=j+1
end;
i:=i+1;
j:=1
end;
close(f);

---

for n:=1 to i-1 do
begin
for m:=1 to s do
write(b[n,m]:5);
writeln
end
end.

---

и где тут запись в файл?

---

это вывод на консоль

---

rewrite(f); (см. выше)

---

теперь есть. комментарии видать както не понятно подтягиваются в мобильное приложение. сорри.

---

посмотрю как буду за компом и дам ответ на исправление