Сумма трех

[asd48]

Нужно заполнить заполнить вектор H суммами значений каждых трёх элементов одномерного массива F в порядке их расположения. Размерность массива произвольная.
Вот код:

#include <iostream>
#include <math.h>
#include<iomanip>
using namespace std;

int main()
{
int *F,i,m,k;
int *E,j;

cout<<"Vvedite razmernost: ";
cin>>m;
k=(int) m/3;
F=new int[m];
E=new int[k];
cout<<"Vvedite vector "<<"\n";
 for(i=0;i<m;i++)cin>>F[i];
 cout<<"    Icxodnij massiv"<<endl;	       
cout<<endl;

for (i=0;i<m;i++)cout<<setw(4)<<F[i]<<"\t";
cout<<endl;
cout<<endl;
cout<<"   Novij massiv"<<endl;
cout<<endl;
j=0;
for(i=0;i<m;i=i+3)

//Условие
	  E[j]=F[i]+F[i+1]+F[i+2];
	  j++; 
//Вывод на печать
for(i=0;i<j;i++)
 cout<<setw(4)<<E[i]<<"\t";
		
	   cout<<endl;
	return 0;
}

Проблема в том, что по данному коду можно сосчитать только если размерность массива кратна трем, а нужно сделать так, например, что если я задам размерность 5, то программа вывела бы только сумму первых трех элементов, а остальные 2 элемента в расчет не брала.

[Sazary]

#include <iostream>
#include <conio.h>
using namespace std;

int main()
{
int *mas,*V,i,m,n;

cout<<"Vvedite razmernost: ";
cin>>m;

mas = new int[m];
n = (int)m/3;
V = new int[n];

cout<<"Vvedite massiv: \n";
for(i=0;i<m;i++)
 cin>>mas[i];

cout<<"\nIshodnyj massiv:\n";
for(i=0;i<m;i++)
 {
  cout.width(4);
  cout<<mas[i];
 }
cout<<endl<<"Konechnyj massiv:\n";

for(i=0;i<n;i++)
 {
  V[i] = mas[i*3]+mas[i*3+1]+mas[i*3+2];
  cout.width(4);
  cout<<V[i];
 }

delete[] mas;
delete[] V;

getch();
return 0;
}

И не забывайте очищать память!

[asd48]

[QUOTE] mas[i*3][QUOTE] Поясните пожалуйста.

[asd48]

mas[i*3]

Поясните пожалуйста, что это значит.

[Sazary]

Ну смотрите.
Допустим, есть массив:

1 2 3 4 5 6 7 8 9 10

Разобьем его на тройки (нумеруем от нуля):

1 2 3  4 5 6  7 8 9  10
   0       1       2

Нам нужны суммы этих троек.
Сумма нулевой получается так: mas[0]+mas[1]+mas[2]
А теперь смотрим, как получается сумма первой:
mas[1*3+0] + mas[1*3+1] + mas[1*3+2]
То есть, для получения значений из нужной тройки нужно прибавить к соответствующему индексу (0, 1 или 2) 3*i.

[asd48]

спасибо большое за подробное объяснение.

[asd48]

а возможно

mas[i*3]

представить также в VB?

[Sazary]

а возможно представить также в VB?

Да. Это же обычное число.

[asd48]

Private Sub Command1_Click()
Dim m As Integer
Dim F() As Integer, E() As Integer

Dim i As Integer, k As Integer

m = InputBox("Введите размернось", "Размерность")
ReDim F(m)
k = m / 3
ReDim E(k)
For i = 0 To m
    F(i) = InputBox("f" & i)
Next
Print "Исходная матрица"
For i = 0 To m
Print F(i); "   ";
Next


For i = 0 To m Step 3
E(i) = F(i) + F(i + 1) + F(i + 2)


Next
For i = 0 To k Step 3
Print ""
Print "Новый вектор"
Print E(i); "   ";
Next

End Sub

А в том же виде сделать эту строчку, как в С++ я понятия не имею.

[Sazary]

А в том же виде сделать эту строчку, как в С++ я понятия не имею.

Ну так вы же перевели на VB свой вариант. Что-то я не понимаю, что у вас не получается перевести.

Если имеете в виду это:

V[i] = mas[i*3]+mas[i*3+1]+mas[i*3+2];

то так и записывайте:

V(i) = mas(i*3)+mas(i*3+1)+mas(i*3+2);