[elucia]

D(i)=4,7^(sin^3(x(i))+ln(x(i)^2),если 5<=x(i)<=15
e^x(i)+x(i)^(1/3) если 0<x(i)<5
x(i)+3,2, если x(i)<=0 или x(i)>15

Продолжительность цикла i=1-15
Массивы d,x
Доп.условия: кол-во отрицательных элементов массива d.
наибольшее значение элементов массива x

что-то пыталась сделать, но это вся штука не выполняется.

Код:

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    StringGrid1: TStringGrid;
    N1: TMenuItem;
    x1: TMenuItem;
    N2: TMenuItem;
    y1: TMenuItem;
    Label1: TLabel;
    Edit1: TEdit;
    procedure x1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure y1Click(Sender: TObject);
  private
    { Private declarations }
  public
  n:integer;
  x,d:array[1..15]of integer;
 
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.x1Click(Sender: TObject);
var i:integer;
 
begin
for i:=1 to 15 do
x[i]:=strtoint(stringgrid1.Cells[0,i]);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='x';
stringgrid1.Cells[1,0]:='d'
end;
 
procedure TForm1.y1Click(Sender: TObject);
var i:integer;xx:string;
begin
For i:=1 to 15 do begin
d[i]:=random(15);
stringgrid1.Cells[1,i]:=inttostr(d[i]);
if (5<=x[i]<=15)
then
d[i]:=exp(sin(x[i])*ln(4.7))+ln(sqr(2))
else
if 0<x[i]<5
then exp x[i]*ln(exp)+exp(1/3*ln(x[i]))
else
d[i]:=x[i]+3.2;
str(d[i]:1:2,xx);
striggrid1.cells[1,i]:='d[+inttostr(i)+]='+xx;
 
 
end;
end;
end.

[lmikle]

Условия в if'ах так писать нельзя. Надо в 2 части:

Код:

if (5<=x[i]) And (x[i]<=15)
...
if (0<x[i]) And (x[i]<5)