Calculo de la Moda
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 8.115 ]
Programa qe calcula la moda de una lista de numeros
Program Moda1; Uses Crt; Var m,a,b:Real; fmx,n,c,f:Integer; opc:Char; Begin Repeat Begin{*} clrscr; Writeln('Ingrese el N£mero de Elementos '); Readln(n); Writeln('Ingrese el Elemento N£mero 1'); Readln(b); m:=b; f:=1; c:=1; fmx:=1; While c<n do Begin{**} c:=c+1; Writeln('Ingrese el Elemto N£mero ',c); Readln(a); If (a<>b) or (c=n) Then Begin{***} If a=b Then f:=f+1; If fmx<=f Then Begin{****} If fmx<>f Then Begin{* *} fmx:=f; m:=b; End{* *} Else If m<b Then m:=b; End;{****} f:=1; b:=a; End{***} Else f:=f+1; End;{**} Writeln('La Moda es: ',m); Writeln('La Frecuencia es: ',fmx); Writeln('¨Desea Realizar Otra Operaci¢n (S/N)?'); opc:=Readkey; End;{*} Until (opc='n')or(opc='N'); End.
Calculadora completa com porcentagem(Lazarus)
Função Fatorial Recursiva em Ada 95
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Clamav e suas atualizações (17)
Desenvolvimento de um driver (18)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba