Mcd de una serie de numeros
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 4.268 ]
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.
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
Visualizador de imagem Pascal/Lazarus
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Reinstalei o Debian 12 e a particao /home foi formatada: recuperando s... (5)
Debian Bookworm para a versão beta Debian 13 Trixie (6)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba