Ответ: Сложение дробей.

@Masia · Регистрация: 27.05.2009

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

Даны две дроби A/B и C/D (А, В, С, D – натуральные числа). Составить программу сложения этих дробей.

@Puporev · 28.05.2009, 11:03

Pascal

uses crt;
type
natur=1..maxint;{натуральные числа из диапазона integer}
function NOD(m,n:natur):natur;{наибольший общий делитель}
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
var a,b,c,d:natur;
    e,f:natur;
    kr:natur;
begin
clrscr;
writeln('Введите 4 натуральных числа-числители и знаменатели 2х дробей:');
repeat
readln(a,b,c,d);
until(a>0)and(a<=maxint)and(b>0)and(b<=maxint)and
     (c>0)and(c<=maxint)and(d>0)and(d<=maxint);
e:=a*d+b*c;{числитель}
f:=b*d;{знаменатель}
kr:=NOD(e,f);{нод}
e:=e div kr;{сокращаем дробь}
f:=f div kr;
write('Сумма дробей ',a,'/',b,' + ',c,'/',d,' = ',e,'/',f);
readln
end.

@Masia 1 / 1 / 0 Регистрация: 27.05.2009 Сообщений: 17
		1
	Ответ: Сложение дробей. 28.05.2009, 10:11. Показов 10875. Ответов 1 Метки нет (Все метки) Даны две дроби A/B и C/D (А, В, С, D – натуральные числа). Составить программу сложения этих дробей. 0

	28.05.2009, 11:03

Опции темы

Ответ: Сложение дробей.

Решение