Programa de teste que de quem descobriu o Brasil e diz se o usuário acertou, usando Case

• Download exemplo19.pas
• Enviar nova versão

Esconder código-fonte

Program exemplo;

{Programa de teste que ede quem descobriu o Brasil
e diz se o usu rio acertou, usando Case}

uses crt;

Var
  resposta:char;

Begin
  clrscr;

  Writeln('Quem descobriu o Brasil?');

  Writeln('a - Silvio Santos');
  Writeln('b - Cabral');
  Writeln('c - Pl cido Domingos');

  Readln(resposta);

  Case resposta of
    'a': writeln('Resposta Errada');
    'b': writeln('Resposta Certa');
    'c': writeln('Resposta Errada');
    else writeln('Op‡Æo Inv lida');
  End;

  readkey;

end.

Registro

Números perfeitos

intercalar dois arrays (vetores)

escreve os números de 1 a 9 com repeat - until

encontrar o menor valor em um vetor

Nenhum coment�rio foi encontrado.