Матрицы, задачка на Паскале Опции

[Kos]

Народ, помогите плиз, надо решить задачку, а в матрицах я нуб (во всяком случае на Паскале).
Даны действительные числа а1, ..,а64;
Получить действительную квалратную матрицу порядка 8, элементами которой являются числа а1,...а64, расположенные по схеме:

[klem4]

только тебе вроде надо было с массивом это все проделать ? Вот по примеру проги volvo сделал, можно мне кажется еще упростить .. попробуй сам сделать

 uses crt;

const
     n=16;
var
   a : array[1..n] of integer;
   b : array[1..round(sqrt(n)), 1..round(sqrt(n))] of integer;
   i,r,c,T : shortint;
begin

   clrscr;

   for i := 1 to n do readln(a[i]);

   r := 1;
   c := round(sqrt(n));
   T := -1;

   for i := 1 to n do begin

      if (c>round(sqrt(n))) or (c<1) then begin
        inc( r );
        T := -T;
        inc(c,T);
      end;

      b[r,c] := a[i];

      inc(c,T);

   end;

   writeln;

   for r := 1 to round(sqrt(n))  do begin
      writeln;
      for c := 1 to round(sqrt(n))  do write(b[r,c]:3,'  ');
   end;

   readln

end.

кстати, вот таже самая программа, но в ней есть отличие в одной строчке, прикотором правильно работать программа ну ни как не может и по идее должна вылелать с ошибкой, но отрабатывает на ура, компилятор соответственно FPC ;)

uses crt;

const
     n=16;
var
   a : array[1..n] of integer;
   b : array[1..round(sqrt(n)), 1..round(sqrt(n))] of integer;
   i,r,c,T : byte;
begin

   clrscr;

   for i := 1 to n do readln(a[i]);

   r := 1;
   c := round(sqrt(n));
   T := -1;

   for i := 1 to n do begin

      if (c>round(sqrt(n))) or (c<1) then begin
        inc( r );
        T := -T;
        inc(c,T);
      end;

      b[r,c] := a[i];

      inc(c,T);

   end;

   writeln;

   for r := 1 to round(sqrt(n))  do begin
      writeln;
      for c := 1 to round(sqrt(n))  do write(b[r,c]:3,'  ');
   end;

   readln

end.

Сообщение отредактировано: volvo - 6.11.2006 1:31