1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Totoloto - Pascal

Discussão em 'Programação' iniciada por Marvrick, 8 de Dezembro de 2008. (Respostas: 2; Visualizações: 1865)

  1. Marvrick

    Marvrick Power Member

    Boas... Estou a elaborar um mini-projecto para uma disciplina de programação no 12º ano.
    Estou a elaborar um totoloto em pascal, mas estou com alguns problemas ao nível da função aleatória...
    Não consigo fazer com que ele me deixe de apresentar números repetidos e/ou valores 0.

    Alguma dica de como o poderei fazer??

    Abraços
     
  2. Dark_Webster

    Dark_Webster Power Member

    Bem, uma das maneiras de poderes impedir que ele meta o zero é por exemplo:

    (sinceramente já não me lembro muito de pascal)
    x := Rnd ou random(49 + 1) ou x := Rnd ou random(49)+1

    Isto assim vai fazer números de 1 a 50, que possivelmente é o que tu queres.

    Agora para não haver números repetidos tens que fazer uma condição de maneira a verificar se algum número está repetido. Se estiver, voltar a randomizar o número até o número sair diferente.
     
    Última edição: 8 de Dezembro de 2008
  3. Marvrick

    Marvrick Power Member

    Ok, ok obrigado.

    Abraços
     

Partilhar esta Página