Delphi одномерн.массивы

[zzzarazzza]

Помогите пожалуйста написать программу на Delphi

Одномерный массив преобразовать таким образом, чтобы в первой его половине располагались элементы, стоящие в четных позициях, а во второй половине – элементы, стоящие на нечетных позициях (с использование StringGrid)

[Kotlyar562]

Все еще есть вопросы? Загоняете числа из стринггрид в одномерный массив и используете алгоритм, приведенный мною в вашей предыдущей теме...

[zzzarazzza]

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

Все еще есть вопросы? Загоняете числа из стринггрид в одномерный массив и используете алгоритм, приведенный мною в вашей предыдущей теме...

числа в SG1 заполняются в другой процедурке
а вот что я написала по преобразованию массива

   var n,k:integer;
begin

for j:=0 to Stringgrid1.ColCount-1 do
 k:=0;
  for j:=0 to Stringgrid1.ColCount-1 do
   if j mod 2 =0 then
    begin
  Stringgrid2.Cells[j,0]:=Stringgrid1.Cells[n,0];
k:=k+1;
begin
 for j:=0 to Stringgrid1.ColCount-1 do
   if j mod 2 =1 then
    begin
  Stringgrid2.Cells[j,0]:=Stringgrid1.Cells[n,0];
k:=k+1;
end;
end;
end;
end;

что то не то сделала кажется..(

[Kotlyar562]

Видимо, Вы не полностью поняли суть + надо было "подогнать" тот алгоритм под стринггриды (например, нумерация с 0, по-этому k изначально равно 0, и т.д). Вот код:

var i,k: integer;
begin
  k:=0;
  for i:=0 to Stringgrid1.ColCount-1 do
    if i mod 2 = 1 then
    begin
      Stringgrid2.Cells[k,0]:=stringgrid1.Cells[i,0];
      k:=k+1;
    end;

  for i:=0 to  Stringgrid1.ColCount-1 do
    if i mod 2 = 0 then
    begin
      Stringgrid2.Cells[k,0]:=stringgrid1.Cells[i,0];
      k:=k+1;
    end;
end;

Еще советую писать соответствующие бегин и енд друг под другом, тогда Ваш код будет более читаемым

[zzzarazzza]

спасибо))
вы мне очень помогли))