Вычислить с помощью функции сумму элементов массива

@yaroslav2 · Регистрация: 05.04.2014

Author24 — интернет-сервис помощи студентам

Задание: ввести в Мемо некоторое количество чисел.Создать динамический масив из отрицательных Мемо. Вычислить с помощью функции сумму элементов массива!
ПОМОГИТЕ ПОЖАЛУЙСТА!
вот код который я написал но он не правильно работает!

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,N=Memo1->Lines->Count,kol=0;double x;
for(i=0;i<N;i++)
{x=StrToFloat(Memo1->Lines->Strings[i]);
if(x>=0)kol++;}
double *a=new double [kol];
int j=0;
for(i=0;i<N;i++)
{x=StrToFloat(Memo1->Lines->Strings[i]);
if(x>0){a[j]=x;j++;}
}
for(j=0;j<kol;j++)
Memo2->Lines->Add(FormatFloat("0.0",a[j]));
double qw=sa(a,kol);
Edit1->Text=FloatToStr(qw);
delete []a;

@Miteud · 06.04.2014, 15:47

Вот как должен выглядеть твой код. Сделал его для целочисленных значений.

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Memo1->Clear();
}
//---------------------------------------------------------------------------
 
int summing(int *a, int N)
{
  int i, s=0;
  for (i=0; i<N;i++)
  s += a[i];
  return s;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i=0,s;
int N=Memo1->Lines->Count;
int *a=new int [N];
int j=0;
for (i=0;i<N;i++)
{
  if (Memo1->Lines->Strings[i] < 0)
   {
     a[j]= StrToInt(Memo1->Lines->Strings[i]);
     j++;
   }
else
  if(Memo1->Lines->Strings[i] >= 0)
   {
     a[j]=NULL;
     j++;
   }
}
s = summing (a,N);
 
Edit1->Text=s;
delete []a;
}
//---------------------------------------------------------------------------

Можешь посмотреть готовую прогу.

@Miteud · 06.04.2014, 22:08

В проге в кнопке "Выход" забыл написать

C++

void __fastcall TForm1::Button4Click(TObject *Sender)
{
Close();        
}

Добавлено через 5 часов 59 минут
В принципе, в том коде, что я написал, может и не быть условие после else, оно итак очевидно

C++

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Memo1->Clear();
}
//---------------------------------------------------------------------------
 
int summing(int *a, int N)
{
  int i, s=0;
  for (i=0; i<N;i++)
  s += a[i];
  return s;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i=0,s;
int N=Memo1->Lines->Count;
int *a=new int [N];
int j=0;
for (i=0;i<N;i++)
{
  if (Memo1->Lines->Strings[i] < 0)
   {
     a[j]= StrToInt(Memo1->Lines->Strings[i]);
     j++;
   }
else
 
 
   {
     a[j]=NULL;
     j++;
   }
}
s = summing (a,N);
 
Edit1->Text=s;
delete []a;
}
//---------------------------------------------------------------------------

	06.04.2014, 22:08