startc := startc - 0.2;
endc := endc - 0.2;
startc := startc / 0.3;
endc := endc / 0.3;
s := s + 'e';
if (startc <>0) or (endc <> 1) then
nemuricaltostr(s,startc,endc);
end ;
if (startc- 0.5>= eps) and (startc- 0.7< -eps) then
if (endc-0.7<= -eps) and (endc>startc) then
begin
startc := startc - 0.5;
endc := endc - 0.5;
startc := startc / 0.2;
endc := endc / 0.2;
s := s + 'i';
if (startc <>0) or (endc <> 1) then
nemuricaltostr(s,startc,endc);
end ;
if (startc-0.7 >= eps) and (startc-0.9 < -eps) then
if (endc-0.9<=-eps) and (endc>startc) then
begin
startc := startc - 0.7;
endc := endc - 0.7;
startc := startc / 0.2;
endc := endc / 0.2;
s := s + 'o';
if (startc <>0) or (endc <> 1) then
nemuricaltostr(s,startc,endc);
end ;
if (startc -0.9>=eps) and (startc-1 < -eps) then
if (endc-1<= -eps) and (endc>startc) then
begin
startc := startc - 0.9;
