■ Estructura Selectiva Case

■ Estructura selectiva Case (switch) en Pascal

Explicación de esta estructura aquí: Estructuras Selectivas.

■ Sintaxis

case (<variable>) of

    valor_1:

        {Instruccioens para valor 1}

    valor_2:

        {Instrucciones para valor 2}

    valor_n:

        {Instrucciones para valor n}

    else

        {Instrucciones para ninguna de las anteriores}

end;

■ Ejemplo

Program EstructuraCase;

Uses

    crt;

Var

    dia : integer;

Begin

    WriteLn('Ingresa un número');

    ReadLn(dia);

    

    case (dia) of

        1:

            WriteLn('Lunes');

        2:

            WriteLn('Martes');

        3:

            WriteLn('Miércoles');

        4:

            WriteLn('Jueves');

        5:

            WriteLn('Viernes');

        6:

            WriteLn('Sábado');

        7:

            WriteLn('Domingo');

        else

            WriteLn('Día inválido');

    end;

End.

■ Ejemplo con letras:

Program EstructuraCase;

Uses

    crt;

Var

    letra : char;

Begin

    WriteLn('Ingresa un número');

    ReadLn(letra);

    

    case (letra) of

        'a':

            WriteLn('Opción a');

        'b':

            WriteLn('Opción b');

        'c':

            WriteLn('Opción c');

        else

            WriteLn('Ninguna de las anteriores');

    end;

End.

La opción "else" entra cuando el valor de la variable recibida en el "case" no coincide con ninguna de las opciones.