TÌM ƯỚC CHUNG LỚN NHẤT PASCAL

var x,y,UCLN,BCNN:integer;

begin

readln(x,y);BCNN:=x*y;

While xy bởi If x>y then x:=x-y else y:=y-x;UCLN:=x;BCNN:=BCNN div UCLN;

write(UCLN," ",BCNN);

end.

Bạn đang xem: Tìm ước chung lớn nhất pascal

Có nhiều thuật toán để tra cứu ước bình thường lớn nhất (hay GCD), nhưng đơn giản nhất đó chính là thuật toán Euclid. Sau đây bản thân sẽ trình bày cách tư duy cho bài này

B1: Xác định đầu vào (input) làhai số a,b nguyên dương

B2: Viếtthuật toán để tất cả được đầu ra như đề bài xích yêu cầu là ƯCLN

Thuật toán Euclid

Trong khi b khác 0 thì:

tạm = b

b = a gian lận b

a = tạm

kết quả sẽ là a

B3: Xuất kết quả (output) là ƯCLN

Đây là mã nguồn chương trình tìm ước tầm thường lớn nhất bằng Pascal

uses crt;

var tam, a, b: integer;

begin

clrscr;

writeln("Nhap vao so a: ");

readln(a);

writeln("Nhap vao so b: ");

readln(b):

while a b do

begin

tam = b;

b = a gian lận b;

a = tam;

end;

writeln("UCLN la: ", a);

readln;

end.

Hãy singin hoặc đk để thêm bình luận.

Các thắc mắc liên quan