Курсовая работа: Проект разработки программы-калькулятора CalcKurs на языке программирования Pascal

end;

a:=1;

for j:=1 to abs(vec[1]) do

begin

if (vec[1] mod j)=0 then

begin

veca[a]:=j;

a:=a+1;

{ veca[a]:=-j;

a:=a+1;}

End;

end;

b:=a;

for j:=1 to k-1 do

Begin

for a:=1 to b-1 do

Begin

Begin

c:=i;

sum:=0;

for i:=1 to c do

Begin

sum:=sum+vec[i]*pow1(vecb[j]/veca[a],c-i);

if (sum<0.00001) and (sum>-0.00001) then

if vec[a]=1 then writeln('ответ:',round(vecb[j]))

else writeln('ответ:',round(vecb[j]), '/',round(veca[a]));

end;

End;

End;