16/09/2019, 05:17:57 am *
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Ingresar con nombre de usuario, contraseña y duración de la sesión
Noticias: Homenaje a NUMERARIUS
 
 
Páginas: [1]   Ir Abajo
  Imprimir  
Autor Tema: Free Pascal  (Leído 1550 veces)
0 Usuarios y 1 Visitante están viendo este tema.
María_B
Semi pleno
***

Karma: +0/-0
Desconectado Desconectado

Sexo: Femenino
Argentina Argentina

Mensajes: 81


Ver Perfil
« : 16/11/2008, 09:59:10 pm »


Hola necesito "que funcione" un programa donde se clasifique un caracter ingresado como una letra minúscula vocal.
program caracteres(input, output);
var c: char;
begin
         write(’ Entrar un caracter: ’); readln(c); writeln;
         write(c);
         if (’a’ = c) or (’e’ = c) or (’i’ = c) or (’o’ = c) or (’u’ = c)
         then writeln(’ es una vocal ’) else writeln(’ no es una vocal’);
         writeln('Fin')
end.

¿Por qué no funciona? :BangHead:
En línea
djgera
Pleno*
*****

Karma: +0/-0
Desconectado Desconectado

Sexo: Masculino
Argentina Argentina

Mensajes: 122



Ver Perfil WWW
« Respuesta #1 : 16/11/2008, 10:26:06 pm »

Hola

¿Que es lo que no anda de eso? Fijate que estás poniendo mal las comillas simples: es la que es sin inclinación.

Te presento dos opciones, según los gustos.

Código:
program caracteres(input, output);
var c: char;
begin
        write('Entrar un caracter: '); readln(c);
        writeln;
        write(c);
        if ((c = 'a') or (c = 'e') or (c = 'i') or (c = 'o') or (c = 'u')) then
                writeln(' es una vocal ')
        else
                writeln(' no es una vocal');
        writeln('Fin')
end.

Código:
program caracteres(input, output);
var c: char;
begin
        write('Entrar un caracter: '); readln(c);
        writeln;
        write(c);
        if (c in ['a', 'e', 'i', 'o', 'u']) then
                writeln(' es una vocal ')
        else
                writeln(' no es una vocal');
        writeln('Fin')
end.

¡Salut!
En línea
Páginas: [1]   Ir Arriba
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.4 | SMF © 2006, Simple Machines LLC XHTML 1.0 válido! CSS válido!