ordenação

[Joelson Silva]

Olá pessoal 

 

Editado Setembro 27 por Joelson Silva
Excluir sem importância.

[Leonardo Persan]

Tenta assim

 

algoritmo "loteria"

var
vetA: vetor[1..5]de inteiro
vetores: vetor[1..999,1..5]de inteiro
num,x,t,i,j,iguais,cont,total:inteiro
n1,n2,n3,n4,n5:inteiro

inicio
// Seção de Comandos
    escreva("informe numero:")
    leia(num)

    para n1 de 1 ate num faca
        vetA[1]:= n1
        para n2 de n1+1 ate num faca
            vetA[2]:= n2
            para n3 de n2+1 ate num faca
                vetA[3]:= n3
                para n4 de n3+1 ate num faca
                    vetA[4]:= n4
                    para n5 de n4+1 ate num faca
                        vetA[5]:= n5

                        total:= total + 1

                        para t de 1 ate cont faca
                            iguais:=0
                            para i de 1 ate 5 faca
                                para j de 1 ate 5 faca
                                    se(vetA[i] = vetores[t,j])então
                                        iguais:=iguais + 1
                                    fimse
                                fimpara
                            fimpara
                            se(iguais >= 4)então
                                interrompa
                            fimse
                        fimpara

                        se(iguais < 4)então
                            cont:=cont + 1
                            para x de 1 ate 5 faca
                                 vetores[cont,x] := vetA[x]
                            fimpara
                            escrevaL("volantes",cont,"=:",vetA[1],vetA[2],vetA[3],vetA[4],vetA[5])
                        fimse

                    fimpara
                fimpara
            fimpara
        fimpara
    fimpara
    escreval("reduzidos:", cont)
    escreval("total gerados:", total)

fimalgoritmo

 

[Joelson Silva]

Sem importância 

Editado Setembro 27 por Joelson Silva
diferença no código

[Joelson Silva]

Sem importância 

Editado Setembro 27 por Joelson Silva
CORREÇÃO

[Leonardo Persan]

Eu ainda não consegui entender o que você quer fazer com esse algorítimo até agora eu entendi que:

1- O usuário digita o número da maior dezena
2- O sistema gera conjuntos de 5 dezenas
3- O sistema descarta conjuntos com mais de 3 dezenas iguais á outros conjuntos

Se não for isso explique melhor, de maneira sucinta

Editado Março 2, 2020 por Leonardo Persan

[Joelson Silva]

Sem importância 

Editado Setembro 27 por Joelson Silva
Mais uma Correção