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

UptoLike

ВУЗ: 

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

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

Рубрика: 

22
,
2)12(
)12(
2)12(
)12()12(
)1(
)1(!)!32(
)12(!)!22(
)12(!)!2(
)1(!)!12(
2
2
2
2
112
12
12
12
1
2
nna
nx
nna
nnx
xn
ann
ann
xn
a
a
nn
n
n
nn
n
n
⋅+⋅
−⋅
−=
⋅+⋅
−⋅−⋅
⋅−=
=
−⋅⋅−
⋅−⋅−
⋅
⋅+⋅
−⋅⋅−
=
−−
−
+
+
−
так как c=x/a, то
.
)12(2
)12(
22
1
+⋅
−⋅
⋅−=
−
nn
nc
aa
nn
Описание алгоритма
Вначале проверяется условие
22
ax ≥
. И если оно выполняется, выдаётся
сообщение “неверный ввод” и программа завершает работу.
При не выполнении условия
22
ax ≥
, в цикле на каждой итерации
– проверяется абсолютная величина очередного члена суммы ряда:
|an| > eps.
– если условие выполняется, то слагаемое прибавляется к сумме, опреде-
лятся значение следующего члена ряда, и вычисления продолжаются.
– если условие |an| > eps не выполняется, то завершается подсчёт суммы.
Текст программы
program Row2;
var x, a, b, c, s, y, an, eps :real;
n:integer;
begin
writeln(
'введите x,а и eps, так чтобы x*x<a*a');
readln(x,a,eps);
if x*x>=a*a then
begin
writeln(
' неверный ввод'); exit
end;

Страницы