MCD_MCM.pas

   1 PROGRAM CalcularMCDyMCM;\r
   2 \r
   3 VAR a, b: integer;\r
   4 \r
   5 {*********************************************}\r
   6 { Funcion que calcula el Maximo Comun Divisor }\r
   7 {*********************************************}\r
   8 \r
   9 FUNCTION MCD(a, b: integer): integer;\r
  10 \r
  11 VAR resto: integer;\r
  12 \r
  13 BEGIN\r
  14      IF a < b THEN BEGIN\r
  15                         resto := a;\r
  16                         a := b;\r
  17                         b := resto;\r
  18                    END;\r
  19      resto := a MOD b;\r
  20      WHILE resto <> 0 DO BEGIN\r
  21                               a := b;\r
  22                               b := resto;\r
  23                               resto := a MOD b;\r
  24                          END;\r
  25      MCD := b;\r
  26 END;\r
  27 \r
  28 {**********************************************}\r
  29 { Funcion que calcula el Minimo Comun Multiplo }\r
  30 {**********************************************}\r
  31 \r
  32 FUNCTION MCM(a, b: integer): integer;\r
  33 \r
  34 BEGIN\r
  35      MCM := (a * b) DIV (MCD(a, b));\r
  36 END;\r
  37 \r
  38 {********************************}\r
  39 { Comienza el programa principal }\r
  40 {********************************}\r
  41 \r
  42 BEGIN\r
  43      write('Ingrese un numero: ');\r
  44      readln(a);\r
  45      write('Ingrese otro numero: ');\r
  46      readln(b);\r
  47      writeln;\r
  48      writeln('El M¡nimo Com£n M£ltiplo es: ', MCM(a, b): 3);\r
  49      writeln('El M ximo Com£n Divisor es:  ', MCD(a, b): 3);\r
  50 END.\r