Calculo de la Moda
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 8.526 ]
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.
programa pra carregear duas matrizes e achar o maior
Extenso em dll, com parâmetros adicionais
Gerador de senha Pascal/Lazarus
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (4)
Warcraft II Remastered no Linux? (3)









