В задаче на двумерный массив сделать файловый вывод

@Ирина0295 · Регистрация: 13.04.2014

Author24 — интернет-сервис помощи студентам

В задаче на двумерный массив сделать файловый вывод. Вот само решение задачи.

Pascal

var a:array[1..12,1..10] of integer;
i,j:integer;
begin
for i:=1 to 10 do
a[1,i]:=i*12;
for i:=2 to 12 do
  for j:=1 to 10 do
  a[i,j]:=a[i-1,j]-1;
for i:=1 to 12 do begin
  for j:=1 to 10 do
    write(a[i,j]:4);
  writeln;
end;
end.

dimabubyakin · 15.06.2014, 11:37

Pascal

var 
     a:array[1..12,1..10] of integer;
     i,j:integer;
     f:text;
begin
assign(f,'file.txt');
rewrite(f);
for i:=1 to 10 do
     a[1,i]:=i*12;
for i:=2 to 12 do
     for j:=1 to 10 do
          a[i,j]:=a[i-1,j]-1;
for i:=1 to 12 do 
     begin
     for j:=1 to 10 do
          begin    
          write(a[i,j]:4);
          write(f,a[i][j]:4);
          end;
     writeln;
     writeln(f);
     end;
close(f);
end.

	15.06.2014, 11:37