ESTRUCTURA DE CASE

LA ESTRUCTURA CASE FUNCIONA EN PASCAL PARA HACER PROGRAMAS CON VARIAS OPCIONES
PUEDEN SER MENSAJES Y OPERACIONES DEPENDIENDO DEL PROGRAMA TODO DEPENDE DE LA RELACION QUE LE QUIERAS DAR A EL PROGRAMA.

COMO PRIMER EJEMPLO DE LO QUE HACE LA ESTRUCTURA Y COMO FUNCIONA TENEMOS EL SIG CODIGO QUE HACE LA FUNCION DE UNA CALCULADORA EN PASCAL.




CODIGO

program calculadora;
uses
crt;
var
num_1: integer;
operador: char;
num_2: integer;
begin
clrscr;
writeln('Teclea un numero');
readln(num_1);
writeln('Teclea un operador');
readln(operador);
writeln('Teclea otro numero');
readln(num_2);
begin
case operador of
'+': writeln(num_1+num_2);
'-': writeln(num_1-num_2);
'*': writeln(num_1*num_2);
'/': writeln(num_1/num_2);
else
writeln('Error!!!! esa opperacion no se puede hacer');
end;
end;
readln;
end.



ASI SE VERA EL PROGRAMA EN EJECUCION:







CALCULADORA.EXE