VisualG Erro em um código teste no VisualG

[Aleatorio02]

eu comecei agora na programação e resolvi começar com VisualG, por isso estava tentando testar algumas coisas, no meio disso tentei criar um "minijogo" mas por algum motivo no final quando peço para ele escrever o resultado, o resultado não aparece, eu gostaria de saber se alguém pode me dizer o motivo disso acontecer

 

o código :

 

Algoritmo "semnome"

Var
   num, num_aleat: inteiro
   resultado: caractere
   jogador: caractere
   computador: caractere
Inicio
    escreval ("escolha um número entre 0 e 50: ")
    leia (num)
    escreval ("número escolhido pelo computador: ")
    aleatorio 1, 50
    leia (num_aleat)
    aleatorio off
    
    escreval
    se num_aleat > num então
       resultado <- computador ganhou
    senao
         se num_aleat < num então
         resultado <- jogador ganhou
         fimse
    fimse
    
    escreva ("Resultado: ", resultado)

 

[luscas]

4 horas atrás, Aleatorio02 disse:

 resultado <- computador ganhou

 

4 horas atrás, Aleatorio02 disse:

resultado <- jogador ganhou

Caractere precisa colocar entre aspas

Exemplo :

resultado <- "jogador ganhou !!"

codigo:

Algoritmo "semnome"

Var
   num, num_aleat: inteiro
   resultado: caractere
   jogador: caractere
   computador: caractere
Inicio
    escreval ("escolha um número entre 0 e 50: ")
    leia (num)
    escreval ("número escolhido pelo computador: ")
    aleatorio 1, 50
    leia (num_aleat)
    aleatorio off

    escreval
    se num_aleat > num então
       resultado <- "computador ganhou !!"
    senao
         se num_aleat < num então
         resultado <- "jogador ganhou !!"
         fimse
    fimse

    escreva ("Resultado: ", resultado)
fimalgoritmo

 

[devair1010]

@Aleatorio02     o erro é esse mesmo que o @luscas  citou acima ,  e para gerar números aleatórios você pode usar o comando "randi" . assim :

escreval ("número escolhido pelo computador: ")
//aleatorio 1, 50
//leia (num_aleat)
//aleatorio off
num_aleat := randi(50) + 1// gera numeros de 1 até 50
escreval(num_aleat)

 

[Aleatorio02]

@luscas Realmente era isso mesmo, agora o código está funcionando certinho muito obrigado ai!

@devair1010 valeu pela dica! eu vou tentar criar uns outros códigos e vou usar "randi" para ir testando, obrigado mesmo.