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

184

393

Посмотреть ответы 3

Ответы на вопрос:

aslazer211124

Информатика

4,5(97 оценок)

// 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: =a end; 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