Pascal/Turbo Pascal - Cargar elementos consecutivos en un vector

   
Vista:

Cargar elementos consecutivos en un vector

Publicado por Alejandro (15 intervenciones) el 11/08/2015 03:06:00
Hola que tal, tengo un problema con un trabajo que me dieron. Debo crear un vector de 40 elementos consecutivos a partir de un numero introducido por el usuario. Es decir, el programa pregunta INGRESE UN NUMERO, supongamos que ingresa 2, el vector se tiene que generar 2 3 4 5 6 7 8 9 10....42 y asi hasta que se csa el numero 5, tiene que generar 45 elementos,5, tiene que generar 45 elementos.

Hice este codigo, pero el problema es que me carga hasta el numero 40, y no 40 elementos, por ejemplo si pone el numero 39, se carga hasta el numero 40, y no 40 elementos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
{
 
}
 
 
program trabajo;
uses crt;
 
Const
	max = 40;
type
 
	tv_vectorA = array [1..max] of integer;
 
var
	vv_vectorA: tv_vectorA;
	ve_elem: integer;
 
Procedure cargarelemento;
var
	i: integer;
 
begin
 
	write ('Ingrese un elemento: ');
	writeln;
		readln (ve_elem);
 
	for i:= ve_elem to max do
		begin
			writeln (i);
		end;
 
end;
 
BEGIN
 
cargarelemento;
 
 
 
END.
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

Cargar elementos consecutivos en un vector

Publicado por dario (40 intervenciones) el 11/08/2015 17:15:39
Te propongo esta solucion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
   v:array[1..40]of integer;
   n,i:integer;
begin
    clrscr;
    write('Ingrese un numero: ');
    readln(n);
    i:=1;
    while i <=40 do
    begin
        v[i]:=n;
        inc(i);
        inc(n);
    end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Cargar elementos consecutivos en un vector

Publicado por Alejandro (15 intervenciones) el 11/08/2015 18:28:05
ok muchas gracias, y como hago para luego mostrar el vector con los elementos?

por ejemplo si ingreso el numero 2, que me muestre el 2 al 42, osea 42 elementos..

en donde tendria que agregar el write ([i])? porque lo coloco en la linea 13 y me saltan 41 elementos..
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

Cargar elementos consecutivos en un vector

Publicado por dario (40 intervenciones) el 12/08/2015 06:45:52
Si comienzas con el 2, te va a llenar el vector con 40 elementos (del 2 al 41 incluidos).
2-3-4-5-6-7-8-9-10-11 (10 elementos)
12-13-14-15-16-17-18-19-20-21 (10 elementos)
22-23-24-25-26-27-28-29-30-31 (10 elementos)
31-32-33-34-35-36-37-38-39-40-41 (10 elementos)
Total de elementos 40, cuentalos y hay 40 elementos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Cargar elementos consecutivos en un vector

Publicado por Alejandro (15 intervenciones) el 13/08/2015 17:14:02
Ah sii sii tenes razon, mil disculpas, y muchas gracias por la ayuda
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

Cargar elementos consecutivos en un vector

Publicado por Alejandro (15 intervenciones) el 16/08/2015 02:23:41
Disculpa, te hago una pregunta, cual es la funcion de INC (I) y INC (VE_NRO)??
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

Cargar elementos consecutivos en un vector

Publicado por dario (40 intervenciones) el 16/08/2015 11:05:17
La funcion INC() incrementa el valor de una variable.
Entonces escribir:
inc(i) es lo mismo que hacer i = i + 1
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