Viết chương trình nhập 2 phân số a/b và c/d . rồi quy đồng mẫu số 2 phân số đó có sử dụng chương trình con tìm bội chung nhỏ nhất của 2 số nguyên dươn

0 bình luận về “Viết chương trình nhập 2 phân số a/b và c/d . rồi quy đồng mẫu số 2 phân số đó có sử dụng chương trình con tìm bội chung nhỏ nhất của 2 số nguyên dươn”

1. Program NN;
   Uses crt;
   Var a,b,c,d,BC: longint;

   Function BCNN(a,b: longint): longint;
   Var UCLN: longint;
   Begin
           BCNN:=a*b;
           While a<>b do
                   If a>b then a:=a-b
                   Else b:=b-a;
           BCNN:=BCNN div a;
   End;

   Begin
           Clrscr;
           Write(‘Nhap a,b,c,d: ‘); Readln(a,b,c,d);
           If b<>d then
           Begin
                   BC:=BCNN(b,d);
                   a:=a*BCNN(b,d) div b;
                   b:=BC;

                   c:=c*BCNN(b,d) div d;
                   d:=BC;
           End;
           Write(a,’/’,b,’ ‘,c,’/’,d);
           Readln
   End.

   Bình luận