Determinação da moda
início
para i de 1 até n - 1 faça
conta <-- 1;
para j de i + 1 até n faça
se tabela[i] = tabela[j] então
conta <-- conta + 1;
fim-se;
fim-para;
freq[i] <-- conta;
fim-para;
max <-- 1;
para i de 2 até n faça
se freq[i] > freq[max] então
max <-- i;
fim-se;
fim-para;
moda <-- tabela[max];
imprima("Moda igual a ", moda);
fim.
Tente fazer um algoritmo mais eficiente...
Nenhum comentário:
Postar um comentário
Observação: somente um membro deste blog pode postar um comentário.