Вывести в StringGrid динамический одномерный массив змейкой

@kkasady · Регистрация: 06.03.2014

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

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

@northener · 08.05.2014, 02:46

Не по теме:

Сообщение от kkasady

необходимо составить одномерный массив из элементов матрицы в следующем порядке:

Такую кривую змейку реализовывай сам. Раз уж не можешь грамотно изложить задачу русским языком.

@daslex · 08.05.2014, 18:50

StringGrid2 исходный массив.,

Delphi

{ÏÐÎÕÎÄ ÏÎ ÌÀÑÑÈÂÓ ÇÌÅÉÊÎÉ}
procedure TForm1.Zmey;
var i,j,k,count:Integer;
    flag:Boolean;
begin
With Form1 do Begin
  StringGrid1.ColCount:=StringGrid2.ColCount*StringGrid2.RowCount;;
  count:=0;
  k:=0;
  flag:=false;
 
  for i:=0 to StringGrid2.ColCount-1 do Begin
      for j:=0 to StringGrid2.RowCount-1 do Begin
          StringGrid1.Cells[count,0]:=StringGrid2.Cells[i,k];
          StringGrid1.ColWidths[count]:=30;
          inc(count);
         if not flag then inc(k) else dec(k);
      end;
     flag:=not flag;
     if flag then k:=StringGrid2.RowCount-1
     else k:=0;
  end;
 end;
end;

@kkasady 0 / 0 / 1 Регистрация: 06.03.2014 Сообщений: 19
		1
	Вывести в StringGrid динамический одномерный массив змейкой 08.05.2014, 01:30. Показов 1182. Ответов 2 Метки нет (Все метки) имеется прямоугольная матрица, заполненная случайными числами. необходимо составить одномерный массив из элементов матрицы в следующем порядке: Изображения 0

@northener
	08.05.2014, 02:46 #2
	Не по теме: Сообщение от kkasady необходимо составить одномерный массив из элементов матрицы в следующем порядке: Такую кривую змейку реализовывай сам. Раз уж не можешь грамотно изложить задачу русским языком. 0

	08.05.2014, 18:50

Опции темы

Вывести в StringGrid динамический одномерный массив змейкой

Решение