|
Вопрос # 5 039/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Пожалуйста,помогите. срочно нужно решить задачу.
Заполнить двумерный массив размером n x n "Змейкой"
Например:
10 4 3 1
11 9 5 2
15 12 8 6
16 14 13 7
Вообщем змейка странная какая то)
 |
Вопрос задала: Ksanka (статус: Посетитель)
Вопрос отправлен: 20 февраля 2011, 17:09
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: puporev
Здравствуйте, Ksanka!
Есть несколько вариантов заполнения матрицы зигзагом. Для квадратных матриц мне кажется самый простой это заполнение диагоналей, в данном случае параллельных главной.
Код в приложении.
Приложение: Переключить в обычный режим- uses crt;
- var a:array[1..20,1..20]of integer;
- n,i,j,c,sum,k,l,p:integer;
- begin
- clrscr;
-
- readln(n);
-
-
- begin
-
- begin
-
- for i:=1 to 2*n-l do
- begin
- k:=k+1;
- a[i,i+l-n]:=k;
- end
-
- for i:=2*n-l downto 1 do
- begin
- k:=k+1;
- a[i,i+l-n]:=k;
- end
- end
-
- begin
-
- for i:=n-l+1 to n do
- begin
- k:=k+1;
- a[i,i-n+l]:=k;
- end
-
- for i:=n downto n-l+1 do
- begin
- k:=k+1;
- a[i,i-n+l]:=k;
- end;
- end;
- end;
- for i:=1 to n do
- begin
- for j:=1 to n do
- write(a[i,j]:4);
- writeln;
- end;
- writeln;
- readln
- end.
-
 |
Ответ отправил: puporev (статус: 2-ой класс)
Время отправки: 21 февраля 2011, 07:24
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
