Calculo de la Moda

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 7.482 ]

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

soma de um intervalo

calcular o percentual de pessoas que sao maiores de idade

validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.

Extenso em dll, com parâmetros adicionais

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
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts