Algoritmo para efetuar o processamento de classificação de equipes esportivas

Pilula
(usa Outra)

Enviado em 29/07/2017 - 15:49h

Boa tarde pessoal,

estou com um problema em resolver um determinado algoritmo de como efetuar o processamento de classificação de equipes esportivas.
Na competição, as equipes esportivas são agrupadas por grupo, contendo 4 (quatro) equipes por grupo, onde estas jogam entre si em um total de 6(seis) partidas. Cada equipe efetua 3 (três) partidas (combinação de quatro dois a dois)

Ao final destas 6(seis) partidas serão classificados as 2 (duas) primeiras equipes que obtiverem os melhores desempenhos, conforme critérios a seguir:

1 - A cada vitória serão computados 3 (três) pontos para a equipe vencedora e 0 (zero) pontos para a equipe perdedora.
2 - Em caso de empate serão computados 1(um) pontos para cada equipe.
3 - A classificação será em ordem decrescente de pontos.
4- se as equipes apresentarem o mesmo número de pontos no final da fase, então deverá ser observado o saldo de gols de cada equipe, ou seja, a diferença entre os gols marcados e os gols sofridos, sendo o melhor a classificada o que obtive o maior saldo de gols.
5- Em persistindo em empate, então a classificação será efetuada pela equipe que apresentar o maior numeros de gols marcados.
6- se todo os critérios anteriores forem iguais, então procede-se um sorteio entre as equipes que apresentarem o mesmo numero de pontos, saldos e gols marcados.

Então, meu codigo que eu fiz até agora é :

 algoritmo "classificação

// Função :

// Autor :

// Data : 28/07/2017

// Seção de Declarações 

var

TimeA, TimeB, TimeC, TimeD, TimeE, TimeF:caracter

PTimeA, PTimeB, PtimeC,PtimeD,PtimeE,PtimeF:real

GTimeA, GTimeB, GTimeC, GTimeD, GTimeE, GtimeF:real

inicio

// Seção de Comandos 



Escreva("                     Nome do Time A: ")

Leia(TimeA)

Escreva("                     Nome do Time B: ")

Leia(TimeB)

Escreva("                     Nome do Time C: ")

Leia(TimeC)

Escreva("                     Nome do Time D: ")

Leia(TimeD)

Escreva("                     Nome do Time E: ")

Leia(TimeE)

Escreva("                     Nome do Time F:")

                        Leia(TimeF)

                        

   Escreval("       Primeira Rodada")

   

   Escreval( TimeA, " VS " ,TimeB)

   Escreva ("Digite Resultado ")

   Escreva ("Gols do ", TimeA,"  ==> ")

       Leia(GTimeA)

   Escreva ("Gols do ", TimeB,"  ==> ")

       Leia(GTimeB)

se  (GTimeA > GTimeB) entao

    PTimeA <- 3

    senao

    PTimeB <- 3

se (GtimeA = GtimeB) entao

PTimeA <- 1

PtimeB <- 1



fimse

fimse



 Escreval( TimeC, " VS " ,TimeD)

   Escreva ("Digite Resultado ")

   Escreva ("Gols do ", TimeC,"  ==> ")

       Leia(GTimeC)

   Escreva ("Gols do ", TimeD,"  ==> ")

       Leia(GTimeD)

se  (GTimeC > GTimeD) entao

    PTimeC <- 3

    senao

    PTimeD <- 3

se (GtimeC = GtimeD) entao

PTimeA <- 1

PtimeB <- 1



fimse

fimse















                        







fimalgoritmo



 

Eu queria saber se há alguma forma de fazer uma combinação para todos os times jogarem entre si sem ficar repetindo essas estruturas se. E se alguém encontrar uma forma melhor de resolver, por favor compartilhe comigo xD
Não precisa resolver o problema pra mim, só me dê uma luz mesmo. Obrigado.

Mauriciodez
(usa Debian)

Enviado em 30/07/2017 - 01:32h

olha só ... eu não sou programador mais pela experiencia q tive no excel em tentar fazer uma tabela desse naipe só no VBA eu te falo ... não rola de fazer sem BD ... quer dizer ... até rola mais vai consumir horrores de memória e se fechar o programa já era tudo !!

Então no seu algoritimo vc inclua as opções "imprimir para o arquivo" !!


------------------------------------------| Linux User #621728 |-----------------------------------------

" Nem sempre é amigo aquele que te tira do buraco !!! ( Saddam Hussein )"

------------------------------------------| Linux User #621728 |-----------------------------------------

Pilula
(usa Outra)

Enviado em 30/07/2017 - 21:32h

Mas é um trabalho mano... Preciso fazer em visualg ou no pascal.
Obrigado pela atenção!

Pebis
(usa Debian)

Enviado em 30/07/2017 - 21:50h

acho que com array e for você consegue