Totoloto - Pascal

[Marvrick]

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

 

[Dark_Webster]

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.

 

[Marvrick]

Ok, ok obrigado.

Abraços