[VB6] Sommare il Primo e l'Ultimo Elemento di un Vettore

[M@ttia]

La traccia è: caricare un vettore di numeri interi e stampare la somma della coppia di elementi formata dal primo e l'ultimo, il secondo e il penultimo, etc...
Mi servirebbe il flow chart di questo programma.

[M@ttia]

Linguaggio di programmazione?

Comunque in Pesudo-Codice generico:

Input: Vettore v= ( v[1] ... v[n] );

Codice: Seleziona tutto

n = size(v);

for i = 0 ... floor(n/2) - 1
{
  print v[i+1] + v[n-i];
}

if(n == dispari) print "E rimane un elemento centrale v[ceil(n/2)] ";

[maki93]

il linguaggio è il visual basic...ho dimenticato di scriverlo su...comunque grazie per l'aiuto!

[M@ttia]

VB6 o VB.NET ? La sintassi del .NET non la conosco, del 6 sì...

[maki93]

si si è del 6.....

[M@ttia]

Ok, allora in VB6 sarebbe:

Codice: Seleziona tutto

% Inizializzo un Vettore a caso di dimensione n=15
dim n as Integer
dim v() as Integer

n = 15
ReDim v(1 To n)
v(1) = 17
...
v(n) = 43

% Calcolo le Somme
For i = 0 To Int(n/2)-1
{
  'print' v(i+1) + v(n-i)  % Qui lo "stampi" dove vuoi: TextBox, MsgBox, TextList, ecc.
}

If n Mod 2 = 1 Then 'print' "E rimane un elemento centrale v(Int(n/2)+1)

[maki93]

grazie mille!!!:-)