CASE PASCAL

Tambien existen ocasiones o programas donde se exige evaluar muchas condiciones a la vez, en estos casos o se usa una condición compuesta muy grande o se debe intentar convertir el problema a uno que se pueda resolver usando la instrucción CASE.

La instrucción CASE es una instrucción de decisión multiple, donde el compilador prueba o busca el valor contenido en una variable contra una lista de constantes ints o chars, cuando el computador encuentra el valor de igualdad entre variable y constante, entonces ejecuta el grupo de instrucciones asociados a dicha constante, si no encuentra el valor de igualdad entre variable y constante, entonces ejecuta un grupo de instrucciones asociados a un default, aunque este ultimo es opcional.

El formato de esta instruccion es el siguiente;

capturar o asignar variable de condicion;

CASE var int o char OF

const1: begin instruccion(es); end;

const2: begin instruccion(es); end;

const3: begin instruccion(es); end;

else begin instruccion(es); end

END;

OBSERVAR donde se usan y donde no se usan los ( : ) y los ( ; )

Mejor un ejemplo practico:

Prog3.pas

program prog3;

uses crt;

var

letra:char;

begin

clrscr;

gotoxy(20,5);write('dame una letra :');

readln(letra);

(* empieza case *)

case letra of

'a': begin gotoxy(50,5); write('aguila'); readln; end;

'b','B': begin gotoxy(50,5); write('becerro'); readln; end;

'c': begin gotoxy(50,5); write('caballo ');write('camello'); readln; end;

else begin gotoxy(50,5);write('no hay');readln; end

end;

end.

corrida:

Notas:

1.- Solo se puede usar como variable de condicion una variable entera o variable char.

2.- Las constantes que estamos buscando y comparando son de tipo char, por eso se deben encerrar entre apostrofes ( ').

3.- Si se quiere resolver el problema de mayusculas o minusculas en el teclado, observar que solo se separan con una coma ( , )

6.- Recordar que case solo trabaja con constantes y variables de tipo char o int, en este ultimo caso solo usar una variable de opcion de tipo entero y en los case poner la constante numerica sin apostrofes.

En particular, instrucciones de tipo case se usan para construir programas d

CASE PASCAL:

Turbo Pascal