TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

O algoritmo do trabalho do professor Ausionio

Seminário: O algoritmo do trabalho do professor Ausionio. Pesquise 861.000+ trabalhos acadêmicos

Por:   •  14/9/2014  •  Seminário  •  278 Palavras (2 Páginas)  •  263 Visualizações

Página 1 de 2

//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.

...

Baixar como  txt (1.4 Kb)  
Continuar por mais 1 página »