Дан двумерный массив, сделать из него одномерный массив по спирали

@goodforce · Регистрация: 09.09.2012

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

дан двумерный массив, сделать из него одномерный массив по спирали. должно работать для любой размерности.
должно получится так:
1 2 3
8 9 4
7 6 5
Помогите пожалуйста, нужно сделать не через ячейки экселя и на форме.

@balolam · 03.02.2014, 14:58

Из чего получиться, подробней не много напиши пожалуйста?

@barbudo59 · 03.02.2014, 16:40

Разобьем на подзадачи. Сделаем, например, через табличку.
1) Задать количество столбцов и строк StringGrid - sg1.ColCount и sg1.RowCount
2) Реализовать обход по спирали.
3) Реализовать алгоритм определения конца спирали.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  sg1.RowCount := StrToInt(Edit1.Text);
  sg1.ColCount := StrToInt(Edit2.Text);
  Edit1.Text := '';
  Edit2.Text := '';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
c1,c2,r1,r2,c,r: Integer;
begin
 c1 := 0;
 c2 := sg1.ColCount-1;
 r1 := 0;
 r2 := sg1.RowCount-1;
 repeat
  for c:=c1 to c2-1 do
    Edit2.Text:= Edit2.Text + sg1.Cells[c,r1];
  for r:=r1 to r2-1 do
    Edit2.Text:= Edit2.Text + sg1.Cells[c2,r];
  for c:=c2 downto c1+1 do
    Edit2.Text:= Edit2.Text + sg1.Cells[c,r2];
  for r:=r2 downto r1+1 do
    Edit2.Text:= Edit2.Text + sg1.Cells[c1,r];
  inc(c1); inc(r1);
  dec(c2); dec(r2);
 until (c1>c2) and (r1>r2);
end;

@goodforce 3 / 2 / 2 Регистрация: 09.09.2012 Сообщений: 25
		1
	Дан двумерный массив, сделать из него одномерный массив по спирали 27.01.2014, 14:51. Показов 2065. Ответов 2 Метки нет (Все метки) дан двумерный массив, сделать из него одномерный массив по спирали. должно работать для любой размерности. должно получится так: 1 2 3 8 9 4 7 6 5 Помогите пожалуйста, нужно сделать не через ячейки экселя и на форме. 0

@balolam 24 / 17 / 7 Регистрация: 05.12.2013 Сообщений: 70
	03.02.2014, 14:58	2
	Из чего получиться, подробней не много напиши пожалуйста? 0

	03.02.2014, 16:40

Дан двумерный массив, сделать из него одномерный массив по спирали

Решение