Post by Bruno Silva on Jan 29, 2015 19:31:28 GMT
Par ou Impar
O jogo classico de par ou impar feito em PT BASIC de maneira simples e funcional
Escolha par ou impar e um número.
O jogo classico de par ou impar feito em PT BASIC de maneira simples e funcional
Escolha par ou impar e um número.
TAMANHO_DA_JANELA HORIZONTAL=29 VERTICAL=20
NOME_DA_JANELA Par ou Impar
MARCA.topo
LIMPAR_TEXTO
MOSTRAR +--------------+
MOSTRAR + Par ou Impar +
MOSTRAR +--------------+
ESPAÇO
MOSTRAR [1] Par
MOSTRAR [2] Impar
INSERIR x=
SE: %x% IGUAL_A 1 VAI_PARA par
SE: %x% IGUAL_A 2 VAI_PARA impar
VAI_PARA topo
MARCA.par
LIMPAR_TEXTO
MOSTRAR Escolha um valor de 0 a 10
INSERIR f=
SE: %f% MAIOR_QUE 10 VAI_PARA par
SE: %f% MENOR_QUE 0 VAI_PARA par
//Computador escolhe o seu número
OPERAR y=ACASO.NUMERO*11/32767
OPERAR k=%f%+%y%
SE: %k% IGUAL_A 0 VAI_PARA ganhou
SE: %k% IGUAL_A 2 VAI_PARA ganhou
SE: %k% IGUAL_A 4 VAI_PARA ganhou
SE: %k% IGUAL_A 6 VAI_PARA ganhou
SE: %k% IGUAL_A 8 VAI_PARA ganhou
SE: %k% IGUAL_A 10 VAI_PARA ganhou
SE: %k% IGUAL_A 12 VAI_PARA ganhou
SE: %k% IGUAL_A 14 VAI_PARA ganhou
SE: %k% IGUAL_A 16 VAI_PARA ganhou
SE: %k% IGUAL_A 18 VAI_PARA ganhou
SE: %k% IGUAL_A 20 VAI_PARA ganhou
//Caso k não for par o computador vai ler esta linha
LIMPAR_TEXTO
MOSTRAR O valor: %k%
MOSTRAR Perdeu!
MOSTRAR Carregue Enter para repetir
PAUSAR
VAI_PARA topo
MARCA.ganhou
LIMPAR_TEXTO
MOSTRAR Valor: %k%
MOSTRAR Ganhou!
MOSTRAR Carregue Enter para repetir
PAUSAR
VAI_PARA topo
MARCA.impar
LIMPAR_TEXTO
MOSTRAR Escolha um valor de 0 a 10
INSERIR f=
SE: %f% MAIOR_QUE 10 VAI_PARA par
SE: %f% MENOR_QUE 0 VAI_PARA par
//Computador escolhe o seu número
OPERAR y=ACASO.NUMERO*11/32767
OPERAR k=%f%+%y%
SE: %k% IGUAL_A 1 VAI_PARA ganhou2
SE: %k% IGUAL_A 3 VAI_PARA ganhou2
SE: %k% IGUAL_A 5 VAI_PARA ganhou2
SE: %k% IGUAL_A 7 VAI_PARA ganhou2
SE: %k% IGUAL_A 9 VAI_PARA ganhou2
SE: %k% IGUAL_A 11 VAI_PARA ganhou2
SE: %k% IGUAL_A 13 VAI_PARA ganhou2
SE: %k% IGUAL_A 15 VAI_PARA ganhou2
SE: %k% IGUAL_A 17 VAI_PARA ganhou2
SE: %k% IGUAL_A 19 VAI_PARA ganhou2
//Caso k não for par o computador vai ler esta linha
LIMPAR_TEXTO
MOSTRAR O valor: %k%
MOSTRAR Perdeu!
MOSTRAR Carregue Enter para repetir
PAUSAR
VAI_PARA topo
MARCA.ganhou2
LIMPAR_TEXTO
MOSTRAR Valor: %k%
MOSTRAR Ganhou!
MOSTRAR Carregue Enter para repetir
PAUSAR
VAI_PARA topo