Вывод коэффициента рекуррентности q
до цикла |
цикл |
.
Проверка правильности вычисления q
До
цикла: предыдущее слагаемое
;
Значение переменной .
Цикл
начинается при значении переменной
и заканчивается при
.
|
|
|
|
|
1 |
1 |
– |
|
|
2 |
|
– |
|
|
3 |
|
– |
|
|
: : |
: : |
: : |
: : |
: : |
n |
|
– |
|
|
Программа для задачи 1:
PROGRAM lab7_1;
uses crt;
CONST n=9; { количество элементов суммы }
x=0.6; { для этого Х вычислить сумму }
VAR s :real; { искомая сумма }
q :real; { коэффициент рекуррентности }
a1,a2 :real; { предыдущий и следующий элементы суммы }
i :integer; { счетчик элементов суммы }
BEGIN
clrscr; { очистка экрана }
s:=1; { значение суммы до начала цикла }
a1:=1; { слагаемое непосредственно перед началом цикла}
FOR i:=1 TO n DO
begin
q:=-x/i; { i-й коэффициент рекуррентности }
a2:=a1*q; { следующий элемент суммы }
s:=s+a2; { суммирование }
a1:=a2 { "переброс" – подготовка к следующему такту цикла}
end;
writeln;
writeln (' x=',x:5:1,' s=',s:9:6);
readln;
END.
Экран выполнения программы для задачи 1:
|
Программа для задачи 2:
PROGRAM lab_7_2;
USES crt;
CONST xn=0.1 ; { начальное значение Х }
xk=1.0; { конечное значение Х }
hx=0.1; { шаг по Х }
eps=1e-6; { точность вычисления суммы }
VAR S :real; { сумма }
q :real; { коэффициент рекуррентности }
a1,a2 :real; { предыдущий и следующий элементы суммы }
x :real; { текущее значение Х }
i :integer; { счетчик элементов суммы }
k :integer; { счетчик количества точек Х }
BEGIN
clrscr; { очистка экрана }
x:=xn; { начальная точка Х }
k:=1; { номер точки X }
WHILE x<=xk+eps DO { начало цикла по Х }
BEGIN
s:=1; { значение суммы до цикла в К-й точке Х }
a1:=1; { слагаемое непосредственно перед началом цикла}
i:=1; { начальное значение счетчика i }
REPEAT {цикл REPEAT для вычисления суммы в К-й точке Х}
q:=-x/i;
a2:=a1*q;
s:=s+a2;
i:=i+1;
a1:=a2
UNTIL abs(a2)<eps; { закончился оператор REPEAT }
writeln;
writeln ( k:2,'. ',' x=',x:3:1,' s=',s:9:6 );
k:=k+1;
x:=x+hx; { переход на следующий Х }
END; { закончился оператор WHILE }
repeat until keypressed; { задержка экрана }
END.
Экран выполнения программы для задачи 2:
|
