Модули

[vitekbest]

Здравствуйте, господа, программеры, прошу помочь с задачей на модули.

Пусть процедура сокр(a,b,p,q) от целых параметров (b не равно 0) приводит дробь a/b к несократимому виду p/q.
Описать данную процедуру и использовать её для приведения дроби 1+1/2+1/3+...+1/20 к несократимому виду c/d.

Заранее благодарен.

[Stilet]

А в чем именно помочь? Выкладывай наработки.

[puporev]

Во первых дробь должна быть представлена записью с двумя полями: числитель и знаменатель. Тогда в процедуре будет не 4 параметра, а 2.
Сложение дробей отдельная процедура. После сложения находим НОД числителя и знаменателя(избитая функция) и делим числитель и знаменатель на НОД.
Процедура будет выглядеть примерно так:

procedure sokr (a:frac;var e:frac);
var g:integer;
begin
nod(abs(a.p),a.q,g); e.p:=a.p div g; e.q:=a.q div g;
end;

где:

frac=record
       p:integer://числитель
       q:1..maxint//знаменатель(без ноля)
       end;

a.p,a.q-значения до сокращения; g-значение НОД; e.p,e.q-значения после сокращения.