Arquivo Discussoes de Programacao e Tecnologia Alguém pode me ajudar? Não consegui nem ao menos criar um código para isso.
Proponha um algoritmo em Pascal que leia dois números inteiros e positivos, e apresente o m.d.c. (máximo divisor comum) entre eles. O m.d.c. de dois números inteiros positivos pode ser calculado da seguinte forma: Dados dois números inteiros, X e Y. Enquanto X for diferente de Y, subtraia o menor valor do maior. Ao final, escreva o valor atual de X.
Qual a sua dificuldade em específico. Só postar o enunciado não ajuda. Tente ao menos começar.
Sabe ler variáveis? Fazer subtrações? Comparações (if) ?
Abraço.
Devo adimtir que eu estava com preguiça de fazer.
Fiz umas pesquisas na internet e só encontrei o codigo em portugol mas foi facil para mudar para pascal:
<strong>Program Mdc ;</strong>
**var **
<strong>x,y,maior,menor,aux:integer;</strong>
<strong>Begin</strong>
<strong>writeln(‘Informe o primeiro número:’);</strong>
<strong>readln(x);</strong>
<strong>writeln(‘Informe o segundo número:’);</strong>
<strong>read(y);</strong>
<strong>if(x > y) then</strong>
<strong>begin</strong>
<strong>maior:= x;</strong>
<strong>menor:= y;</strong>
<strong>end</strong>
<strong>else</strong>
<strong>begin</strong>
<strong>maior:= y;</strong>
<strong>menor:=x;</strong>
** end;**
** while(maior mod menor <> 0) do**
** begin**
** aux:= menor;**
** menor:= maior mod menor;**
** maior:=aux;**
** end;**
** writeln(’ ‘);**
** writeln(‘O maximo divisor comum entre,’,x,’ e’,y,’ é:’, menor);**
End.