Даны две простые дроби числитель первой А, знаменатель В, числитель второй дроби С, знаменатель D.

@antony sky · Регистрация: 09.03.2011

Студворк — интернет-сервис помощи студентам

Даны две простые дроби числитель первой А, знаменатель В, числитель второй дроби С, знаменатель D. Найти их сумму, и если можно сократить полученный результат. Определение наибольшего общего делителя двух чисел оформить в виде функции пользователя.

@Puporev · 11.03.2011, 11:09

Pascal

uses crt;
{Определение НОД по алгоритму Эвклида}
function Evclid(x,y:integer):integer;
begin
repeat
if x>y then x:=x mod y
else y:=y Mod x;
until (x=0) or (y=0);
Evclid:=x+y;
end;
var a,b,c,d,p,q,n:integer;
begin
clrscr;
writeln('Введите первую дробь:');
write('Числитель a=');readln(a);
write('Знаменатель b=');readln(b);
writeln('Введите вторую дробь:');
write('Числитель c=');readln(c);
write('Знаменатель d=');readln(d);
p:=a*d+c*b;
q:=b*d;
n:=Evclid(p,q);
p:=p div n;
q:=q div n;
write(a,'/',b,'+',c,'/',d,'=',p,'/',q);
readln
end.

@antony sky 0 / 4 / 1 Регистрация: 09.03.2011 Сообщений: 482
		1
	Даны две простые дроби числитель первой А, знаменатель В, числитель второй дроби С, знаменатель D. 10.03.2011, 16:05. Показов 6300. Ответов 1 Метки нет (Все метки) Даны две простые дроби числитель первой А, знаменатель В, числитель второй дроби С, знаменатель D. Найти их сумму, и если можно сократить полученный результат. Определение наибольшего общего делителя двух чисел оформить в виде функции пользователя. 0

	11.03.2011, 11:09

Опции темы

Даны две простые дроби числитель первой А, знаменатель В, числитель второй дроби С, знаменатель D.

Решение