Tìm BCNN cua 2 so

[duckling]

Tôi đang nhức đầu về cái thuật toán bài nay đây.
Mong mọi người giúp đỡ.
Theo tôi thì để tìm BCNN ta lấy tích 2 số a và b rồi chia cho UCLN của 2 số đó.
Tôi có thư lập chương trình rồi. Nhưng chỉ đúng vớí số "đơn giản" (số có 2 chữ số) còn như ví dụ sau: a=246 và b=642 thì sai hoàn toàn.

[mhf259]

Bạn nên đưa chương trình của bạn để mọi người góp ý cho bạn
Tìm Ước chung lớn nhất thì gán số lớn là hiệu của hai số
sau đó lấy tích 2 số chia cho UCLN ra BCNN
tich:=a*b;
while a<>b do
If a>b then dec(a,b)
else dec(b,a);
UCLN:=a;
BCNN:=tich/UCLN;

Chúc bạn thành công.

[lehang_gb1]

Nếu a, b là so lớn bạn cần khai báo tích của a và b là số nguyên lớn như longint thì mới chạy được

[lehang_gb1]

Code chạy rồi đây bạn ah

Var m,n,BC,BCNN:integer;
begin
  Write('Nhap vao 2 so nguyen duong m,n:');
  Readln(m,n);
   BC:=m*n;
      While m<>n do
         if m>n then m:=m-n else n:=n-m;
            BCNN:=BC div m;
    Write('Boi chung nho nhat la:',BCNN);
 Readln
End.

[=========> Bổ sung bài viết <=========]

Đây là cách 2 bạn ah.

Var m,n,x:integer;
Begin
  write('Nhap vao 2 so nguyen duong m,n:');
  Readln(m,n);  if m>n then x:=m else x:=n;
  while not((x mod m=0) and( x mod n=0)) do x:=x+1;
  write('BCNN la:',x);
Readln
End.

[duckling]

Cảm ơn le_hang và mhf259 nhé!
Thật ra mình hơn lơ đãng, quên mất trong tài liệu cua mình có 1 bài tìm BCNN (rất tiếc hôm nay mình không mang nó theo)lần sau mình sẽ post lên để mọi người cùng tham khảo

[duckling]

program UCLN_BCNN;
var a,b,u,v,r:integer;
begin
write('Nhap a, b'); readln(a,b);
u:=a; v:=b;
repeat
r:=a mod b;
a:=b;
b:=r;
until b=0;
writeln('UCLNcua ',u,'va ',v,'la ',a);
writeln ('BCNN cua ', u, 'va', v, 'la', u*v/a:8:2);
readln;
end.

[topvip9x]

Bội số chung cảu 2 số bằng Tích 2 số đó chia cho Ước chung của 2 số đó

[tieudao92]

#include<iostream.h>
main()
{
int a,b,i,BCNN;
do
{
cout<<"nhap vao 2 so a va b (a>b)"<<endl;cin>>a>>b;
}
while(a<b)
for(i=b;i<=b;i--){
if(a%i==0){
if(b%i==0){
cout<<"UCLL cua 2 so la:"<<i<<endl;
BCNN=(a*b)/i;
cout<<BCNN cua 2 so la:"<<BCNN<<endl;break;
}}}}
BÀI NÀY NGẮN VÀ GIẢI ĐƯỢC 2 BÀI LUÔN.HÌ

[TearofBoy]

#include<iostream.h>
main()
{
int a,b,i,BCNN;
do
{
cout<<"nhap vao 2 so a va b (a>b)"<<endl;cin>>a>>b;
}
while(a<b)
for(i=b;i<=b;i--){
if(a%i==0){
if(b%i==0){
cout<<"UCLL cua 2 so la:"<<i<<endl;
BCNN=(a*b)/i;
cout<<BCNN cua 2 so la:"<<BCNN<<endl;break;
}}}}
BÀI NÀY NGẮN VÀ GIẢI ĐƯỢC 2 BÀI LUÔN.HÌ

Bợn ơi đang hỏi pascal mà, sao lại vác C qua đây, xin mỗi cái thuật toán thôi

[chuinhacau]

integer chạy số nhỏ lắm, tốt nhất là dùng free chạy int64 thoải mái mà tính