Запишите подпрограмму выполняющую сокращение дроби до простой дроби.

Question

Запишите подпрограмму выполняющую сокращение дроби до простой дроби.

Яна Пушкаш Ученик (179), закрыт 12 лет назад

необходимо создать функцию. если есть сайт на котором выставлена подобная задача, или хотя бы задача с с подобными элементами, кинте ссылочку пожалуйста

Answer 1

function nod(a,b:longint):longint; var r:longint; begin repeat r:=a mod b; a:=b; b:=r until b=0; nod:=a end;
var a,b,r:longint; begin write('a b ? '); readln(a,b); r:=nod(a,b); writeln(a div r,'/',b div r); readln end.

Answer 2

то есть из 1.625 получить 13/8? Ну есть решение в лоб, раскладывать оба числа (625 и 1000) на простые числа и потом сокращать парные, затем умножать полученный знаменатель на число целых и прибавлять к числителю, но может быть можно как-то и попроще…

Answer 3

как сделать тебе уже написали. Если нужна готовая программа пиши в агент или аську 452371863

Answer 4

Надо найти НОД числителя и знаменателя (луркай алгоритм Эвклида) и разделить оба на него.