Вычисление суммы ряда с заданной точностью / EPSILON / RTEST

{ ‚лзЁб«Ґ­ЁҐ Њ иЁ­­®Ј® ќЇбЁ«®­ }
{ Њ иЁ­­®Ґ ќЇбЁ«®­: eps= min [ epsil | 1+epsil>1 ] }
type
MyReal =Single {Real} {Double} {Extended}; {‚ аЁ ­вл ўҐй.вЁЇ®ў}
var eps,
epsP1,
epsil,
epsilP1 : MyReal;
i : Integer;
fout : Text;
begin
Assign (fout, 'single.eps'); Rewrite(fout);
{‘ гзҐв®¬ ў аЁ ­в  ўҐй.вЁЇ®ў}
WriteLn(fout,'‚ аЁ ­в ўҐйҐб⢥­­®Ј® вЁЇ : Single');

i := 0;
eps := 1.0;
epsP1 := 2.0;
while epsP1 > 1.0 do
begin {eps=2^(-i) & (1+eps>1)}
eps := eps * 0.5;
epsP1 := eps + 1.0;
i := i + 1;
WriteLn(fout,'<',i:2,'> eps : ', eps,' 1 + eps :', epsP1:26);
{eps=2^(-i) & (1+eps=>1) & (1+2*eps>1}
end {while};
{eps=2^(-i) & (1+eps=1) & (1+2*eps>1}
epsil := 2.0 * eps;
epsilP1 := epsil + 1.0;
WriteLn(fout,'Stop :');
WriteLn(fout,'ќЇбЁ«®­/2: ', eps,' 1+ нЇб/2:', epsP1:26);
WriteLn(fout,'ќЇбЁ«®­ : ',epsil,' 1+ нЇб :',epsilP1:26);
WriteLn(fout,'‘а ў­ЁвҐ : 1 + нЇбЁ«®­ (Extended) :',
1.0+eps:26);
Close (fout);
end.