Динамический массив!

[Mikhail91]

Мной была создана программа,в которой присутствует массив! практически всё работает!Но Объём массива уже задан в программе(M[10]), а мне нужно чтобы я через едит вводил кол-во его элементов (N). Так необходимо его прописать,я сделал набросок, но незн куда вставить, да наверн и ошибки есть:

 int N; 
double*M;
Label14->Caption<<"Введите кол-во эл-тов(в моём случае машин) ";
Edit3->Text>>N;
M=new double[N];
if (M==0) 
{Label14->Caption<<
}
for(int i=0;i<N;++i)
Edit3->Text>>M[i];

Прошу помочь, я прикреплю свою программу,где вы сможете изменить код!(когда будете указывать кол-во машин-помните не более 10!!!!!Массив ограничен)

P.S Есть ещё кнопка сброс- не знаю как очистить массив(нужн код)!

[Blade]

А что собственно не понятно? В вашем билдере я не разбираюсь, но динамическое выделение памяти сделано правильно. Только не забудьте потом освободить выделенную память

delete[] M;

З.Ы. Зачем после каждой фразы восклицательный знак? Вас переполняют эмоции? =))

[Mikhail91]

=)))Наверн эмоции)

Я незн куда етот код вставить) В начало всего кода, а delete в конец? Прост я уже пробовал-чёт не получается, поэтому и скинул всю прогу+код,чтобы вставили в нужное место!,но всё равно спс что уделил внимание) Жду ещё подсказок

[Гром]

Например, кидаете на форму кнопку, в событии по клику на ней:

N = (Edit1 -> Text).ToInt();
M = new double[N];

а

delete[] M;

вставляете в событие OnDestroy главной формы.

Где-то так.

[Mikhail91]

Я разместил на форме 1 кнопку(Вычислить),4 едита(для ввода данных),1 лабел и поле мемо(для вывода массива)Т.е. упростил свою прогу(чтоб попробовать создать дин массив). И ввёл исправленный код,но прога выдаёт ошибку, вот код-где может быть ошибка:

#include <math.h>

TForm1 *Form1;
int i;
float P=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
long fact(long n){
if(n==0||n==1)return 1;
return (n*fact(n-1));
} //расчитывается факториал

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
int N; 
double*M;
Label1->Caption = "Введите кол-во элементов массива ";
N = Edit3->Text.ToInt();
M = new double[N];
if (M) 
{
 for(int i=0;i<N;i++)
  Edit3->Text += FloatToStr(M) + " ";
}

float obs,p;
float a=StrToFloat(Edit1->Text);//
float t=StrToFloat(Edit2->Text);
double R=StrToInt(Edit4->Text);

{
  obs=1/t;   //рассчитываю obs,p эти данные нужны (для вычисления массива)
  p=a/obs;

}

for(i=1; i<=N; i++)
  {
  if (i<R) M=(fact(N)*pow(p,i))/(fact(i)*fact(N-i));
  else M=(fact(N)*pow(p,i))/(fact(R)*pow(R,i-R)*fact(N-i));
  Memo1->Lines->Text=Memo1->Lines->Text +" "+ "P"+i+"="+ FloatToStrF(M, ffFixed, 7, 4); ;// заполняю и вывожу массив
  }

delete[] M;

}

Вот упрощённая прога! и картинка с ошибкой!

[MaTBeu]

И ввёл исправленный код,но прога выдаёт ошибку

Это ведь ваша программа выдает ошибку, откуда мы можем знать где она? Спросите у компилятора, может он знает лучше. И научитесь пользоваться отладкой.

[Mikhail91]

Я имел в виду код который мне подсказали! Но что то прога не хочет работать, поэтому и попросил найти ошибку

[Гром]

 for(int i=0;i<N;i++)
  Edit3->Text += FloatToStr(M) + " ";

Куда ж у вас индекс запропал? И не только здесь, но и далее.

 for(int i=0;i<N;i++)
  Edit3->Text += (FloatToStr(M[i]) + " ");

Кстати, по-моему, у String нет оператора +=. И в данном конкретном месте вам выведется мусор, т.к. массив неинициализирован.

[MaTBeu]

Но что то прога не хочет работать

Спросите у компилятора. Если есть ошибки, то он вам подскажет где.

Кстати, по-моему, у String нет оператора +=. И в данном конкретном месте вам выведется мусор, т.к. массив неинициализирован.

Есть там и оператор += и -=.

Edit3->Text

это текст компоненты, он всегда инициализирован.

[Гром]

Есть там и оператор += и -=.

Проверил - действительно есть. Во всяком случае, с отдельно объявленной строкой все нормально, а вот конструкции вроде

Label1 -> Caption += " Something";

эффекта не дают (поэтому у меня и зародились сомнения), только если

Label1 -> Caption = Label1 -> Caption + " Something";