Anonymní profil Fifík – Programujte.com

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;

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í.

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,..