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.

Tocador de Vídeo (Lazarus)

Menu

SpaceAllience_Animation

programa pra somar e tirar média

Gerador de senha Pascal/Lazarus

Nenhum comentário foi encontrado.