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

[AsiaDelphi]

Даны натуральные числа n,Z1,...Zn. Сформировать массив W1,...Wn по правилу: W1=Z1*Z1,если Z1 кратно 3; W1=Z1/3,если Z1 кратно 5; или W1=cosZ1 в остальных случаях.

[TEHb]

мля...
объявляешь динамический массив, определяеш размер Z1..Zn, делаеш проверку:

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]);

незабуть Z1..Zn в массив запихать.

[AsiaDelphi]

Это то я как раз знаю.А массивы я создавать не умею

[Serge_Bliznykov]

ну динамические массивы тут совсем не обязательны. можно и статическими обойтись.

пример со статическими массивами:

const N = 10; {в массиве задано 10 чисел}
var 
  Z : array[1..N] of integer;
  W : array[1..N] of double;
  i : integer;
...
begin
  WriteLn('Введите элементы массива Z: ');
  for i:=1 to N do begin
    Write(i,'-й элемент: ');
    Readln(Z[i]);
  end;

  {формирование массива W }
  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;
...

пример с динамическими массивами:

var 
  N : integer;
  Z : array of integer;
  W : array of double;
  i : integer;
...
begin
   repeat
     WriteLn('Введите количество элементов в массиве (N) : ');
     Readln(N);
     if N<1 then 
        WriteLn('Меньше одного элемента не может быть!');  
   until N>0;

   {выделение памяти под массивы Z и W}
   SetLength(Z, N);
   SetLength(W, N);

  WriteLn('Введите элементы массива Z: ');
  for i:=0 to N-1 do begin
....
  дальше всё по тексту вышепреведённой программы, не забывая, что динамические массивы имеют индексацию от нуля, 
поэтому 1-й элемент имеет индекс 0 Z[0], W[0],
а последний элемент массива (в данном случае) имеет индекс N-1
.....

[AsiaDelphi]

Спасибо большое))

[AsiaDelphi]

правда она не хочет работать(А массив должен на форме выводиться?

[Serge_Bliznykov]

правда она не хочет работать(А массив должен на форме выводиться?

нет, разумеется.

Запомните. Программа (ну по крайней мере корректная ) всегда делает ровно то, что в неё заложил программист.

Поэтому, никакого вывода массива (тем более на форме) в данном коде просто напросто нет. Если Вам нужно вывести массив - значит это нужно написать (запрограммировать).

вывести содержимое массива W можно, например так:

for i:=Low(W) to High(W) do
   Write(W[i]:0:7,'  ');

Ну и ещё.
теперь хочу отдельно отметить фразу "на форме выводиться"...
Дело в том, что программы под Win32, написанные на Delphi могут быть принципиально двух видов:
консольные ( в тексте программы задаётся директива {$APPTYPE CONSOLE}
GUI (это программа Win32 со стандартной(ыми) формой(ами) VCL)

в консольной программе допустимы операции работы с консолью:
Write/WriteLn и Read/ReadLn
т.е. можно что-то выдать на экран, либо что-то прочитать (ввести) с консольного ввода.

В программе с использованием форм данные операторы НЕДОПУСТИМЫ (точнее Read/Write можно использовать исключительно для чтения/записи из файлов)!

приведённые мною примеры - это как раз таки КОНСОЛЬНЫЕ (ввод/вывод там осуществляется на стандартную консоль). Если нужно приложение с формами, то операции ввода и вывода нужно убирать, и заменять на работу со оконными элементами управления TEdit, TLabel, TStringGrid и т.д. и т.п....

[AsiaDelphi]

Ну да,я создала форму.А можно вот так ввести массив z:
For i:=1 to n do
Z[i]:=strtofloat(StringGrid1.cells[i])

У меня он почему то останавливается на скобке Z[ и пишет "(" expected but "[" found

[psycho-coder]

For i:=1 to n do
Z[i]:=strtofloat(StringGrid1.cells[i, 0])

[AsiaDelphi]

Вот что у меня получилось,но он не проходит скобку "["

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const N=10;
 type
 Z=array[1..N] of integer;
  W =array[1..N] of double;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 const N = 10;
var
  i: integer;
begin


  for i:=1 to N do begin
    Z[i]:=strtofloat(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;



end.
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.