VPF::[Delphi] Заполнить матрицу NxN - Форум программистов

jtxstyle

Дата 14.11.2010, 13:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Народ очень нужно уже к завтрашнему дню, помогите пожалуйста кто может. Кто сможет напишите в личку. smile

Заполнить матрицу N x N следующим образом. Элементам, стоящим на главной главной и побочной диагоналях, присваивается значение1 ;
элементам, соседним с единицами-значение 2;
элементам, соседним с двойками- значение 3 и т. д

Akella

Дата 14.11.2010, 14:28 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

денег дай, преподаватели тоже кушать хотят

jtxstyle

Дата 14.11.2010, 14:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Смешно, умеешь прикалываться, если за деньги я бы самому учителю дал бы и по форуму не лазил бы, не хочешь помогать не надо писать тогда, откуда у студента деньги? Я могу если только 5 номерков ICQ 8ми значных дать в знак благодарности!

aleksh

Дата 14.11.2010, 15:27 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

tojtxstyle: с предложениями "сделай за меня" надо идти в раздел "центр помощи"

Akella

Дата 14.11.2010, 17:11 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(jtxstyle @ 14.11.2010, 14:36

)

, откуда у студента деньги?

значит учись

Добавлено через 1 минуту и 3 секунды
Здесь форум программистов, а не студентов. Тебе прямой путь в Центр помощи smile

Добавлено через 1 минуту и 17 секунд
Ну или хотя бы в раздел для новичков.

darkart

Дата 15.11.2010, 16:09 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


program matrixwave;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  MATRIX_DIM = 11;{размерность матрицы}
  UNUSED_VALUE = 255;{специальное значение}
type
  TMatrix = array[ 1..MATRIX_DIM, 1..MATRIX_DIM ] of integer;{тип матрицы}

procedure InitMatrix( var matrix : TMatrix );
{процедура инициализации матрицы}
var
  i, j : integer;{счетчики}
begin
  {заполняем матрицу специальным значением}
  for i := 1 to MATRIX_DIM do
    for j := 1 to MATRIX_DIM do
      matrix[ i, j ] := UNUSED_VALUE;
  {на главную и побочную диагональ ставим 1}
  for i := 1 to MATRIX_DIM do
  begin
    matrix[ i, i ] := 1;
    matrix[ i, MATRIX_DIM - i + 1 ] := 1;
  end;
end;

function SetElem( var matrix : TMatrix; x, y, value : integer ) : boolean;
{функция устанавливает элемент матрицы с имндексами x, y в значение value, если это возможно и оповещает об успешности действия}
begin
  if ( x >= 1 ) and ( y >= 1 ) and ( x <= MATRIX_DIM ) and ( y <= MATRIX_DIM ) and ( matrix[ x, y ] > value ) then
  begin
    matrix[ x, y ] := value;
    SetElem := true;
  end
  else
    SetElem := false;
end;

procedure Wave( var matrix : TMatrix; value : integer );
{процедура ищет в матрице элементы со значением value, и пытается}
var
  nextStep : boolean;{нужно ли искать следующее значение}
  i, j : integer;{счетчики}
begin
  nextStep := false;{не нужно искать}
  for i := 1 to MATRIX_DIM do
    for j := 1 to MATRIX_DIM do
      if( matrix[ i, j ] = value ) then{если нашли значение value}
      begin
        {вокруг данного элемента пытаемся поставить значение на 1 больше}
        nextStep := SetElem( matrix, i - 1, j - 1, value + 1 ) or nextStep;
        nextStep := SetElem( matrix, i - 1, j, value + 1 ) or nextStep;
        nextStep := SetElem( matrix, i - 1, j + 1, value + 1 ) or nextStep;
        nextStep := SetElem( matrix, i, j - 1, value + 1 ) or nextStep;
        nextStep := SetElem( matrix, i, j + 1, value + 1 ) or nextStep;
        nextStep := SetElem( matrix, i + 1, j - 1, value + 1 ) or nextStep;
        nextStep := SetElem( matrix, i + 1, j, value + 1 ) or nextStep;
        nextStep := SetElem( matrix, i + 1, j + 1, value + 1 ) or nextStep;
      end;
  if nextStep then{если поставили хотя бы 1 элемент со значением value + 1, то ищем такие значение}
    Wave( matrix, value + 1 );
end;

procedure PrintMatrix( var matrix : TMatrix );
{процедура печати матрицы, если встречается ячейка = UNUSED_VALUE, то печатаем пробел}
var
  i, j : integer;{счетчики}
begin
  for i := 1 to MATRIX_DIM do
  begin
    for j := 1 to MATRIX_DIM - 1 do
      if matrix [ i, j ] = UNUSED_VALUE then
        write( '  ' )
      else
        write( matrix[ i, j ], ' ');

    if matrix [ i, MATRIX_DIM ] = UNUSED_VALUE then
      writeln( '  ' )
    else
      writeln( matrix[ i, MATRIX_DIM ], ' ');
  end;
end;

var
  matrix : TMatrix;{матрица}

begin
  InitMatrix( matrix );{инициализация}
  writeln( 'After init:' );
  PrintMatrix( matrix );{печать после инициализации}
  Wave( matrix, 1 );{заполняем матрицу по условию задачи}
  writeln( 'After wave:' );
  PrintMatrix( matrix );{печать после заполнения}
  readln;{ожидаем ввода}
end.

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