Pascal/Turbo Pascal - Ayuda código actúa de manera inesperada

   
Vista:
Imágen de perfil de Federico

Ayuda código actúa de manera inesperada

Publicado por Federico fedemontebelli@hotmail.com (3 intervenciones) el 14/04/2016 20:57:39
Hola gente, soy nuevo aqui ya que comenze a estudiar la carrera de Analista en Computacion y tengo que entregar un trabajo para unos dias y al comenzar a crear el algoritmo tengo un error que no actua como yo quiero, si alguno me puede dar una solucion le agradeceria.

El problema es cuando en el codigo que dejo abajo me pide los datos del primer alumno como deberia pero cuando pasa al segundo como que saltea el read(alumno2.NombreYApellido), nose por que puede ser y lo mismo pasa con el alumno 3.

Por favor necesito ayuda ya que debo entregarlo para aca a unos dias. Gracias ! :D

ALGORITMO

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
43
44
45
46
Program ejercicio16;
Type
	TAlumno=RECORD
		  NombreYApellido:string;
		  nota1,nota2,nota3,nota4:real;
		  end;
Var
	alumno1,alumno2,alumno3:TAlumno;
Begin
	{Bloque que lee los datos del primer alumno}
	write('Ingrese el nombre y apellido del primer alumno: ');
	read(alumno1.NombreYApellido);
	writeln('Ahora ingrese las notas del primer alumno..');
	write('Nota 1: ');
	read(alumno1.nota1);
	write('Nota 2: ');
	read(alumno1.nota2);
	write('Nota 3: ');
	read(alumno1.nota3);
	write('Nota 4: ');
	read(alumno1.nota4);
	{Bloque que lee los datos del segundo alumno}
	write('Ingrese el nombre y apellido del segundo alumno: ');
	read(alumno2.NombreYApellido);
	writeln('Ahora ingrese las notas del segundo alumno..');
	write('Nota 1: ');
	read(alumno2.nota1);
	write('Nota 2: ');
	read(alumno2.nota2);
	write('Nota 3: ');
	read(alumno2.nota3);
	write('Nota 4: ');
	read(alumno2.nota4);
	{Bloque que lee los datos del tercer alumno}
	write('Ingrese el nombre y apellido del tercer alumno: ');
	read(alumno3.NombreYApellido);
	writeln('Ahora ingrese las notas del tercer alumno..');
	write('Nota 1: ');
	read(alumno3.nota1);
	write('Nota 2: ');
	read(alumno3.nota2);
	write('Nota 3: ');
	read(alumno3.nota3);
	write('Nota 4: ');
	read(alumno3.nota4);
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
Imágen de perfil de Federico

Ayuda código actúa de manera inesperada

Publicado por Federico (3 intervenciones) el 15/04/2016 00:05:35
Porfavor nadie sabe que es lo que pasa? Necesito solucionarlo cuanta antes!
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

Ayuda código actúa de manera inesperada

Publicado por ramon (2072 intervenciones) el 15/04/2016 13:12:17
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
43
44
45
46
47
48
49
50
51
{Mira esto funciona bien}
 
Program ejercicio16;
Type
	TAlumno=RECORD
		  NombreYApellido:string;
		  nota1,nota2,nota3,nota4:real;
		  end;
Var
	alumno1,alumno2,alumno3:TAlumno;
Begin
	{Bloque que lee los datos del primer alumno}
	write('Ingrese el nombre y apellido del primer alumno: ');
	readln(alumno1.NombreYApellido);
	writeln('Ahora ingrese las notas del primer alumno..');
	write('Nota 1: ');
	readln(alumno1.nota1);
	write('Nota 2: ');
	readln(alumno1.nota2);
	write('Nota 3: ');
	readln(alumno1.nota3);
	write('Nota 4: ');
	readln(alumno1.nota4);
 
	{Bloque que lee los datos del segundo alumno}
	write('Ingrese el nombre y apellido del segundo alumno: ');
	readln(alumno2.NombreYApellido);
	writeln('Ahora ingrese las notas del segundo alumno..');
	write('Nota 1: ');
	readln(alumno2.nota1);
	write('Nota 2: ');
	readln(alumno2.nota2);
	write('Nota 3: ');
	readln(alumno2.nota3);
	write('Nota 4: ');
	readln(alumno2.nota4);
 
	{Bloque que lee los datos del tercer alumno}
	write('Ingrese el nombre y apellido del tercer alumno: ');
	readln(alumno3.NombreYApellido);
	writeln('Ahora ingrese las notas del tercer alumno..');
	write('Nota 1: ');
	readln(alumno3.nota1);
	write('Nota 2: ');
	readln(alumno3.nota2);
	write('Nota 3: ');
	readln(alumno3.nota3);
	write('Nota 4: ');
	readln(alumno3.nota4);
        readln;
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
Imágen de perfil de Federico

Ayuda código actúa de manera inesperada

Publicado por Federico (3 intervenciones) el 27/04/2016 05:36:20
Gracias, lo leí tarde pero por suerte me lo pudieron solucionar de la misma forma a tiempo.. Igual gracias por molestarte ..
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