Регистрация
Snzjxj
07.03.2021 16:02
Информатика
Есть ответ 👍

Даны две дроби a/b и c/d (a,b,c,d - натуральные числа). составить программу деления дроби на дробь. ответ должен быть несократимой дробью. использовать подпрограмму алгоритма евклида для определения нод

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

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

gores7master
gores7master
4,5(81 оценок)
Var  a, b, c, d, num, denom, divis: integer;     function  gcd(a, b: integer): integer; var temp: integer; begin   while b > 0 do   begin     temp : = b;     b : = a mod b;     a : = temp   end;   gcd : = a; end; begin   writeln('введите числа a, b, c, d: ');   read(a, b, c, d);   num : = a * d;   denom : = b * c;   divis : = gcd(num, denom);   writeln(num div divis, '/', denom div divis); end.
gwetyalina1345
gwetyalina1345
4,5(92 оценок)
Function nod(x,y: integer): integer; begin while (x< > 0)and(y< > 0) do   if x> y then x: =x mod y else y: =y mod x; nod: =x+y; end; var a,b,c,d,n,z1,z2: integer; begin writeln('1-я дробь (числитель и знаменатель): '); readln(a,b); writeln('2-я дробь (числитель и знаменатель): '); readln(c,d); n: =nod(a*d,b*c); z1: =a*d div n;   z2: =b*c div n; writeln(z1,'/',z2); end. пример: 1-я дробь (числитель и знаменатель): 5 6 2-я дробь (числитель и знаменатель): 2 8 10/3
daa86
daa86
4,6(10 оценок)

на одну строчку выше !???

Популярно: Информатика