Помогите исправить программу

[kill301]

Язык программирования Delphi

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

  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.

[Angel666]

Запиши вместо x:=power(sin(i-1),3)/p; вот это x:=exp(3*ln(sin(i-1)))/p. По идеи это должно помочь, и еще тебе надо заполнить stringgrid1 или в ручную или через random

[ForexnAx]

It doesn't make sense given the time line, but it looks cool anyway!