Простые дроби

[4aineg]

Дана задача по простым дробям и действиям между ними (сложение,вычитание,умножение,делен ие). Допустим хотя бы 2 дроби.
Недоумеваю как сделать сокращение....

[SuperVisor]

Пиши функции... Или что ты хочешь сократить?

[4aineg]

я хочу чтобы дроби типо (12/3 или 169/13) сокращались автоматически.... не знаю как, а простые действия сделать то не сложно

[SuperVisor]

Так и не понял, что именно тебе нужно, но держи код для любого числителя и знаменателя:

procedure IntSimple(x,y: real): integer;
begin
IntSimple:=x div y;
end;
 
procedure Simple(x,y: real): real;
begin
if (x mod y)=0 then IntSimple(x,y) else Simple:=x/y;
end;

[Plague]

a/b - дробь

Подели числитель и знаменатель на НОД(a,b) этих чисел,
а для нахождения НОДа используй Алгоримт - Эвклида.
5-класс средней школы урок математики вспомни.

m := a;
n := b;
while not ((m=0) or (n=0)) do
   if m >= n then m := m - n else n := n - m;
if m = 0 then k := n else k := m;

НОД=k как ты понял, надеюсь...

[4aineg]

Cпасибо парни, буду пробывать если будут еще светлые мысли, делитесь,хотя и за это биг сэнкс