Viết Chương Trình Con Nhập Vao Hai Số Nguyên A,b . Tìm BCNN Của ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

thuydung20
Chưa có nhóm

Trả lời
4
Điểm
5
Cảm ơn
2

Tin Học
Lớp 11
10 điểm
thuydung20 - 23:32:04 17/03/2022

viết chương trình con nhập vao hai số nguyên a,b . tìm BCNN của hai số

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

thuydung20 rất mong câu trả lời từ bạn. Viết trả lời

TRẢ LỜI

vungocminhchau55
Vnplayer Of Bloxd io PVP me

Trả lời
628
Điểm
12507
Cảm ơn
859

vungocminhchau55

17/03/2022

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.

hỏi muộn thế!

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4starstarstarstarstar1 voteGửiHủy

Cảm ơn
Báo vi phạm

- vungocminhchau55
- Vnplayer Of Bloxd io PVP me
- Trả lời
  628
- Điểm
  12507
- Cảm ơn
  859
mọi người cày đêm lun à
- thuydung20
- Chưa có nhóm
- Trả lời
  4
- Điểm
  5
- Cảm ơn
  2
cày tới sáng luôn
- vungocminhchau55
- Vnplayer Of Bloxd io PVP me
- Trả lời
  628
- Điểm
  12507
- Cảm ơn
  859
hôm nay tớ mới cày 1 đêm tới sáng
- thuydung20
- Chưa có nhóm
- Trả lời
  4
- Điểm
  5
- Cảm ơn
  2
tớ thì cố đến khoảng 2 giờ là đc
- vungocminhchau55
- Vnplayer Of Bloxd io PVP me
- Trả lời
  628
- Điểm
  12507
- Cảm ơn
  859
kakaka umh