function [fp,pp]=periodic(a)
% function [fp,pp]=periodic(a)
% Fixed part and periodic part of the number 1/a
% for the positive integer a.
% fp, pp - strings


if round(a)~=a | a<=0 | length(a)>1
  error('The input parameter have to be a scalar and positive integer');
end
pp=[];
if a==1
  fp='1';
  return
end
fp='0.';
delitele=10;
d1=10;
c=fix(d1/a);
fp=[fp,num2str(c)];
d1=mod(d1,a);
d1=10*d1;
I=find(delitele==d1);
while isempty(I) & d1>0
  delitele=[delitele,d1];
  c=fix(d1/a);
  d1=mod(d1,a);
  d1=10*d1;
  I=find(delitele==d1);
  fp=[fp,num2str(c)];
end
if d1>0
  pp=fp(2+I:end);
  fp(2+I:end)=[];
end


