Clubeinvest.com - Arquivo Phorum - 1. Clube de Investidores

Arquivo Phorum (1997-2002)

Home

Fórum

Fórum Antigo

Arquivo Phorum

Acções

Portfolio Managers

Publicações

Contacto

1. Clube de Investidores

← Lista de Tópicos | Ir para o Tópico | Pesquisar

Mensagem Anterior | Mensagem Seguinte

Piada Informática (EURO 2004)

Autor: Zimix
Data: 16-06-2004 09:28

Para quem tem algumas noções em linguagens de programação para computadores, cá vai: ;-)

while( !Fim(match(Grecia,Espanha)) )
Rezar(EMPATE);
ResultGreciaEspanha=match(Grecia,Espanha);

wait(19h45);

while( !Fim(match(Portugal,Russia)) )
Rezar(VITORIA);
Result=drand48(Portugal,Russia); // Roleta russa

switch(Result)
{
case VITORIA:
Somos(OsMaiores);
ScolariE(Bestial);
MadailE(Bestial);
if( !BandeiraNaVaranda )
PenduraBandeira(Varanda);
if( !BandeiraNoCarro )
PenduraBandeira(Carro);
if( !CachecolNoCao )
PenduraCachecol(Cao);
Celebrar();
break;
case EMPATE:
Apuramento=CalcularChancesApuramento(Result, ResultGreciaEspanha);
if( Apuramento<33 )
{
char **BodeExpiatorio;

ScolariE(Burro);
MadailE(Burro);
SeleccaoE(Burro);
Responsavel(BodeExpiatorio);
Criticar(BodeExpiatorio);
RemoverBandeiras(ALL);
RemoverCachecois(ALL);
}
else if( Apuramento<=66 )
{
ScolariE(Morcao);
MadailE(Morcao);
Seleccao(CambadaDeNabos);
Rezar(APURAMENTO);
Criticar(Scolari);
}
else
{
// Impossivel - em caso de empate, Apuramento e sempre <=66
printf("\nProbabilidade impossivel, soprar ao balao e repetir sse <0,5g/l sangue");
}
break;
case DERROTA:
char **BodeExpiatorio;

Divorcio(Adeptos,Seleccao);
ScolariE(Burro+Morcao+Besta);
MadailE(Burro+Morcao+Besta);
SeleccaoE(Burro+Morcao+Besta+CambadaDeNabos+Peseteiros);
Responsavel(BodeExpiatorio);
Enforcar(BodeExpiatorio);
QueimarBandeiras(ALL);
QueimarCachecois(ALL);

DesligarTV();
IgnorarEuro();
Instalar(Depressao);
Instalar(Recessao);
break;
}

Lista de Fóruns | Vista Plana

Tópico Mais Recente | Tópico Anterior

Tópicos

Autor

Leituras

Data

Piada Informática (EURO 2004)

Zimix

16-06-2004 09:28

Disclaimer:

O Clubeinvest.com informa que nenhuma da informação aqui facultada deverá ser entendida como conselho ou recomendação de qualquer tipo de transacção ou investimento.