algoritmo basico visualg

[willysp 0]

 Jogo "Par ou Ímpar":

Usando a função randi(limite) do Visualg, fazer um

algoritmo do jogo “par ou ímpar”. O usuário deve escolher entre

par ou ímpar. Para isso, o algoritmo deve pedir que seja fornecido

um valor numérico: 0 significando par e 1 significando ímpar. Em

seguida, o usuário fornece seu número. O computador gera um

número aleatório entre 0 e 10, exibe o número na tela, soma com

o número do usuário e informa quem ganhou: o computador ou

usuário.

algoritmo "jogo par ou impar"

// Função :randi

// Autor :willy

// Data : 8/4/2010

var

par, impar, jogada, resultado, resultadofinal , numerocomputador, n: inteiro

nome, usuario, numerousuario, computador :caracter

inicio

escreva ("nome:")

leia (nome)

escreval ("par [0] e impar [1]")

leia (usuario)

se (usuario = "0")entao

numerousuario <- ("par")

senao

numerousuario <- ("impar")

fimse

escreval ("voce escolheu:" ,numerousuario)

escreval("numero do usuario")

leia (jogada)

n <- randi(10)

numerocomputador <- n%2

escreva ("numero computador:")

leia(computador)

se (computador = "0") entao

computador <- ("par")

senao

computador <- ("impar")

fimse

escreval ("o computador escolheu:" , computador)

resultado <-(numerocomputador+jogada)%2

se (resultado=jogada) entao

resultadofinal <- ("perdeu, tente novamente")

fimse

fimalgoritmo

não está executando com pede, por favor me ajude a resolver.

[Claudio Neto 3]

Olá willysp.

 

Se dúvida é com VB, poste seu código em VB ao invés do algorítmo.

 

Se sua dúvida é com o próprio algorítmo, avise que transfiro o tópico para o lugar certo.