jogo bobo testando com case

Publicado por NewLinuxer 14/12/2005

[ Hits: 4.961 ]

Download exemplo19.pas




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

  



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.

Scripts recomendados

Contador de números (Pascal) - efeito Matrix

Maior numero do Vetor

Calculadora de décimo terceiro salário em Pascal

Maior e menor

Conjuntos


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts