Viết chương trình nhập vào từ bàn phím 4 số nguyên a,b,c,d khác 0 . Xuất ra màn hình m/n với phân số m/n là phân số tối giản của phép tính a/b+c/d . [

0 bình luận về “Viết chương trình nhập vào từ bàn phím 4 số nguyên a,b,c,d khác 0 . Xuất ra màn hình m/n với phân số m/n là phân số tối giản của phép tính a/b+c/d . [”

1. Const Fi=’CONGPHANSO.INP’;
         Fo=’CONGPHANSO.OUT’;
   Var f,g: text;
       a,b,c,d,mau,tu,ps: int64;

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

   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);

           Read(f,a,b,c,d);

           If (b=0) or (d=0) then Write(g,’Mau bang 0′)
           Else
           Begin
                   Writeln(g,’Hai phan so vua nhap la: ‘,a,’/’,b,’ , ‘,c,’/’,d);

                   If b=d then Writeln(g,’Tong hai phan so la: ‘,a+c,’/’,b)
                   Else
                   Begin
                           tu:=a*d+b*c;
                           mau:=b*d;
                           Writeln(g,’Tong hai phan so la: ‘,tu,’/’,mau);
                   End;

                   ps:=UCLN(tu,mau);
                   tu:=tu div UCLN(tu,mau);
                   mau:=mau div ps;
                   Writeln(g,’Tong phan so rut gon: ‘,tu,’/’,mau);
           End;
           Close(f);
           Close(g);
   End.

   Bình luận