VPF::[Pascal] Работа с матрицей - Форум программистов

InviZible

Дата 29.11.2006, 22:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

Характеристику нужно оформить в виде функции, которая возвращает true или false.
А преобразование в виде процедуры.

Характеристика:
В матрице существует строка, в которой элемент, расположенный на главной диагонали, равен максимальному из предшествующих элементов в этой строке.

Преобразование:
Преобразовать матрицу в строку по схеме в файле (Змейкой).

Как я понял по характеристике:
Если матрица
1 2 3
2 3 4
19 2 21
то возвращается тру, а если матрица
1 2 3
3 1 2
4 2 5
то уже фальш.
И при просмотре матрицы всегда пропускать первую строку иначе всегда будет тру.

А вот как реализовать змейку вообще не знаю =(.

Это сообщение отредактировал(а) InviZible - 29.11.2006, 23:01

Присоединённый файл ( Кол-во скачиваний: 6 )

zmeika.jpg 36,18 Kb

anwe

Дата 29.11.2006, 23:29 (ссылка)

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

Загрузка ...

Опытный

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

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

Ну, преобразование змейкой, наверное, такое.
Первый элемент заносишь на место максимального по индекса, то есть а(max_row,max_col). Для матрицы 5х5 это и будет элемент а(5,5). Далее движешься по строкам последней колонки с проверкой номера строки. Дошел до первой - уменьши номер колонки (будет предпоследний). Двигайся по колонке, увеличивая номер строк, опять же с проверкой его номера.
Делай это в цикле. Номер колонки всегда уменьшается. Для изменения номера строки можно либо использовать какую-то логическую переменную, по которой определять увеличивать номер строки или уменьшать. Тогда ходом цикла будет движение в пределах одной колонки.
Другой вариант без использования каких-либо логических переменных. Тогда один ход цикла - это движение вверх и вниз по двум колонкам.
___________________________________________________
В цикле проверяй на невыход за пределы матрицы.

InviZible

Дата 30.11.2006, 21:08 (ссылка)

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

Загрузка ...

Шустрый

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

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

Что-то не идёт со "змейкой"... Характеристику сделал, а вот преобразование никак =(

Это сообщение отредактировал(а) InviZible - 30.11.2006, 21:12

InviZible

Дата 1.12.2006, 19:26 (ссылка)

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

Загрузка ...

Шустрый

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

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

вчера, как только написал здесь пост, через мин 10 придумал способ как реализовать змейку, вот:

Код


procedure preobr(n:integer; var a:matr);
 begin
  for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if (j mod 2)=1 then
     begin
      q:=1;
       while (q<=n) do
        begin
         write(a[q,j],' ');
         inc(q);
        end;
      end
     else
      begin p:=n;
       while (p>=1) do
        begin
         write(a[p,j],' ');
         dec(p);
        end;
       end;
      end;
     exit;
   end;
  end;

вроде всё правильно

M
alexeis1

Модератор: не забывайте выбирать тип подсветки.

Это сообщение отредактировал(а) alexeis1 - 5.12.2006, 10:49

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