Ayuda código actúa de manera inesperada
Publicado por Federico (4 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
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
0