Автор: Наталья

Наталья — Tue, 29 Jan 2019 06:40:43 +0000

Для учета знака результата (см. условие) необходимо брать абсолютные значения

function NOD2(a,b:integer):integer;
  begin
  while (a<>0) and (b<>0) do
  begin
  if abs(a)>abs(b) Then a:=a mod b else
  b:=b mod a;
  end;
  NOD2:=a+b;
  end;
  
 procedure  Frac1(a,b:integer;var p,q:integer);
  begin
   p:=a div NOD2(a,b);
   q:=abs(b div NOD2(a,b));
  end;

function NOD2(a,b:integer):integer;

begin

while (a<>0) and (b<>0) do

begin

if abs(a)>abs(b) Then a:=a mod b else

b:=b mod a;

end;

NOD2:=a+b;

end;

procedure Frac1(a,b:integer;var p,q:integer);

begin

p:=a div NOD2(a,b);

q:=abs(b div NOD2(a,b));

end;

Комментарии: Решаем задачи Абрамян на Паскале. Proc 47

Автор: Наталья