Создать массив в дельфи по правилу

[Asteroid]

В место

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

type
Z=array[1..N] of integer;
W =array[1..N] of double;
var
Form1: TForm1;

Сделай

var
  Form1: TForm1;
  Z:array[1..N] of integer;
  W :array[1..N] of double;

И там еще типы правильно привести надо - не StrToFloat, а StrToInt. Массив то Intege....

[Serge_Bliznykov]

 type
 Z=array[1..N] of integer;
  W =array[1..N] of double;

Это ошибка. Вам нужно описывать ПЕРЕМЕННЫЕ, а не типы.

поэтому исправьте так:

var
   Z : array[1..N] of integer;
   W : array[1..N] of double;

Добавлено
Asteroid, молодца! Я не увидел Ваш пост (пока свой писал, Вы успели его выложить), иначе свой не стал бы писать.
Вы абсолютно правы.

[AsiaDelphi]

Я всё исправила.Но в таблицу формы массив не выводится.И вообще форма практически не задействована

[Serge_Bliznykov]

Но в таблицу формы массив не выводится

Вы мой пост #7 не очень внимательно прочитали?!

повторю - раз Вы не написали код по выводу содержимого полученного массива, то "само собой" массив не выведется!

ох.. ну с вводом из StringGrid1 массива Z Вы же как-то сообразили?
Так почему же не сделать так же и с выводом?!

значит так.
1) киньте на форму ещё один TStringGrid (ну, например, дать ему имя StringGrid2)
2) дописать такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin


  for i:=1 to N do begin
    Z[i]:=StrToInt(stringGrid1.Cells[i,0]);
  end;


  for i:=1 to N do begin
     if Z[i] mod 3=0 then
            W[i]:=Z[i]*Z[i]
     else
       if Z[i] mod 5 = 0 then
          w[i]:=Z[i]/3
       else
          w[i]:=Cos(Z[i]);
  end;

  {вывод результирующего массива W в StringGrid}
  StringGrid2.FixedRows := 0;
  StringGrid2.FixedCols := 1;
  StringGrid2.ColCount := N+1;
  StringGrid2.RowCount := 1;

  StringGrid2.Cells[0,0] := 'Массив W';
  for i:=1 to N do
     StringGrid2.Cells[i, 0] := FloatToStr(W[i]);   

end;