O algoritmo do trabalho do professor Ausionio
Seminário: O algoritmo do trabalho do professor Ausionio. Pesquise 862.000+ trabalhos acadêmicosPor: • 14/9/2014 • Seminário • 278 Palavras (2 Páginas) • 267 Visualizações
//Autor: Flávio Oliveira
//Data: 14.09.2014
//Algoritmo do trabalho do Prof Aucionio - Exercicio 1
//Programa que calcula o MMC de dois números. :~
Program Pzim ;
var
PrimeiroValor,SegundoValor,Divisor,MMC:Integer;
Begin
writeln (' Programa que calcula MMC de 2 números ');
writeln (' --------------------------------------- ');
writeln ('');
write ('Informe o primero número: ');
read (PrimeiroValor);
write ('Informe o segundo número: ');
read (SegundoValor);
Divisor:=2;
MMC:=1;
if (PrimeiroValor=0) or (SegundoValor=0) then
begin
write ('O Mínimo Múltiplo Comum (MMC) é');
writeln (' 0');
end;
if (PrimeiroValor<>0) and (SegundoValor<>0) then
begin
Repeat
if (PrimeiroValor Mod Divisor=0) or (SegundoValor Mod Divisor=0) then
begin
if (PrimeiroValor mod Divisor=0) then
PrimeiroValor:=PrimeiroValor div Divisor;
if (SegundoValor mod Divisor=0) then
SegundoValor:=SegundoValor div Divisor;
if (PrimeiroValor<>0) and (SegundoValor<>0) then
MMC:=Divisor*MMC;
end;
if (PrimeiroValor Mod Divisor<>0) and (SegundoValor Mod Divisor<>0) then
Divisor:=Divisor+1;
if (PrimeiroValor<=1) and (SegundoValor<=1) and (PrimeiroValor<>0) and (SegundoValor<>0) then
begin
write ('O Mínimo Múltiplo Comum (MMC) é ');
writeln (MMC);
end;
until (PrimeiroValor<=1) and (SegundoValor<=1);
end;
End.
...