Var a, b: real; Const c = 10.0;
begin a := 9.0; b := 2.0*c; if (a>0) XOR (b>0) then Write('Fixe!') else Write(' Uma pena'); end.
Fixe! Fixe! Uma pena Uma pena o programa não tem output!
Var a: real; Const C = 2;
begin a := 3.0; Case a+1.0 Of 1: Write('Fixe!'); C: begin WriteLn('Cool!'); WriteLn('Ingles'); end; 3: Write('Super!'); else Write('Language?'); end; end.
O Case .. Of não pode conter expressões (a+1.0) O Case ... Of não funciona com expressões do tipo real (a+1.0) Na estrutura Case ... Of não podemos usar constantes (C) Na estrutura Case ... Of não podemos usar else
uma expressão uma condição uma atribuição uma operação