Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 29.03.2012
Сообщений: 8

Построить матрицу "змейкой"

29.03.2012, 16:42. Показов 1407. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Пожалуйста помогите решить задачу! заполнить квадратную матрицу размера n на n натурульными числами от 1 до n^2 в указанном порядке.
например:
1 2 3 4
8 7 6 5
9 10 11 12
16 15 14 13

заранее спасибо!
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
29.03.2012, 16:42
Ответы с готовыми решениями:

Заполнить матрицу змейкой
Дано натуральное N (1-N-10). Заполнить матрицу порядка N*N целыми числами 0, 1, 2, 3, …, N2–1 в соответствии со схемой расположения,...

Заполнить матрицу змейкой из верхнего левого угла
долгое время мучаюсь с задачей,нужно создать змейку вида: 0 1 5 6 2 4 7 12 3 8 11 13 9 10 14 15 не получается...

Заполнить матрицу змейкой сверху вниз, слева направо
Заполнить матрицу n*n по стрелке. Для того чтобы увидеть правильность алгоритма, заполняйте матрицу числами от 1 до n. Под буквой Д

3
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.03.2012, 18:22
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
const n=4;
var a: array [1..n,1..n] of integer;
    i,j,nn: integer;
begin
nn:=0;
for i:=1 to n do
    begin
    if i mod 2=1 then
       for j:=1 to n do
           begin
           inc(nn);
           a[i,j]:=nn;
           end else
           for j:=n downto 1 do
               begin
               inc(nn);
               a[i,j]:=nn;
               end;
    end;
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:3);
    writeln;
    end;
end.
пс возможно, есть способ рациональней, не отвечаю =)
1
0 / 0 / 0
Регистрация: 29.03.2012
Сообщений: 8
29.03.2012, 18:49  [ТС]
спасибо большое)
0
 Аватар для Артём121
66 / 65 / 13
Регистрация: 15.11.2010
Сообщений: 396
Записей в блоге: 1
31.03.2012, 20:30
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
const n=6;
var a:array[1..n,1..n]of integer;
    i,j,k,x:integer;
BEGIN
x:=1;
k:=1;
while (x<=n*n) do
 begin
  for i:=1 to n do
    begin
      a[k,i]:=x;
      inc(x);
    end;
  inc(k);
  for j:=n downto 1 do
    begin
      a[k,j]:=x;
      inc(x);
    end;
  inc(k);
 end;
for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:3,' ');
    writeln;
  end;
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.03.2012, 20:30
Помогаю со студенческими работами здесь

Вывести матрицу змейкой
Завтра экзамен, никак не могу сделать программу, чтобы она выводила матрицу: 5 4 3 2 1 6 7 8 9 10 15 14 13 12 11 Помогите...

Заполнить матрицу змейкой
Подскажите, как можно заполнить квадратную матрицу размера n на n натуральными числами от 1 до n^2 в указанном порядке. По спирали 1...

Заполнить матрицу змейкой.
Напишите программу, которая заполняет матрицу из N строк и M столбцов натуральными числами змейкой, как показано в примере. Входные...

Заполнить матрицу змейкой
Составить программу, которая заполняет квадратную матрицу порядка n натуральными числами 1, 2, 3, ..., n2 записывая их в нее вдоль...

Заполнить матрицу змейкой
:help: Дано натуральное N (1 ≤ N ≤ 10). Заполнить матрицу порядка NN целыми числами 0, 1, 2, 3, …, N2–1 в соответствии со схемой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru