VPF::[Pascal] Матрицы - Форум программистов

Rekillla

Дата 18.12.2006, 00:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.12.2006
Где: The World Of Line AgeII

Репутация: нет
Всего: нет

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

помогите пжалуйста, хотя бы алгоритмом.

anwe

Дата 18.12.2006, 02:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

Наверное, так. Берешь 4 цикла: для увеличения номера столбцов, для увеличения номера строк, для уменьшения номера столбцов и для уменьшения номера строк. И все это загоняешь под большой цикл. В нем изменяй и подставляй необходимые начальные и конечные значения циклических переменных для каждого малого цикла. После каждого малого от числа n отмимаешь количество проходов соответствующего цикла. Количество проходов большого цикла определишь по формуле n+(n-1).
Для примера 4х4.

Код


i:=0;
j:=0;
big:=7        //4+(4-1)=7
for i:=1 to 4 do    //2 to 3 для второго раза
...
big:=big-i;
if big=0 then
...
for j:=1 to 4 do    //2 to 3 для второго раза
...
big:=big-j;
if big=0 then
...
for i:=4 downto 1 do    //3 downto 2 для второго раза
...
big:=big-i;
if big=0 then
...
for j:=4 downto 2 do    //второго раза для 4х4 не будет, выйдет с предыдущей строки
...
big:=big-j;
if big=0 then
...

Тебе дописать что надо и надо фиксировать начальные и конечные значения для циклических переменных.

Kuvaldis

Дата 18.12.2006, 02:13 (ссылка)

(нет голосов)

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61

Я бы сделал так

Код


program Spiral;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
    N = 30;  
var
    matr : array [1..N, 1..N] of integer;
    size : integer;
    i, j, k : integer;
    count : integer;    // количество витков спирали
    num : integer;
begin
    writeln('Input matrix size');
    readln(size);
    count := size div 2 + 1;
    num := 1;                  // число, которым будем заполнять матрицу

    for i := 1 to count do     // основной цикл
    begin
        // верняя горизонталь
        for k := i to (size - i + 1) do
        begin
           matr[i, k] := num;
           Inc(num);
        end;

        // правая вертикаль
        for k := i + 1 to (size - i) do
        begin
           matr[k, size - i + 1] := num;
           Inc(num);
        end;

        // нижняя горизонталь
        for k := (size - i + 1) downto i + 1 do
        begin
            matr[size - i + 1, k] := num;
            Inc(num);
        end;

        // левая вертикаль
        for k := (size - i + 1) downto i + 1 do
        begin
           matr[k, i] := num;
           Inc(num);
        end;

    end;

    Writeln('Your matrix');
    for i := 1 to size do
    begin
        for k := 1 to size do
            write(matr[i, k] : 4);
        writeln;
    end;
    readln;
end.

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

Rekillla

Дата 18.12.2006, 02:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 17.12.2006
Где: The World Of Line AgeII

Репутация: нет
Всего: нет

ОГРОМНОЕ СПАСИБО ЗА ПОМОЩ. ЧТОБ Я БЕЗ ВАС ВСЕХ ДЕЛАЛ? smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »