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

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.

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

вычислительный эксперимент — метод изучения устройств или процессов с моделирования. он предполагает, что вслед за построением модели проводится ее численное исследование, позволяющее «проиграть» поведение исследуемого объекта в различных условиях или в различных модификациях численное исследование модели дает возможность определять разнообразные характеристики процессов, оптимизировать конструкции или режимы функционирования проектируемых устройств. более того, случается, что в ходе вычислительного эксперимента исследователь неожиданно открывает новые процессы и свойства, о которых ему ранее ничего не было известно.