Нужна помощь c таблицей StringGrid

[Джек12]

Нужно заполнить таблицу цифрами по спирали. Помогите пожалуйста.

[xxbesoxx]

При нажать кнопку

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  For i:=1 to 100 do
  StringGrid1.Cells[1,i]:= IntToStr(i);

end;

[Джек12]

нет,ваша программа просто выводит цифры в столбик((

[xxbesoxx]

Нужно заполнить таблицу цифрами по спирали

скажите пожалуйста боле подробно , Что за таблица у вас ? и причем там StringGrid ?

[Stilet]

Что за таблица у вас ? и причем там StringGrid ?

Сказано же:

таблицу цифрами по спирали

Что непонятного?
http://yandex.ua/yandsearch?text=%D0...2014&numdoc=50

[xxbesoxx]

А если так ?

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;


end.

Скорее всего это университете дали " Чудесные Д.З " Но я не понимаю зачем все это ? Где его пригодится в реальной жизни ? Меня всегда удивляет почему преподаватели дает такую ненужную задачу студенту ?

[Джек12]

Да,да.. это было домашнее задание..

[Stilet]

А если так ?

Угу. Похоже.

[xxbesoxx]

Stilet