Pascal | Viết các hàm USCLN(a, b) và BSCNN(a, b)

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

Hướng dẫn: Khai báo hàm USCLN có:

Tên hàm: USCLN

Kiểu dữ liệu trả về: integer

Tham số: 2 tham trị là int a, int b

Giá trị trả về: chính là giá trị ước số chung lớn nhất của a và b.

Xử lý tìm USCLN, BSCNN: Dựa trên ví dụ đã có ở phần trước.

Nội dung hàm:

Function  USCLN(  a,  b : Integer) : Integer;

Var Sodu:integer;

Begin

     While (b <> 0) do

            Begin

                        Sodu:= a mod b;

                        a := b;

                        b := Sodu;

            End;

      USCLN := a;

End;

{Tuong tu ham BSCNN(a, b : Integer)}

Function  BSCNN(  a, b : Integer) : Integer;

Var k :integer;

Begin

     For  k := a  to  a*b do                    { Lap voi moi i co gia tri tu a den 1}

         If ((k mod a = 0) and ( k mod b = 0)) then  { Kiem tra a, b cung chia het cho k? }

                  Break;                                { break de thoat, luu giu lai gia tri cua k.}

     BSCNN:= k;

End;