Calculo de la Moda

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 8.242 ]

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

Cronômetro feito no Lazarus(Delphi 7 para Linux)

registro de turma com record

soma da diagonal principal de uma matriz

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

controle de notas de uma clase com vetor e registro


  

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