Вычислить значение суммы ряда через Pascal:

y=1+1/2+1/3+ … +1/i+…+1/n

Вычисления прекратить, если i член ряда, т.е. 1/i станет меньше, чем заданная точность (eps).

Код программы на Pascal

Program sum;
uses crt;
const
eps=1.0E-3;
var
y,u:real;
n:integer;
begin
clrscr;
y:=0;
for n:=1 to 10000 do
begin
u:=1/n;
y:=y+u;
if u<=eps then break; end; writeln('значение y=',y:10:6, 'всего было вычислений',n:8); end

Пояснения
1. Точность eps задана в программе как const EPS = 1.0E-3.

2. Вычисления заданы бесконечным циклом for n:=1 to 10000 do, выход из которого осуществляется по достижению указанной точности с помощью оператора break.

Комментарии запрещены.