Condición Case

Condición Case

Condicion Encajonado (Case)

Sino (Else)

CÓDIGO

Program Sentencia_Case; Uses Crt; Var letra:char; Begin ClrScr; writeln('Escribe un caracter: A, B, ¢ C'); writeln('[RECUERDALO ESCRIBIRLO EN MINUSCULA]'); readln(letra); Case letra of 'a':begin writeln('Escribistes la letra a'); end; 'b':begin writeln('Escribistes la letra b'); end; 'c':begin writeln('Escribistes la letra c'); end; else begin writeln('Escribistes un caracter diferente'); end; end; writeln; writeln('Presiona Enter p/Salir del programa'); readln; End.