• Составить программу , которая сложить две дроби!
    Нужно сначала привести к общему знаменателю срочно!
    Паскаль !

Ответы 7

  • с минусами не проверял. Подумал что речь идет только о простых дробях
    • Автор:

      benedicto
    • 5 лет назад
    • 0
  • Простая дробь - это целочисленные числитель a и знаменатель b при условии |a| < |b|
    • Автор:

      paul84
    • 5 лет назад
    • 0
  • сохранил себе ваше решение. Спасибо!
    • Автор:

      raquel
    • 5 лет назад
    • 0
  • В NumLibABC есть класс Fraction для работы с простыми дробями. А количество цифр там произвольное (практически бесконечное).
  • Поскольку это мой код, я с полным правом взял алгоритм оттуда и упростил его.
  • Программа и скриншот как она работает в приложениях.
    answer img
  • // PascalABC.NET 3.3, сборка 1607 от 31.12.2017// Внимание! Если программа не работает, обновите версию!function GCD(a,b:integer):integer; // НОДbegin  while b<>0 do begin a:=a mod b; Swap(a,b) end;  Result:=aend;procedure RedFrac(var a,b:integer); // сокращение дробиbegin  var (sgna,sgnb):=(Sign(a),Sign(b)); // мы должны учитывать знак!  (a,b):=(Abs(a),Abs(b));  var d:=Gcd(a,b);  (a,b):=((a div d)*sgna,(b div d)*sgnb)end;begin  var (a,b):=ReadInteger2('Числитель и знаменатель 1-й дроби:');  var (c,d):=ReadInteger2('Числитель и знаменатель 2-й дроби:');  var (p,q):=(a*d+b*c,b*d);  RedFrac(p,q);  Writeln('Результат: ',p,'/',q)end.ПримерЧислитель и знаменатель 1-й дроби: -135 36Числитель и знаменатель 2-й дроби: 31 60Результат: -97/30
    answer img
    • Автор:

      donald362
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years