16/08/2008, 14:46
|
 | | | Fecha de Ingreso: junio-2008 Ubicación: ../Arg/SanLuis.city
Mensajes: 943
Antigüedad: 16 años, 8 meses Puntos: 28 | |
| (PASCAL) Problema con un Promedio :S
Jejeje, Disculpen que los moleste para esta tonteria, pero nose porque tengo un error aca..
Cita: PROGRAM Promedio_Alumno;
VAR a,b,c,d,e,f:INTEGER;
BEGIN
WRITELN('Este programa calcula el Promedio de un Alumno:');
WRITELN (' ');
WRITE ('Introduzca el Nombre del Alumno: '); READLN (a);
WRITE ('Introduzca la Primer Nota del Alumno: '); READLN (b);
WRITE ('Introduzca la Segunda Nota del Alumno: '); READLN (c);
WRITE ('Introduzca la Tercera Nota del Alumno: '); READLN (d);
WRITELN (' ');
e:= (b+c+d) div 3;
WRITE ('EL PROMEDIO DE ',a, ' ES: ',e);
readln (f);
END. Supuestamente el programa tiene que calcular el promedio de un alumno que tiene tres calificaciones...
Bueno, el programa funciona bien...
Pero...................
Si en el nombre le pongo por ejemplo: "juancito". La ventana se cierra, antes de que tome los datos...
En cambio si le pongo de nombre por ejemplo: "65". Hace todo el calculo normal...
Porque puede ser que no me tome las letras donde va el nombre y si me tome los numeros???
Alguna Solucion??
Espero Que me Puedan Ayudar... Un abrazo.  |