Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:snippet:euromilhoes

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.

Créditos a thoga31.

dev_geral/pascal/snippet/euromilhoes.txt · Última modificação em: 2018/05/14 21:37 (edição externa)