Заполнение квадратной матрицы

@ilya1234 · Регистрация: 19.05.2013

Author24 — интернет-сервис помощи студентам

Помогите создать универсальную квадратную матрицу, которая заполняется спиралью начиная от центра.
Размерность матрицы вводится пользователем из edit1 и edit2. Матрица в зависимости от размерности заполняется спиралью начиная от центра в String Grid.

Добавлено через 1 минуту
Программу необходимо сделать в Delphi7

Добавлено через 2 минуты
Матрица в зависимости от размерности заполняется спиралью начиная с 1 от центра в String Grid. -1 кнопка
Матрица в зависимости от размерности заполняется спиралью с шагом начиная от центра в String Grid . - 2 кнопка

Добавлено через 13 минут

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  n =5 ;
  m =5 ;
var
  mas: array[1..n, 1..m] of integer;
  value,
  i, j, k: integer;
begin
  i:=0; k:=0; value:=n*m;
    while i < n*m do
  begin
    inc(k);
    for j:=k to m-k+1 do
      begin
        inc(i);
        mas[k,j]:=value; dec(value)
      end;
      for j:=k+1 to n-k+1 do
      begin
        inc(i);
        mas[j,m-k+1]:=value; dec(value)
      end;
    {проходи по горизонтали "справа-налево"}
    for j:=m-k downto k do
      begin
        inc(i);
        mas[n-k+1,j]:=value; dec(value)
      end;
      for j:=n-k downto k+1 do
      begin
       inc(i);
       mas[j,k]:=value; dec(value)
     end
  end;
  for i:=1 to n do
  begin
  for j:=1 to m do
StringGrid1.Cells[i,j]:=FloatTostr(mas[i,j]);
end;
end;

Как нужно сделать,чтобы квадратная матрица заполнялась по спирали,размерность которой вводиться в edit1 и edit2?
Нужно,чтобы размерность была 5*5 , 10*10

@ilya1234 · 19.05.2013, 21:17 **[ТС]**

Нужно сделать универсальную квадратную матрицу

@ilya1234 0 / 0 / 0 Регистрация: 19.05.2013 Сообщений: 2
	19.05.2013, 21:17 [ТС]	2
	Нужно сделать универсальную квадратную матрицу Миниатюры 0

Опции темы