Mcd de una serie de numeros

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 4.380 ]

Download MCD_SERI.PAS




Lagoritmno qe implementa el calculo del mcd de una serie de numeros

  



Esconder código-fonte

program mcd_de_una_serie_de_numeros;
uses crt;
type
    cadena=string[15];
    arraynum=array[1..50] of longint;
var
   numeros:arraynum;
   i:integer;
procedure ingresar_numeros(var numeros:arraynum;var i:integer);
var
   codigo :integer;
   digito :char;
   cadnum:cadena;
   auxnum:longint;
begin
     writeln('ingrese los numeros, pulse ESC para terminar ');
     i:=0;
     repeat
           cadnum:='';
           repeat
                 digito:=readkey;
                 if digito in ['0'..'9'] then
                    begin
                         writeln(digito);
                         cadnum:=cadnum+digito+#13;
                    end;
           until  (digito=#13) or (digito=#27);
           write('');
           val(cadnum,auxnum,codigo);
           i:=i+1;
           numeros[i]:=auxnum;
     until digito=#27
end;

function mcd(numeros :arraynum;i:integer):longint;
var
   j:integer;
   temp:longint;
begin
{MAXIMO COMUN DIVISOR DE DOS NUMEROS}
for j:=1 to i-1 do
    while (numeros[j] mod numeros[j+1]<>0) do
          begin
          temp:=numeros[j];
          numeros[j]:=numeros [j+1];
          numeros[j+1]:=temp mod numeros[j+1];
          end;
    mcd:=numeros[j+1];
end;

BEGIN
repeat
      clrscr;
      writeln('Maximo comun divisor de una serie de numeros');
      ingresar_numeros(numeros,i);
      writeln('');
      writeln('El MCD es :',mcd(numeros,i));
      write('Desea ingresar mas datos (S/N)');
until upcase(readkey)='N';
END.



Scripts recomendados

escreve os números de 1 a 9 com repeat - until

média de uma turma

Maior numero do Vetor

Mostrar maior e menor

Número primo


  

Comentários
[1] Comentário enviado por removido em 16/01/2006 - 20:45h

legal, tem poucos programas em Kylix aki no VOL.
:)

[2] Comentário enviado por doradu em 10/02/2010 - 18:27h

coloquei nos favoritos pra tentar consertar


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts