Soustředné čtverce do matice – Pascal – Fórum – Programujte.com

Zdravím, potřeboval bych pomoct s úkolem. Mám naplnit automaticky čtvercovou celočíselnou matici A (n x n), n<10, tak, aby obsah vytvořil soustředné čtverce se stejnými vzrůstajícími hodnotami od nuly do (n-1) div 2.
Vím že asi musím naplnit vždy celou matici (bude to tak pro mě jednodušší než to plnit po obvodu) a pak každou další s n o jedna větší a o jedna kratší (1 to n - 1). Ale nevím jak to dostat do algoritmu,..

Za pomoc děkuji předem,..

#1 Fifík
Do algoritmu to dostaneš tak, že si to zkusíš nejdřív ručně kreslit na papíře a budeš si zapisovat poznámky, kam a co jsi kreslil.

Až to budeš mít připravené, zapíšeš to do kódu.

To je právě bohužel věc, kterou nedokážu. Potřebuji tím předmětem jenom projít. Mám zcela jiné cíle a priority a programování přenechám těm, kdo to umí.

Zdá se, že jsem to rozlousknul. V konzoli to normálně funguje jak jsem potřeboval,.. 

Pokud by v tom kdokoli řemesla znalý viděl nějakou očividnou botu, určitě mi to napište.

procedure NaplnMatici (var M : Matice; n: Integer);
var
  i,j,pom,c  : Integer;
begin pom:=0; c:=1;
  repeat
  for i:=(1+c) to (n-c) do
   for j:=(1+c) to (n-c) do
    M[i,j]:= pom + 1; pom:=pom+1; c:=c+1;
   until c = n - 1 div 2;

end;

Osobně bych to namáznul asi takhle (stejnej postup, ale je to univerzálnější, vezme to v podstatě libovolnou velikost a i obdélníkový matice):

type
  TMatrix2Di = Array of Array of Integer;

procedure FillMatrix(var Matrix: TMatrix2Di);
var
  Row,Column: Integer;
  Offset:     Integer;
begin
For Offset := 0 to (Pred(Length(Matrix)) div 2) do
  For Row := (Low(Matrix) + Offset) to (High(Matrix) - Offset) do
    For Column := (Low(Matrix[Row]) + Offset) to (High(Matrix[Row]) - Offset) do
      Matrix[Row,Column] := Offset;
end;