YOMEDIA
NONE

Viết chương trình con (làm, thủ tục) tính bội số chung nhỏ nhất của hai số nguyên dương a, b. Hãy cho biết trong trường hợp này viết chương trình con dưới dạng hàm hay thủ tục là thuận tiện hơn. Vì sao?

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Huy Tâm

    Viết chương trình con (hàm, thủ tục) tính bội số chung nhỏ nhất của hai số nguyên dương a, b.

    Ta nhận thấy rằng, bội số chung nhỏ nhất của hai số nguyên dương a, b có thể được tính theo công thức:

    ab/d

    trong đó d là ước chung lớn nhất của a và b.

    Bởi vậy:

     

    Nên viết hàm để tính bội chung nhỏ nhất của hai số nguyên dương vì chương trình con cần trả ra một giá trị;

    – Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b cần sử dụng hàm tính ước chung lớn nhất của a và b

    – Hàm tính ước chung lớn nhất của hai số nguyên dương a, b:

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

    var r: integer;

    begin

    while b>0 do begin

    r: = a mod b ,a : = b ; b:= r; end; ucln:= a; and;

    – Hàm tình bội chung nhỏ nhất của hai số nguyên dương a, b:

    lunction bcnn(a, b: integer): integer;

    begin

    bcnn:= a*b div ucln(a, b);

    end;

    khi đó, chương trình con tính bội số chung nhỏ nhất của hai số nguyên dương a, b như sau:

    program bai4_chuong6;

    use crt ;

    vai

    X y: integer;

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

    var r: integer;

    begin

    while b>0 do begin

    r:= a mod b; a: = b ,b:= r;

    end; ucln:= a;

    end;

    txnction bcnn(a, b: integer): integer;

    begin

    bcnn:= a*b div ucln(a, b);

    end;

    Begin

    clrscr;

    writeln(‘Nhap vao hai so can tim BCNN’);

    write (‘x=’) , readln(x); write (‘y=’) , readln(y);

    writeln(‘bcnn cua hai so’,x:4,’va’,y:4,’la’,bcnn(a,b)

    readln

    End.

      bởi Huy Tâm 23/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON