Напишите программу сложения двух дробей, результатом должна быть сократимая дробь

103

408

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

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

Polinaqryp

Информатика

4,6(4 оценок)

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! function nod(a,b: integer): integer; begin while b> 0 do (a,b): =(b,a mod b); result: =a end; procedure fracadd(n1,d1,n2,d2: integer; var n,d: integer); // сложение дробей n1/d1 + n2/d2 = n/d begin (n,d): =(n1*d2+n2*d1,d1*d2); var k: =nod(n,d); if k< > 1 then (n,d): =(n div k,d div k) end; begin var (a,b): =readinteger2('введите числитель и знаменатель 1й дроби: '); var (c,d): =readinteger2('введите числитель и знаменатель 2й дроби: '); var m,n: integer; fracadd(a,b,c,d,m,n); if n=1 then writeln('сумма=',m) else writeln('сумма=',m,'/',n) end. пример введите числитель и знаменатель 1й дроби: 6 15 введите числитель и знаменатель 2й дроби: 12 300 сумма=11/25 замечание: вводить только натуральные числа!

nbibyf2005

Информатика

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

Program nd; function nod(n,m: integer): integer; begin while(n< > 0) and (m< > 0) dobeginif n> =m then n: =n mod m else m: =m mod n; end; nod: =m+n; end; var m1,m2,n1,n2,t,ch,zn: integer; begin write('введите числитель и знаменатель 1 дроби через пробел: '); readln(m1,n1); write('введите числитель и знаменатель 2 дроби через пробел: '); readln(m2,n2); ch: =(n2*m1+m2*n1) div nod(n2*m1+m2*n1,n1*n2); zn: =(n1*n2) div nod(n2*m1+m2*n1,n1*n2); write(m1,'/',n1,' + ',m2,'/',n2,' = '); if zn=1 then write(ch) else write(ch,'/',zn); end.

medweghonok

Информатика

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

Учитель информатики, профессор, бухгалтер, специалисты, которые занимаются разработкой сетевых программ, программист-сетевик, операционщик, разработчик операционных систем или операционщик, программисты. больше не знаю.