Viết chương trình tìm ước chung lớn nhất (UCLN) của hai số với yêu cầu sử dụng thuật toán Euclid. Thuật toán Euclid: Nếu a chia hết cho b (a chia b dư

Viết chương trình tìm ước chung lớn nhất (UCLN) của hai số với yêu cầu sử dụng
thuật toán Euclid.
Thuật toán Euclid: Nếu a chia hết cho b (a chia b dư 0) thì UCLN(a,b) bằng b
Nếu a chia b dư r thì UCLN(a,b) = UCLN(b,r)

0 bình luận về “Viết chương trình tìm ước chung lớn nhất (UCLN) của hai số với yêu cầu sử dụng thuật toán Euclid. Thuật toán Euclid: Nếu a chia hết cho b (a chia b dư”

  1. Program UCLN;
    uses crt;
    var a,b,r:byte;
    begin
     clrscr;
     writeln(‘CHUONG TRINH TIM UCLN CUA HAI SO’);
     write(‘Nhap a: ‘);readln(a);
     write(‘Nhap b: ‘);readln(b);
     r:=a mod b;
     while r<> 0 do
     begin
     b:=r;
     a:=b;
     r:=a mod b;
     end;
     write(‘UCLN cua hai so la: ‘,b);
     readln
    end.

    kha@ngu³yễn chúc bn hc tốt

    Bình luận
  2. var a, b: integer;

     

    begin

    write(‘ nhap a = ‘); readln(a);

    write(‘nhap b = ‘); readln(b);

    while a<>b do

        if a>b then a:=a-b

             else b:=b-a;

    writeln(‘UCLN: ‘, a);

    readln

    end.

     

     

    Bình luận

Viết một bình luận