Question

pascal nhập 4 số a b c d và thực hiện yêu cầu sau : nếu c=0 và d=0 thì xuất ra màn hình a và b.Nếu c=0 và d khác 0 thì xuất ra kết quả phân số c/d . Nếu c khác 0 và d khác 0 thì xuất ra kết quả phán số a/b.Nếu c khác 0 và d khác 0 thì tính : câu A) a/b+c/d ; câu B) a/b-c/d ; câu C ) a/b*c/d ; câu D) a/b / c/d.

Answer 1

program hotrotinhoc;
function toigian(x,y: integer): integer;
var z: integer;
begin
while y<>0 do
begin
z:=x mod y;
x:=y;
y:=z;
end;
toigian:=x;
end;
var i,n,a,b,c,d: integer;
tu,mau: real;
begin
readln(a,b,c,d);
if (c=0) and (d=0) then write(a,' ',b);
if (c=0) and (d<>0) then write(c,'/',d,'=0');
if (c<>0) and (d<>0) then
if b/toigian(a,b)=1 then
writeln(a,'/',b,'=',(a/toigian(a,b))/b/toigian(a,b):1:0) else
writeln(a,'/',b,'=',(a/toigian(a,b)):1:0,'/',b/toigian(a,b):1:0);
if (c<>0) and (d<>0) then
begin
tu:=(a*d+c*b)/toigian(a*d+c*b,b*d);
mau:=(b*d)/toigian(a*d+c*b,d*b);
if (mau=1) or (tu=0) then writeln(a,'/',b,'+',c,'/',d,'=',tu/mau:1:0) else
writeln(a,'/',b,'+',c,'/',d,'=',tu:1:0,'/',mau:1:0);
tu:=(a*d-c*b)/toigian(a*d-c*b,b*d);
mau:=(b*d)/toigian(a*d-c*b,d*b);
if (mau=1) or (tu=0) then writeln(a,'/',b,'-',c,'/',d,'=',tu/mau:1:0) else
writeln(a,'/',b,'-',c,'/',d,'=',tu:1:0,'/',mau:1:0);
tu:=(a*c)/toigian(a*c,b*d);
mau:=(b*d)/toigian(a*c,b*d);
if mau=1 then writeln(a,'/',b,'*',c,'/',d,'=',tu/mau:1:0) else
writeln(a,'/',b,'*',c,'/',d,'=',tu:1:0,'/',mau:1:0);
tu:=(a*d)/toigian(a*d,b*c);
mau:=(b*c)/toigian(a*d,b*c);
if mau=1 then writeln(a,'/',b,'/',c,'/',d,'=',tu/mau:1:0) else
writeln(a,'/',b,'/',c,'/',d,'=',tu:1:0,'/',mau:1:0)
end;
readln
end.

Answer 2

program hotrotinhoc;

function toigian(x,y: integer): integer;

var z: integer;

begin

while y<>0 do

begin

z:=x mod y;

x:=y;

y:=z;

end;

toigian:=x;

end;

var i,n,a,b,c,d: integer;

tu,mau: real;

begin

readln(a,b,c,d);

if (c=0) and (d=0) then write(a,' ',b);

if (c=0) and (d<>0) then write(c,'/',d,'=0');

if (c<>0) and (d<>0) then

if b/toigian(a,b)=1 then

writeln(a,'/',b,'=',(a/toigian(a,b))/b/toigian(a,b):1:0) else

writeln(a,'/',b,'=',(a/toigian(a,b)):1:0,'/',b/toigian(a,b):1:0);

if (c<>0) and (d<>0) then

begin

tu:=(a*d+c*b)/toigian(a*d+c*b,b*d);

mau:=(b*d)/toigian(a*d+c*b,d*b);

if (mau=1) or (tu=0) then writeln(a,'/',b,'+',c,'/',d,'=',tu/mau:1:0) else

writeln(a,'/',b,'+',c,'/',d,'=',tu:1:0,'/',mau:1:0);

tu:=(a*d-c*b)/toigian(a*d-c*b,b*d);

mau:=(b*d)/toigian(a*d-c*b,d*b);

if (mau=1) or (tu=0) then writeln(a,'/',b,'-',c,'/',d,'=',tu/mau:1:0) else

writeln(a,'/',b,'-',c,'/',d,'=',tu:1:0,'/',mau:1:0);

tu:=(a*c)/toigian(a*c,b*d);

mau:=(b*d)/toigian(a*c,b*d);

if mau=1 then writeln(a,'/',b,'*',c,'/',d,'=',tu/mau:1:0) else

writeln(a,'/',b,'*',c,'/',d,'=',tu:1:0,'/',mau:1:0);

tu:=(a*d)/toigian(a*d,b*c);

mau:=(b*c)/toigian(a*d,b*c);

if mau=1 then writeln(a,'/',b,'/',c,'/',d,'=',tu/mau:1:0) else

writeln(a,'/',b,'/',c,'/',d,'=',tu:1:0,'/',mau:1:0);

end;

readln

end.