Mcd de una serie de numeros
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 4.580 ]
Lagoritmno qe implementa el calculo del mcd de una serie de numeros
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.
controle de notas de uma clase com vetor e registro
Achar o maior e o menor valor inserido pelo usuario
Calculadora de décimo terceiro no Lazarus
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
SAMBA parou de compartilhar [RESOLVIDO] (3)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (8)
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)