Pascal/Turbo Pascal - PROBLEMA CON ARRAYS

 
Vista:
sin imagen de perfil
Val: 5
Ha aumentado su posición en 11 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

PROBLEMA CON ARRAYS

Publicado por Federico (4 intervenciones) el 20/07/2017 00:40:05
BUENAS TARDES, HACE VARIOS DIAS QUE ME TIENE MAL UN EJERCICIO, TENGO UN PROBLEMA AL CARGAR UN SEGUNDO ARREGLO, EL PRIMERO LO CARGA BIEN, PERO AL LLEGAR AL SEGUNDO, APENAS APRIETO UNA TECLA SE CIERRA EL PROGRAMA, AGRADECERIA MUCHO SU AYUDA. EL CODIGO ES ESTE:

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
program codbarras (input,output);
uses crt;
TYPE
vector1=array [1..3] of string;
vector2=array [1..4] of string;
var
vectorcod:vector1;
vectorimp:vector2;
 
 
 
procedure IngresoDatos; {Se ingresan los datos}
var
i,j:integer;
begin
     i:=0;
     j:=0;
     write ('INGRESE EL CODIGO DE LA EMPRESA: ');
     for i:= 1 to 3 do
     begin
     read (vectorcod[i]);
     end;
     write ('INGRESE EL IMPORTE: ');
     for j:= 1 to 4 do
     begin
          read (vectorimp[j]);
     end;
end;
 
 
 
 
begin
IngresoDatos;
readkey;
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
sin imagen de perfil
Val: 54
Oro
Ha aumentado 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

PROBLEMA CON ARRAYS

Publicado por dario (38 intervenciones) el 20/07/2017 05:22:27
Solo cambia los read por readln.

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
//program codbarras (input,output);
uses crt;
TYPE
	vector1=array [1..3] of string;
	vector2=array [1..4] of string;
var
	vectorcod:vector1;
	vectorimp:vector2;
 
procedure IngresoDatos; {Se ingresan los datos}
var
	i,j:integer;
begin
	//i:=0;
	//j:=0;
	write ('INGRESE EL CODIGO DE LA EMPRESA: ');
	for i:= 1 to 3 do
		readln(vectorcod[i]);
 
	write ('INGRESE EL IMPORTE: ');
	for j:= 1 to 4 do
		readln(vectorimp[j]);
end;
 
begin
	clrscr;
	IngresoDatos;
	readkey;
end.
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
sin imagen de perfil
Val: 5
Ha aumentado su posición en 11 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

PROBLEMA CON ARRAYS

Publicado por Federico (4 intervenciones) el 20/07/2017 13:56:41
El problema es que si le agrego el LN, cada digito que ponga se va yendo hacia abajo y le tengo que dar enter por cada digito, yo necesito cargarlo de esta forma. por ejemplo: 3245 y enter.

Muchas gracias, 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