[María_B]

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?

[Gerardo Exequiel Pozzi]

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: [Seleccionar]

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: [Seleccionar]

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!