Developing.ru

Код: Выделить всё

  x:array of single;
p:single;
min, i,n:integer;

begin
   n:=StrToint(edt_n.text);
   Setlength (x,n);
//ввод вектора
  p:=1;
  for i:=1 to n do

  begin
   n:=StrToint(stringgrid1.cells[0,i]);
  stringgrid1.Cells[0,1]:=FloatToStr(n);
    p:=p*i;

    x[i]:=power(sin(i-1),3)/p;
    end;
    // min
    min:=1;
    for i:=1 to n do ;
    if x[i]<x[min] then min:=i;
   
    if x[min]>0 then  showmessage ('net znacheniy ');
    edt_min.text:=IntToStr(min);
    end;
  end.