Somatória de varios elementos de uma array

Delphi

07/02/2014

eu to com uma dúvida e queria saber se tem como alguém me ajudar:
eu fiz uma valor : array [1..40] of integer e eu queria fazer a seguinte somatória desses elementos

conforme eu vou avançando a casa , o elemento deve somar com as casa anteriores ou seja :

se eu tiver na valor[1] o valor dele vai ser 1
se eu tiver no valor[10] o valor dele vai ser a 10ª+ 9ª + 8ª + 7ª +6ª + 5ª +4ª+3ª+2ª+1ª
e assim por diante até a [40]

eu até fiz algumas coisas porém eu não to conseguindo fazer essa soma alguém poderia me ajudar?
Paulo Garbelini

Paulo Garbelini

Curtidas 0

Respostas

Leandro Chiodini

Leandro Chiodini

07/02/2014

GOSTEI 0
Paulo Garbelini

Paulo Garbelini

07/02/2014

então aquele lá eu tinha feito mas esse aqui é outro rssss

não sei se falei de modo errado aogra


a soma ia ficar tipo assim

valor[1] = 1
valor[2] = 2+1
valor[3] =3+2+1
valor[4]= 4+3+2+1

e assim por diante....e no final ele ainda soma todas as casas ( isso particularmente eu ja sei) tem como fazer isso em uma linha de comando só?
GOSTEI 0
Leandro Chiodini

Leandro Chiodini

07/02/2014




for cont := 1 to 40 do
{	
	if(cont = 1)
		valores[cont] := cont;
	else	
		valores[cont] := valores[cont-1] + 1;
}
GOSTEI 0
Leandro Chiodini

Leandro Chiodini

07/02/2014



for cont := 1 to 40 do
{	
	if(cont = 1) then
		valores[cont] := cont;
	else	
		valores[cont] := valores[cont-1] + 1;
}
GOSTEI 0
Marcos Saffran

Marcos Saffran

07/02/2014

Só fazendo uma pequena alteração:


for cont := 1 to 40 do
	if(cont = 1) then
		valores[cont] := cont
	else	
		valores[cont] := valores[cont-1] + cont; //substituído o 1 pelo cont


esse cálculo usa valores de 1 a 40, mas se você quiser a soma de valores diferentes, que já estejam na array, então
for cont := 1 to 40 do
	if(cont = 1) then
		soma := valores[cont]
	else	
		soma := soma + valores[cont];
GOSTEI 0
POSTAR