COMANDO CASE

COMANDO CASE ( adaptado de Norton T. Roman)

Um programa tem a seguinte interface

Escolha um planeta:

(M)ercúrio

(V)ênus

(T)erra

M(a)rte

(J)úpiter

(S)aturno

(U)rano

(N)etuno

(P)lutão

Sua opção é:

Ler o caracter do usuário (pode ser maiúsculo ou minúsculo) e passar para a uma variável com a gravidade do planeta escolhido.... até agora faziamos:

PROGRAM Planetas;

VAR g : real; {a gravidade}

p : char; {o planeta escolhido}

{mostra a interface e devolve a letra digitada}

FUNCTION interface : char;

BEGIN

writeln('Escolha um planeta:');

writeln(' (M)ercúrio');

writeln(' (V)ênus');

writeln(' (T)erra');

writeln(' M(a)rte');

writeln(' (J)úpiter');

writeln(' (S)aturno');

writeln(' (U)rano');

writeln(' (N)etuno');

writeln(' (P)lutão');

write('Sua escolha: ');

readln(interface)

END;

BEGIN

IF (p='m') OR (p='M') THEN g := 1 {valor fictício}

ELSE

IF (p='v') OR (p='V') THEN g := 2

ELSE

IF (p='t') OR (p='T') THEN g := 3

ELSE

IF (p='a') OR (p='A') THEN g := 4

ELSE

IF (p='j') OR (p='J') THEN g := 5

ELSE

IF (p='s') OR (p='S') THEN g := 6

ELSE

IF (p='u') OR (p='U') THEN g := 7

ELSE

IF (p='n') OR (p='N') THEN g := 8

ELSE

IF (p='p') OR (p='P') THEN g := 9

ELSE writeln('planeta não existente')

END.

Um novo modo de fazer isso é:

O ELSE é totalmente opcional, se o omitirmos e o usuário digitar uma letra não prevista, o programa simplesmente sai do CASE, passando à próxima linha de programa.

PROGRAM Planetas;

VAR g : real; {a gravidade}

p : char; {o planeta escolhido}

{mostra a interface e devolve a letra digitada}

FUNCTION interface : char;

BEGIN

writeln('Escolha um planeta:');

writeln(' (M)ercúrio');

writeln(' (V)ênus');

writeln(' (T)erra');

writeln(' M(a)rte');

writeln(' (J)úpiter');

writeln(' (S)aturno');

writeln(' (U)rano');

writeln(' (N)etuno');

writeln(' (P)lutão');

write('Sua escolha: ');

readln(interface)

END;

BEGIN

p := interface;

CASE p OF

'm','M' : g := 1;

'v','V' : g := 2;

't','T' : g := 3;

'a','A' : g := 4;

'j','J' : g := 5;

's','S' : g := 6;

'u','U' : g := 7;

'n','N' : g := 8;

'p','P' : g := 9

else writeln('Planeta inexistente')

END

END.

OUTROS EXEMPLOS ESTRUTURA CASE …OF …

Exemplo I.

Var Y, X : Integer;