Pascal/Turbo Pascal - Notas de alumnos

   
Vista:
Imágen de perfil de Misael

Notas de alumnos

Publicado por Misael (34 intervenciones) el 26/04/2016 19:38:43
Necesito crear este proyecto, Este proyecto Convertir calificaciones numéricas, según la siguiente tabla: A = 19 y 20, B =16, 17 y 18, C = 13, 14 y 15, D = 10, 11 y 12, E = 1 hasta el 9. Se asume que la nota está comprendida entre 1 y 20.

y no me sale, les adjunto el código,

codigo-fuente
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 xve

Notas de alumnos

Publicado por xve (21 intervenciones) el 26/04/2016 20:14:30
Hola Misael, podrías adjuntar el archivo o copiarlo para poder probarlo y no tener que escribirlo!!!
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 Misael

Notas de alumnos

Publicado por Misael (34 intervenciones) el 26/04/2016 21:31:16
Perdon este es el codigo pero no se porque no me funciona


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Notas;
Uses crt;
Var x:integer;
Begin
Clrscr;
Writeln(‘Ingrese notas menres que 20’);
if ((x>=19) or (x<= 20)) then
Writeln(‘Su Nota es “A”’)
Else
if ((x>=16) or (x<= 18)) then
Writeln(‘Su Nota es “b”’)
Else
if ((x>=13) or (x<= 15)) then
Writeln(‘Su Nota es “c”’)
Else
if ((x>=10) or (x<= 12)) then
Writeln(‘Su Nota es “d”’)
Else
if ((x>=1) or (x<= 9)) then
Writeln(‘Su Nota es “e”’)
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

Notas de alumnos

Publicado por ramon (2072 intervenciones) el 27/04/2016 18:57:25
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
{revisa el error que tenias}
 
Program Notas;
Uses crt;
Var x:integer;
Begin
Clrscr;
Writeln('Ingrese notas menres que 20 : ');
readln(x);
if ((x >= 19) or (x = 20)) then
Writeln('Su Nota es A')
Else
if ((x >= 16) or (x = 18)) then
Writeln('Su Nota es b')
Else
if ((x >= 13) or (x = 15)) then
Writeln('Su Nota es c')
Else
if ((x >= 10) or (x = 12)) then
Writeln('Su Nota es d')
Else
if ((x >= 1) or (x = 9)) then
Writeln('Su Nota es e');
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