Pascal/Turbo Pascal - duda, case of...

   
Vista:

duda, case of...

Publicado por wind (26 intervenciones) el 06/04/2014 23:42:56
Saludos cordiales.

Estoy experimentando con case of. Estuve ejecutando un ejemplo en la web y lo amplie.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project1;
{$codepage UTF8}
 
VAR caracter : Char;
 
BEGIN
 Write('Ingrese un caracter :');
 Readln(caracter);
 CASE caracter OF
   'A'..'Z',#165 : Writeln('Ingresaste una mayuscula');
   'a'..'z',#164 : Writeln('Ingresaste una minuscula');
   '@':writeln('Ingresaste un arroba');
   '0'..'9':writeln('Ingresaste un numero entero:');
 END;
 readln;
END.

----------
La pregunta es: ¿ De que manera incluyo los números negativos y los números flotantes? '-1' .. '-9' (No me funciona)
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

duda, case of...

Publicado por ramon (2072 intervenciones) el 07/04/2014 00:32:27
Fíjate que esta empleando un char lo cual solo te permite carácter y 1 solo no mas o sea [- 2] no entra puesto que son 2
caracteres.
tendrías que emplear integer, real, o otro.
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