VisualG Gerar Numero aleatorio no visualg de 0 a 5

[Semnet]

como gerar um numero de 0 a 5 aleatoriamente ?

[devair1010]

@Semnet use o comando b := randi(6) que vai gera números de zero até cinco .

e pode usar também o comando ateatorio , colocado no lugar do leia.

[Simon Viegas]

Como citado pelo @devair1010, tem duas formas:

 

1#

Com o randi(). Ex.:

algoritmo "semnome"
var
   mes1, mes2 :inteiro

inicio
   escreval("Soteando 2 meses")
   mes1 <- randi(12) + 1
   mes2 <- randi(12) + 1
   escreval("")
   escreval("Mes 1:", mes1)
   escreval("Mes 2:", mes2)
fimAlgoritmo

 

 

 

2#

Utilizando aleatório:

algoritmo "semnome"
var
   mes1, mes2 :inteiro

inicio
   escreval("Digite o mes do ano")
   aleatorio 1, 12
   leia(mes1)
   leia(mes2)
   aleatorio off
   escreval("")
   escreval("Mes 1:", mes1)
   escreval("Mes 2:", mes2)
fimAlgoritmo

No caso, os leia() que estão dentro do aleatorio, serão gerados automaticamente. Essa forma é bem interessante pois mantém a estrutura atual. Bom para testar código! Excelente recurso do Visualg!

 

 

 

2.1#

Outra forma é utilizando listas:

Algoritmo "Exemplo uso de listas do Visualg"
var
   nome  :caractere
   estado:caractere
   mes   :caractere

Inicio
   escreva ("Nome  : ")
   leia(nome)
   ALEATORIO ON
   escreva ("Estado: ")
   lista "ESTADOS"
   leia(estado)
   escreva ("MES   : ")
   lista "MESES"
   leia(mes)
   ALEATORIO OFF
   escreval()
   escreval()
   escreval("NOME  : ",nome)
   escreval("ESTADO: ",estado)
   escreval("MES   : ",mes)
Fimalgoritmo

Fonte: