Question

Đã trả lời bởi chuyên gia

Answer 1

uses crt;
var
a,b:integer;
function fuc(x,y:integer):integer;
var sodu,tich:integer;
begin
tich:=x*y;
while y<>0 do
begin
sodu:=x mod y;
x:=y;
y:=sodu;
end;
fuc:=tich div x;
end;
procedure puc(x,y:integer);
var sodu,tich:integer;
begin
tich:=x*y;
while y<>0 do
begin
sodu:=x mod y;
x:=y;
y:=sodu;
end;
write('Boi chung nho nhat cua hai so a b khi su dung thu tuc :',tich div x);
end;
begin
clrscr;
write('Nhap vao hai so a b:');
readln(a,b);
writeln('Boi chung nho nhat cua hai so a b khi su dung ham:',fuc(a,b));
puc(a,b);
readkey;
end.
Kết quả:

- Sử dụng chương trình con dưới dạng hàm thì thuận tiện hơn. Vì ít khi chúng ta chỉ tính riêng bội chung nhỏ nhất mà bội chung nhỏ nhất chỉ để phục vụ một việc nào đó tiếp theo. Nếu sử dụng hàm thì ta có thể dùng lời gọi hàm để tham gia vào các biểu thức toán học khác. Còn sừ dụng thủ tục thì chúng ta không thể làm được như vậy.

...Xem thêm

Answer 2

uses crt;
var
a,b:integer;
function fuc(x,y:integer):integer;
var sodu,tich:integer;
begin
tich:=x*y;
while y<>0 do
begin
sodu:=x mod y;
x:=y;
y:=sodu;
end;
fuc:=tich div x;
end;
procedure puc(x,y:integer);
var sodu,tich:integer;
begin
tich:=x*y;
while y<>0 do
begin
sodu:=x mod y;
x:=y;
y:=sodu;
end;
write('Boi chung nho nhat cua hai so a b khi su dung thu tuc :',tich div x);
end;
begin
clrscr;
write('Nhap vao hai so a b:');
readln(a,b);
writeln('Boi chung nho nhat cua hai so a b khi su dung ham:',fuc(a,b));
puc(a,b);
readkey;
end.
Kết quả:

- Sử dụng chương trình con dưới dạng hàm thì thuận tiện hơn. Vì ít khi chúng ta chỉ tính riêng bội chung nhỏ nhất mà bội chung nhỏ nhất chỉ để phục vụ một việc nào đó tiếp theo. Nếu sử dụng hàm thì ta có thể dùng lời gọi hàm để tham gia vào các biểu thức toán học khác. Còn sừ dụng thủ tục thì chúng ta không thể làm được như vậy.

1 câu trả lời 2614

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 11