Pular para o conteúdo principal

Gerando números aleatórios

Função Aleatorio
Gera um número aleatório de acordo com a semente passada. Retorna um número aleatório menor ou igual ao primeiro parâmetro informado, usando como semente o segundo parâmetro. É recomendado que esta semente seja sempre o último número aleatório gerado por esta função.
Sintaxe:Aleatorio(nMax, nSeed)

Parâmetros
nMax – Número máximo para a geração do número aleatório
nSeed – Semente para a geração do número aleatório

Retorna
nRet – Número aleatório retornado

Exemplo:
nSeed := 0
For i := 1 to 100
nSeed := aleatorio(100,nSeed)
? str(i,3) + " numero aleatorio gerado: " + str(nSeed,3)
Next i

Comentários

  1. E como faço para gerar tipo uns 500 números aleatórios?

    ResponderExcluir
    Respostas
    1. Olá Hussyvel,

      Para isto você pode fazer o seguinte:

      //------------
      aNumGuarda := {}
      nSeed := 0

      for i := 1 to 2000
      nSeed := aleatorio(2000,nSeed)
      if ascan ( aNumGuarda, nSeed ) = 0
      aadd(aNumGuarda, nSeed)
      if len(aNumGuarda) > 499
      exit
      endif
      endif
      next i
      //------------

      O vetor aNumGuarda, recebe 500 números aleatórios gerados (entre 1 e 2000, ou o intervalo que achar melhor), sem repetição.
      Agora só falta você escolher a forma que deseja para mostrar os números que estão armazenados em aNumGuarda.
      Bom desenvolvimento!

      Obrigado pela sua participação!

      Excluir

Postar um comentário

Postagens mais visitadas deste blog

Status das tabelas: SPED050 e SPED052

STATUS DA TABELA SPED050: Status NFe (campo STATUS) :  1 = NFe Recebida.  2  =  NFe Assinada.  3  =  NFe com falha no schema XML.  4  =  NFe transmitida.  5  =  NFe com problemas.  6  =  NFe autorizada.  7  =  Cancelamento. Status Cancelamento/inutilização (campo STATUSCANC) :  1  =  NFe Recebida.  2  =  NFe Cancelada.  3  =  NFe com falha de cancelamento/inutilização. Status Mail (campo STATUSMAIL) :  1  =  A transmitir.  2  =  Transmitido.  3  =  Bloqueio de transmissão – cancelamento/inutilização. STATUS DO SPED052:  1  =  Lote transmitido.  2  =  Lote recebido com sucesso.  3  =  Lote com erro.

Teclas de Atalhos TOTVS Developer Studio (Eclipse)

Seguem os atalhos para o TOTVS Developer Studio  (Eclipse)  : CTRL+H Localizar vários locais CTRL+F Localizar / substituir CTRL+K Localizar proximo resultado abaixo CTRL+SHIFT+K Localizar proximo resultado acima F11 Depurar F5 Percorre linha F6 Pula linha CTRL+F8 Trocar perspectiva CTRL+F7 Mudar visualização CTRL+F6 Navegar entre os fontes abertos CTRL+M Maximiza / miniminiza fonte CTRL+N Novo (wizard) CTRL+L Ir para linha CTRL+D Deleta toda linha CTRL+ALT+DOWN Duplica linha para baixo CTRL+ALT+UP Duplica linha para cima CTRL+SHIFT+L Apresenta lista de atalhos ALT+UP Move linha para cima ALT+DOWN Move linha para baixo CTRL+SHIFT+I Indenta o fonte CTRL+F9 Compilar CTRL+ESPAÇO...

Impressão com imagens no Protheus

Muitas vezes é necessário incluir uma imagem num relatório (uma logomarca por exemplo). Uma das maneiras de se fazer isto, é usar a classe TMSPRINTER() . O programa exemplo abaixo, ilustra bem como fazer. Este usa também a classe TFONT() (o tamanho do fonte leva o sinal de menos) : # include "PROTHEUS.CH" # include "RWMAKE.CH" user function fImprimeG() local oFont08 := tfont():New( 'Courier new' ,, -8, .t.),,; oFont09 := tfont():New( 'Courier new' ,, -9, .t.),,; oFont10 := tfont():New( 'Courier new' ,,-10, .t.) oPrint:=tmsprinter():new( "Impressao Grafica" ) oPrint:setportrait() oPrint:SetpaperSize(9) // PAPEL A4 if .not. oPrint:Setup() // MOSTRA JANELA DE CONFIGURAÇÃO DE IMPRESSAO msgalert( "IMPRESSAO CANCELADA." ) return nil endif // ESTE BLOCO PODE FICAR EM LOOP (DO WHILE, FOR..., ETC.) oPrint:StartPage() // oPrint:sayBitmap(linha, coluna, "C:\SUAPASTA\SUAIMAGEM.BMP", largura, al...