Pascal/Turbo Pascal - Máximo común divisor

   
Vista:

Máximo común divisor

Publicado por ayudaPascal (2 intervenciones) el 16/11/2014 20:12:24
Hola buenas
Como seria un subprograma de m.c.d en la que solicitará dos números enteros positivos y llamará a un subprograma que reciba ambos números y devuelve el m.c.d. de ellos usando el método arriba descrito.. El programa mostrará el resultado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Máximo común divisor

Publicado por ramon (2072 intervenciones) el 17/11/2014 00:41:08
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
{A ver si esto te sirve}
 
 program el_maximo_comun_divisor;
 uses
    crt;
   var
     n1, n2, res : integer;
 
 
   procedure entrada(var b, w : integer);
   begin
      write('   Entre El Primer Numero Entero : ');
      readln(b);
      writeln;
      write('   Entre El Segundu Numero Entero : ');
      readln(w);
   end;
 
   function mcd(b, w : integer) : integer;
   begin
      mcd := 0;
      res := 1;
      while res <> 0 do
      begin
        res := b mod w;
        b := w;
        w := res;
     end;
     mcd := b;
  end;
 
  begin
     clrscr;
     entrada(n1,n2);
     clrscr;
     writeln('   El MCD De Los Numeros [ ',n1,' .. ',n2,' ] Es');
     writeln('   El MCD Es = ',mcd(n1,n2));
     readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar