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 là m/n với phân số m/n là phân số tối giản của phép cộng a/b+c/d
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 là m/n với phân số m/n là phân số tối giản của phép cộng a/b+c/d
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,’TỔNG PHÂN SỐ RÚT GỌN : ‘,tu,’/’,mau);
End;
Close(f);
Close(g);
End.
cho mình câu trả lời hay nhất nhé !!!
uses crt;
var a,b,c,d,tu,mau:longint;
function uoc(m,n:longint):longint;
var r:longint;
begin
r:=0;
while n<>0 do
begin
r:=m mod n;
m:=n;
n:=r;
end;
uoc:=m;
end;
begin
read(a,b,c,d);
if (a=0) or (b=0) or (c=0) or (d=0) then exit
else begin
tu:=(a*d+b*c) div uoc((a*d+b*c),b*d);
mau:=(b*d) div uoc((a*d+b*c),b*d);
end;
write(tu,’/’,mau);
readln; readln;
end.