Viết các hàm USCLN(a, b) và BCNN(a, b). Pascal nha

0 bình luận về “Viết các hàm USCLN(a, b) và BCNN(a, b). Pascal nha”

1. Hàm USCLN(a,b)

   function uscln(a,b:integer):integer;

   begin

        while a<>b do

             if a>b then a:=a-b else b:=b-a;

        uscln:=a;

   end;

   Hàm BCNN(a,b)

   function bcnn(a,n:integer):integer;

   begin

        bcnn:=a*b;

        while a<>b do

             if a>b then a:=a-b else b:=b-a;

        bcnn:=bcnn div a;

   end;

   Bình luận

2. Function ucln(x, y: word): word;

     Begin

         while x<>y do

             if x>y then x:=x-y

             else y:=y-x;

         ucln:=x;

     End;

   Function bcnn(x, y): longword;

     Begin

        bcnn:=x*y div ucln(x, y);

     End.

   Bình luận