Calculo de la Moda

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 8.239 ]

Download MODA1.PAS




Programa qe calcula la moda de una lista de numeros

  



Esconder código-fonte

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.

Scripts recomendados

Funções strings e matemáticas

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

Média e soma de números

Calculadora de décimo terceiro salário(Lazarus)

Cálculadora de décimo terceiro


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts