Составьте программу, вычисляющую для двух дробей a/b и c/d (a,b,c,d - натуральные числа):делениеумножениесложение. Результат представить в виде простых несократимых дробейВ виде функции.Pascal
Составьте программу, вычисляющую для двух дробей a/b и c/d (a,b,c,d - натуральные числа):
деление
умножение
сложение.
Результат представить в виде простых несократимых дробей
В виде функции.
Pascal
Гость
Ответ(ы) на вопрос:
Гостькак-то так)
var a,b,c,d,e,f:integer;
function nod(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n
else n:=n-m;
nod:=m
end;
begin
write('введите числитель1, знаменатель1, числитель2, знаменатель2');
readln(a,b,c,d);
e:=a*d+b*c;
f:=b*d;
if f=0 then write('на 0 делить нельзя')
else
if e=0 then writeln('сложение = ',e)
else begin
e:=e div nod(abs(e),f);
f:=f div nod(abs(e),f);
writeln('сложение = ',e,'\',f);
end;
e:=a*c;
f:=b*d;
if f=0 then write('на 0 делить нельзя')
else
if e=0 then writeln('умножение = ',e)
else begin
e:=e div nod(abs(e),f);
f:=f div nod(abs(e),f);
writeln('умножение = ',e,'\',f);
end;
e:=a*d;
f:=b*c;
if f=0 then write('на 0 делить нельзя')
else
if e=0 then writeln('деление= ',e)
else begin e:=e div nod(abs(e),f);
f:=f div nod(abs(e),f);
writeln('деление = ',e,'\',f);
end;
end.
Не нашли ответ?
Похожие вопросы