Usuario:Ricardocorrea~eswikibooks/programacion3

EJERCICIO 6.3 PAGINA239

Nota: Este ejercicio esta hecho con base en el lenguaje de programacion segun joyanes.

Para calcular el maximo comun divisor(mcd) de dos numeros se recurre a una funcion especifica definida con un subprograma. se desea calcular la salida del programa pincipal con dos numeros A y B, cuyos valores son 1 y 25, es decir, el mcd(A,B) y comprobar el metodo de paso de parametros por valor.

algoritmo maxcomdiv
var
 entero: N,X,Y
inicio//programa principal
  x<-1
  y<-25
  n<-mcd(x,y)
  escribir(x,y,n)
fin

entero funcion mcd(E entero: a,b)

inicio
  mientras a<>b hacer
   si a>b entonces
    a<- a-b
   si_no
    b<- b-a
   fin_si
  fin_mientras
  devolver (a)
fin_funcion