pow: DOMAIN error Borland C++

[Alyona_Dm]

Выдает ошибку pow: DOMAIN error и неправильно считает функцию. Вообще без понятия что это и что с этим делать. Помогите пожалуйста новичку.

double G()
{float s=0;
for(int i=0;i<n;i++)
s*=pow(x[i],2);
float p=1;
for(int i=1;i<n;i++)
p*=x[i-1];
return pow(fabs(s*p),1/3);
}

[Stilet]

А полностью код?

[Alyona_Dm]

#ifndef KursH
#define KursH
#include <math.h>
//---------------------------------------------------------------------------

const int n=4;
const int m=4;
typedef float mass[n][m];
mass a;
float x[n];
int i,j;

void matrix()
{for(int i=1;i<=n;i++)
   for (int j=1;j<=m;j++)
      a[i-1][j-1]=(3+i)/(4.0+j)*2*pow(i,(-2))+4*(i/(j+1.0));
}

void vector()
{ float p=1;
float min;
int jmin;
for (int i=0;i<n;i++)
{p*=a[i][1];
min=p;
jmin=0;
}
for(int j=1;j<m;j++)
{p=1;
for(int i=0;i<n;i++)
if(a[i][j]>0)
{p*=a[i][j];
}

if(p<min)
{jmin=j;
min=p;
}
}

for(int i=0;i<n;i++)
x[i]=a[i][jmin];
}

double G()
{float s=0;
for(int i=0;i<n;i++)
s+=pow(x[i],2);
float p=1;
for(int i=1;i<n;i++)
p*=x[i-1];
return pow(fabs(s*p),1/3);
}


#endif

Две первые подпрограммы работают правильно

[Stilet]

Эт чего? О_о
А главная программа где?

[Alyona_Dm]

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Kurs.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
// Процедура создания формы.
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
StringGrid1->Cells[0][0]=" A";
for(int i; i<=n; i++)
{
  StringGrid1->Cells[i][0]=IntToStr(i)+"-ая строка";
  StringGrid1->Cells[0][i]=IntToStr(i)+"-ий столбец";
}
}
//---------------------------------------------------------------------------

// Процедура обработки кнопки "Вычисление матрицы".

void __fastcall TForm1::Button1Click(TObject *Sender)
{
matrix();
for (int i=0;i<n;i++) // Перебираем строки массива.
   for (int j=0;j<m;j++) // Перебираем столбцы массива.

   // Выводим значение массива в компонент округленные до третьего
    // разряда после запятой.

     StringGrid1->Cells[j+1][i+1]=FloatToStrF(a[i][j],ffFixed,5,3);

   // Делаем видимыми или активными следующие элементы формы:
   N5->Enabled=true;          // пункт меню "Вычисление вектора",
   Button2->Visible=true;    // кнопка "Вычисление вектора",
   StringGrid1->Visible=true; // таблица элементов матрицы,
   Label1->Visible=true;   // надпись "Элементы матрицы".
}
//---------------------------------------------------------------------------


// Процедура обработки кнопки "Вычисление вектора".
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  vector();
 Memo1->Clear();          // очистка компонента
   for (i =0; i<n; i++)        // начало цикла за индексами массива
     Memo1->Lines->Add(FormatFloat("0.00", x[i]));  // вывод одного значения массива


   // Делаем видимыми или активными следующие элементы формы:
    N6->Enabled=true;    // пункт меню "Построение графика",
    N7->Enabled=true;      // пункт меню "Вычисление функции".
   Button3->Visible=true;  // кнопка "Построение графика X[i]",
   Button4->Visible=true; // кнопка "Вычисление функции",
   Memo1->Visible=true;  // список элементов вектора,
   Label2->Visible=true;// надпись "Элементы вектора".
}
 //---------------------------------------------------------------------------
 // Процедура обработки кнопки "Построение графbка X[i]".
    void __fastcall TForm1::Button3Click(TObject *Sender)
{
 for (i=0; i<n; i++)      // Перебираем элементы массива.
     Series1->AddXY(i,x[i]);   // Построение графика.

     Chart1->Visible=true; // График зависимости x[i].


}
//---------------------------------------------------------------------------
// Процедура обработки кнопки "Вычисление функции".
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   Edit1->Text=FloatToStr(G());// Выводим значение функции в компонент.

   // Делаем видимыми или активными следующие элементы формы:
   Edit1->Visible=true;   // значение функции,
   Label3->Visible=true; // напись "Значение функции".
}
//---------------------------------------------------------------------------
// Процедура обработки пункта меню "О программе".
void __fastcall TForm1::N3Click(TObject *Sender)
{
ShowMessage("Вариант 10");
}
//---------------------------------------------------------------------------
// Процедура обработки пункта меню "Выход".
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form1->Close();
}

[Stilet]

Уфуфуф... Билдер мне и проверить не на чем...
Знаеш, я бы на твоем месте поставил точку прерывания на return pow(fabs(s*p),1/3); и посмотрел чему равно P и S... А то может они там заоблачные...

[Smitt&Wesson]

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

Уфуфуф... Билдер мне и проверить не на чем...

У меня есть и пятый и шестой. Пусть весь проект скинет. В том, что он привёл, одни обработчики. Без файла проекта и без форм, вообще не разобраться.