Question

Составьте программу сложения двух простых дробей. Результат должен быть несократимой дробью. Используйте подпрограмму вычисления НОД по алгоритму Евклида. Простая дробь задаётся двумя числами: числителем и знаменателем

Answer 1

===== PascalABC.NET =====

function GCD(a, b: integer): integer;// НОД

begin

 while b <> 0 do

 begin

   a := a mod b;

   Swap(a, b)

 end;

 Result := a

end;

procedure RedFrac(var a, b: integer);// сокращение дроби

begin

 var sgna := Sign(a); // мы должны учитывать знак!

 var sgnb := Sign(b); // мы должны учитывать знак!

 a := Abs(a);

 b := Abs(b);

 var d := GCD(a, b);

 a := (a div d) * sgna;

 b := (b div d) * sgnb

end;

begin

 var (p1, q1) :=

     ReadInteger2('Дробь 1. Введите числитель и знаменатель:');

 var (p2, q2) :=

     ReadInteger2('Дробь 2. Введите числитель и знаменатель:');

 var p3 := p1 * q1 + p2 * q2;

 var q3 := q1 * q2;

 RedFrac(p3, q3);

 Println(p3, '/', q3)

end.