Матрица

[alex22527]

В паскале написать программу,которая заполнит матрицу размером 9х9 линейной последовательностью чисел (1-81) спиралью

[k0tone]

Вот что получилось:

program spiral;

 uses
   crt;

 const
   n=9;

 type
   TIndex = 1..n;
   TVector = array [TIndex] of integer;
   TMatrix = array [TIndex] of TVector;

 var
   a:TMatrix;
   i,j,k,p:integer;

 begin
   clrscr;

   k:=1;
   for p:=1 to (n+1) div 2 do
   begin
     for j:=p to n-p+1 do
       begin
         a[p,j]:=k;
         k:=k+1;
       end;
     for i:=p+1 to n-p+1 do
       begin
         a[i,n-p+1]:=k;
         k:=k+1;
       end;
     for j:=n-p downto p do
       begin
         a[n-p+1,j]:=k;
         k:=k+1;
       end;
     for i:=n-p downto p+1 do
       begin
         a[i,p]:=k;
         k:=k+1;
       end;
   end;

   for i:=1 to n do
     begin
       for j:=1 to n do write(a[i,j]:4);
       writeln;
     end;
   readln;

 end.

[alex22527]

k0tone спасибо большое!!!!!