Euromilhões
Ao vasculhar as minhas antigas pastas do meu tempo de aprendiz, descobri o enunciado de um exercício e a resolução que eu tinha feito.
O Euromilhões é, de momento, o jogo de lotaria mais famoso e jogado na Europa. Existem métodos matemáticos para determinar quantas combinações existem. O objectivo deste exercício é a utilização de ciclos for encadeados para descobrir o número de combinações existentes. Relembre que a chave é composta por 5 números, de 1 a 50, e 2 estrelas, de 1 a 11.
Este programa já está adaptado para as novas regras do Euromilhões.
(* Adaptado às novas regras. *)
program milhoes2;
uses crt;
const ESTRELAS = 11;
NUMEROS = 50;
var a, b, c, d, e : integer; {numeros}
f, g : integer; {estrelas}
cont : longint; {contador}
begin
writeln('MILHOES 2, por Igor Nunes, 2014.');
readln;
writeln('O programa esta a calcular todas as chaves do Euromilhoes. Aguarde...');
writeln;
for f:=1 to ESTRELAS-1 do
for g:=f+1 to ESTRELAS do
for a:=1 to NUMEROS-4 do
for b:=a+1 to NUMEROS-3 do
for c:=b+1 to NUMEROS-2 do
for d:=c+1 to NUMEROS-1 do
for e:=d+1 to NUMEROS do
inc(cont);
writeln('Chaves do Euromilhoes: ', cont);
{$ifdef win32}
write('[Enter] para fechar...'); {só para Windows}
readln;
{$endif}
end.