2х мерный массив - помощь

[пукарь]

я построил 2х мерный массив. На экране он изобржон в клеточку, как тетрадь. Как я могу изменить его положение на экране?

[-=<[Evklidd]>=-]

Используйте функции модуля Crt. В частности, для того чтобы установить курсор в позицию с определенными координатами используйте функцию GoToXY

[puporev]

Если Вы хотите чтобы матрица располагалась в нужном Вам месте экрана, используйте функцию gotoXY(x,y), которая установит курсор в нужную Вам позицию и с нее начнется вывод матрицы на экран. Позицию курсора нужно в цикле писать перед write(a[i,j]:4); Выбираете например начало матрицы в пятой строке с позиции 20.
Пишете

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

Проверьте, может я что напутал.

[пукарь]

Cпасибки ребята. Попробую, наверняка появятся вопросы.

[-=<[Evklidd]>=-]

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

Проверьте, может я что напутал.

По-моему надо вызывать GotoXY не во внутреннем цикле, а во внешнем, который идет по строкам. Вот пример:

program pro41;
uses
 Crt;
var
 ar: array [1..5,1..5] of integer;
 i, j: byte;
begin
 ClrScr;
 for j:= 1 to 5 do
  for i:= 1 to 5 do
   ar[j,i]:= random(9)+1;
 for j:= 1 to 5 do
  begin
   GoToXY(5,j+1);
   for i:= 1 to 5 do
    write(ar[j,i], ' ');
  end;
 readln;
end.

[puporev]

Полностью согласен, чуствовал, что не так, но лень проверять было. Вот вариант, как я писал(стр.5 стб.20). Еще i,j местами поменял, всегда у меня i-строка, j-столбец. И числа ввел номера ячеек, чтоб наглядно было.

program pro41;
uses
 Crt;
var
 ar: array [1..5,1..5] of integer;
 i, j: byte;
begin
 ClrScr;
 for i:= 1 to 5 do
     begin
       GoToXY(20,i+4);
       for j:= 1 to 5 do
         begin
           ar[j,i]:= 10*i+j;
           write(ar[j,i]:4);
         end;
       writeln;
     end;
 readln;
end.

[пукарь]

Просто Гениально. А смогли бы вы использовать Graph для обозачения сетки?

[puporev]

Если рисовать таблицу в графическом режиме, то это совсем другое, там gotoxy не надо, там совсем все по другому. Вам конкретно то что нужно? Вы полностью проблему изложите.

[пукарь]

http://upload.wikimedia.org/wikipedi..._system_3D.png
Вы могли бы раскрасить в клеточку весь массив описанный выше?

[puporev]

Не понял юмора. Вы всегда так шутите? При чем сдесь матрица и сетка, и где собственно задание?