Pascal/Turbo Pascal - Vectores

Hola como estan necesito hacer una consulta sobre el tma de los vectores en turbo pascal.
la pregunta es:
Como haria para que el limite de un vector sea limtado por el usuario?

por ejemplo

Vector:array[ 1..7] of integer;

/en este vector solo se tienen 7 valores y son determinados por el progrmador/

lo que yo quisiera es que primero le preguntara al usuario cunatos valores quiere y en ves de poner el numero 7 ubicaria una variable, la cual seria el limite de los vectores a usar.

agradeceria su pronta respuesta.

Jos{e Tirado Verbel

Hola!, Vos podes poner que el usuario determine una cantidad, pero vos previamente tuviste q haber puesto una cantidad maxima, ya que los vectores son estructuras estaticas cuyo espacio se define en tiempo de compilacion, por lo tanto no se puede asignar el espacio en tiempo de ejecucion :)!

Un abrazoo!!

hola como te dijo mariano eso podría ser una solucion sobredimensiona el array P.Ej [1..1000] of dato luego el trabajalo solo hasta el número que te de el usuario, no es muy elegante pero funciona, aún así debes indicarle al usuario cual es el límite.
la solucion más decente es utilizar variables dinámicas si no tienes ni idea prueba primero leer algunos tutoriales en la web hay muchiiiiiiiiiiiiiisimos y muy buenos.

Ok grax por las respuestas asi lo hare

hello.......
bueno puedes utilizar una const de 7 elementos
y luego en el main principal le dipes al usuario que introduzca
asi que tu vector que daria algo asi

const
n=7;
vector:array[ 1..n] of integer;

En el pascal de Turbo Pascal no existen los arreglos dinámicos, que si están presentes en Delphi o FreePascal (hasta donde sé).

Pero se puede hacer algo como esto:

type ptrInt=^Integer;

procedure SetValor(const Arreglo:ptrInt; Indice,Valor:integer);
var Aux: ptrInt;
begin
  Aux := Arreglo;
  Inc( Aux, (Indice-1) );
  Aux^ := Valor;
end;

function GetValor(const Arreglo:ptrInt; Indice:integer):integer;
var Aux: ptrInt;
begin
  Aux := Arreglo;
  Inc( Aux, (Indice-1) );
  GetValor := Aux^;
end;

var ArrInt: ptrInt;
      Tamanio: integer;

begin
  write( 'Ingrese un máximo para el arreglo: ' );
  ReadLn( Tamanio );
  GetMem( ArrInt, Tamanio * SizeOf( Integer ) );
  SetValor( ArrInt, 10, 345);
  write( GetValor( ArrInt, 10 ) );
  FreeMem( ArrInt, Tamanio * SizeOf( Integer ) );
end.

Nuestro arreglo es en realidad un puntero a integer.

Pedimos el tamaño al usuario y lo guardamos en "Tamanio".

Después inicializamos pidiendo memoria con GetMem.

GetMem crea x cantidad de bytes. Por eso a la cantidad de integers que nosotros necesitamos (la variable "Tamanio) la multiplicamos por SizeOf(Integer), para que GetMem reserve la cantidad de bytes necesaria para alamacenar "Tamanio" integers.

SizeOf nos devuelve el tamaño en bytes de un tipo de dato o variable.

Acceder a los valores es, por supuesto, mucho más engorroso (e ineficiente) que con un arreglo normal.

Lo que hacemos para acceder a una determinada posición es tomar la primera de las direcciones (la que tiene la variable ArrInt) e incrementarla en Indice-1 ( el -1 es porque el arreglo empieza en 1, pero en memoria estamos empezando en 0).

Así:

Aux := Arreglo; {Aux apunta al mismo lugar que Arreglo}
Inc (Aux, Indice-1); {Auxiliar apunta a la dirección Indice-1 ésima}

Posición: 0 1 2 3 4 5
Arreglo: [ ] [ ] [ ] [ ] [ ] [ ]

Si indice=3 y hacemos Inc(Aux,Indice) vamos a terminar accediendo a la cuarta posición y no a la tercera, de ahí el Indice-1.

¿Se entiende lo que estoy diciendo? Es un poco complicado al principio.

Inc() nos incremeta el puntero teniendo en cuenta que estamos accediendo integers, por eso no es necesario multiplicar el incremento por el tamaño de un integer.

Espero te sirva. Saludongos.

Hola Jose, bueno te digo al igual que tu no sabia como hacer que el usuario declarar la longitud de un vector, pero despues de leer y leer lo consegui,

Es muy sencillo, solo declaras el arreglo de la siguiente manera
Vector= Array [ 1..N] of integer;

en dodne N es un numero infinito, y declaras otra variable que sera el numero que ingrese el usuario., algo como

Long:Integer;

Y solamente colocarias en el FOR I:=1 to Long do,
Aqui el usuario estaria estableciendo la longitud del vector.

Cabe destacar que tuve mi prueba de vectores hace 2 semanas, y se me presento el mismo inconveniente,

Espero que te sea util,
Saludos
Andres VIllanueva
Venezuela - Anzoategui