Mcd de una serie de numeros
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 4.500 ]
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.
validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
Operações básicas da matemática
Coleta de dados de alunos em Pascal
vendas de uma empresa em matriz
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
Minecraft Launcher para Arch Linux
Instalar o Apache, MySQL e PHP no Oracle Linux 8
Resolvendo o erro "libQt6Widgets.so.6: cannot open shared object file" no Linux
aplicativos criados com webapp-manager não aparecem no menu do xfce (0)
Como bloquear e desbloquear papel de parede no Ubuntu 24.04 (1)