Pascal/Turbo Pascal - Ayuda con vectores

 
Vista:

Ayuda con vectores

Publicado por Novato (4 intervenciones) el 12/12/2004 03:52:24
Me pueden poner el código y si es posible explicar los pasos,para hacer unos subprogramas q puedan:

-Almacenar un vector introducido desde teclado (puede ser A1xN o ANx1)
-Imprimir un vector

Muchas gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con vectores

Publicado por César Augusto (182 intervenciones) el 13/12/2004 08:44:52
Investigate algo sobre ARRAY y los ciclos for o while
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con vectores

Publicado por Hurricane (73 intervenciones) el 24/12/2004 19:34:56
Supongamos que queremos utilizar un vector de 7 elementos:

Programa Vector;

Uses
Crt;

Const
MaxElem = 7;

Type
VectArr :Array[1..MaxElem] of Integer;

Var
Ind :Integer;
Vect :VectArr;
Ch :Text;

Begin
ClrSrc;
WriteLn('INGRESO DEL VECTOR');
WriteLn('==================');
For Ind := 1 to MaxElem do
Begin
Write('[', Ind, ']? ');
ReadLn(Vect[Ind]);
End; {For]

WriteLn('IMPRIMIENDO EL VECTOR...');
Assign(Ch, 'PRN');
ReWrite(Ch);
For Ind := 1 to MaxElem do
WriteLn(Ch, Vect[Ind]);
Close(Ch);
End. {Vector}

Espero te sea de utilidad. Saludos ;-)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar