Технология выполнения индивидуальных заданий. Часть 1 - 20 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

20
Описание алгоритма
В цикле на каждой итерации
– проверяется абсолютная величина очередного члена ряда:
|an| > eps,
– если условие выполняется, то слагаемое прибавляется к сумме, определя-
ется значение следующего члена ряда, и вычисления продолжаются,
– если условие |an| > eps не выполняется, то завершается подсчёт суммы.
Текст программы
program Row1;
var x, y, an, eps :real;
n:integer;
begin
writeln(
'введите x и eps');
readln(x,eps);
y:=0; n:=0; an:=1;
while abs(an)>eps do
begin
y:=y+an;
n:=n+1; an:=an*x/n
end;
writeln(
'сумма=', y:12:7)
end.
Тестовые примеры
1) x = 1, eps = 0.01, y = 2.7083333
2) x = 1, eps = 0.001, y = 2.7180556
3) x = 1, eps = 0.0001, y = 2.7182540

Страницы