 Autor
|
Tema: problema con programa en Pascal (Leído 5,088 veces)
|
|
SXF
|
Buenas tengo un problemilla con un programa en pascal este es el algoritmo: program ejemplo2; var nota:integer; begin read(nota); case nota of '20': writeln('M. honor'); '19','18': writeln('Sobresaliete'); '17','16': writeln<'Notable'); '15','14': writeln('Aprobado'); else writeln('Suspenso'); end end.
no se por que me tira error , lo que hace es sencillo comparar notas () utilizo el frepascal.
|
|
|
|
« Última modificación: 17 Enero 2011, 18:08 pm por Novlucker »
|
En línea
|
|
|
|
Garfield07
 Desconectado
Mensajes: 1.121
¡Este año voy a por todas! JMJ 2011
|
'17','16': writeln<'Notable');
no se por que me tira error , lo que hace es sencillo comparar notas () utilizo el frepascal.
1) Por que no usas esto: '17','16': writeln('Notable');
como en los demas? 2) Podrias explicar tu error, al menos..
|
|
|
|
|
En línea
|
 * Quiero cambiar el mundo, pero estoy seguro de que no me darían el código fuente. * No estoy tratando de destruir a Microsoft. Ese será tan solo un efecto colateral no intencionado. * Si compila esta bien, si arranca es perfecto. ¡Wiki elhacker.net!Un saludo |
|
|
|
SXF
|
me tira muchos errores  Nose creo que el analisis de casos esta mal..lo que quiero hacer es compara las notas si es 20 (sobresaliente ) si es 19 o tal ... y asi... |
|
|
|
|
En línea
|
|
|
|
Garfield07
Desconectado
Mensajes: 1.121
¡Este año voy a por todas! JMJ 2011
|
Postea los errores, no una foto. No se ve nada bien...
|
|
|
|
|
En línea
|
* Quiero cambiar el mundo, pero estoy seguro de que no me darían el código fuente. * No estoy tratando de destruir a Microsoft. Ese será tan solo un efecto colateral no intencionado. * Si compila esta bien, si arranca es perfecto. ¡Wiki elhacker.net!Un saludo |
|
|
Khronos14
Desconectado
Mensajes: 443
A lie is a lie
|
Así a simple vista, ya te digo yo que te faltan los "uses". Además, con read() estás leyendo un integer y en el case..of estás haciendo las comparaciones como si fuera una cadena.
Saludos.
|
|
|
|
|
En línea
|
|
|
|
|
SXF
|
gracias a todos ,el error estaba en que no hay que poner '' con numeros pero si con letras..las librerias no hace falta usarlas aki..
|
|
|
|
|
En línea
|
|
|
|
skapunky
Electronik Engineer &
Colaborador
Desconectado
Mensajes: 3.667
www.killtrojan.net
|
Bieeeeen una pregunta de pascal, allá va, prueba lo siguiente: program ejemplo2; uses crt; var nota:integer; begin read(nota); case nota of '20': writeln('M. honor'); '18'..'19': writeln('Sobresaliete'); '16'..'17': writeln<'Notable'); '14'..'15': writeln('Aprobado'); else writeln('Suspenso'); end end.
No tengo el compilador en este ordenador, pero el codigo debería funcionar. |
|
|
|
|
En línea
|
Killtrojan Syslog v1.44: ENTRAR
|
|
|
Khronos14
Desconectado
Mensajes: 443
A lie is a lie
|
skapunky, SFX ya dijo que lo solucionó. Además tu código está mal. program ejemplo2; uses crt; var nota: integer; begin read(nota); case nota of 20: writeln('M. honor'); 18,19: writeln('Sobresaliete'); 16,17: writeln('Notable'); 14,15: writeln('Aprobado'); else writeln('Suspenso'); end; end.
|
|
|
|
|
En línea
|
|
|
|
skapunky
Electronik Engineer &
Colaborador
Desconectado
Mensajes: 3.667
www.killtrojan.net
|
Cierto, se me colaron las comas al copiar el codigo original, pero en turbo pascal se puede poner un rango de numero de la siguiente manera:
1..n
Lo he probado y funciona en delphi 6 enterprise.
|
|
|
|
|
En línea
|
Killtrojan Syslog v1.44: ENTRAR
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
programa pascal
Ejercicios
|
rudyairlines
|
1
|
4,991
|
5 Enero 2008, 19:30 pm
por rudyairlines
|
|
|
|
Programa en pascal!!!!!!!!!!!!!!
Programación General
|
slipfr16
|
5
|
3,955
|
4 Octubre 2010, 15:41 pm
por bolivianito
|
|
|
|
Problema con este programa en Pascal.
Programación General
|
Manimecker
|
5
|
4,701
|
9 Abril 2011, 13:18 pm
por skapunky
|
|
|
|
Programa pascal
Programación General
|
juanrada66
|
4
|
3,321
|
31 Diciembre 2011, 23:46 pm
por ¡Micronet!
|
|
|
|
Programa en pascal . . .
Programación General
|
nige
|
4
|
3,408
|
23 Agosto 2014, 05:39 am
por nige
|
 |
