Hola, Bescir:
Aquí va el código:
Program Suma_de_Vectores;
Type
TypeArrar = Array[1..10] of Integer;
Var
V1, V2, V3 :TypeArray;
{Entrega un Nº al azar entre "Min" y "Max"}
Function Rnd(Min, Max :Integer) :Integer;
Begin
If (Min>Max) then
Rnd := Rnd(Max, Min)
Else
Begin
Randomize;
Rnd := Random(Max-Min+1)+Min;
End; {If}
End; {Rnd}
{Entrega la cantidad de elementos de un Array}
Function LenArray(Var V :TypeArray) :Word;
Begin
LenArray := (SizeOf(V) DIV SizeOf(V[1]));
End; {LenArray}
{Suma los Arrays "V1" y "V2" y deja el resultado en "V3"}
Procedure AddArrays(Var V1, V2, V3 :TypeArray);
Var
Index :Word;
Begin
For Index := 1 to LenArray(V1) do
V3[Index] := V1[Index] + V2[Index];
End; {AddArrays}
{Inicializa una Array con un valor aleatorio}
Procedure InitArray(Var V :TypeArray);
Var
Index :Word;
Begin
For Index := 1 to LenArray(V) do
V[Index] := Rnd(0, 10000);
End; {InitArray}
{Muestra el contenido de los Arrays "V1", "V2" y "V3"}
Procedure ShowArrays(Var V1, V2, V3 :TypeArray);
Var
Index :Word;
Begin
WriteLn('ELEMENTO':15, 'ARRAY #1':15, 'ARRAY #2':15, 'ARRAY #3':15);
For Index := 1 to LenArray(V1) do
WriteLn(('['+Index+']'):15, V1[Index]:15, V2[Index]:15, V3[Index]:15);
End; {ShowArrays}
{Genera una pausa hasta la pulsación de una tecla}
Procedure Pause;
Var
Key :Char;
Begin
{Limpia el Buffer del Teclado...}
While KeyPressed do
Key := ReadKey;
Key := ReadKey;
If (Key=#0) then {Si Key=#0, se pulsó una tecla especial...}
Key := ReadKey;
End; {Pause}
Begin
InitArray(V1);
InitArray(V2);
AddArrays(V1, V2, V3);
ShowArrays(V1, V2, V3);
Pause;
End. {Suma_de_Vectores}
Cualquier comentario acerca del programa, me envías un e-mail o lo Posteas por acá. Saludos ;-)
