Реферат Курсовая Конспект
Вывод коэффициента рекуррентности q - раздел Информатика, ИНФОРМАТИКА ...
|
до цикла | цикл ® |
.
Проверка правильности вычисления q
До цикла: предыдущее слагаемое ;
Значение переменной .
Цикл начинается при значении переменной и заканчивается при .
– | ||||
– | ||||
– | ||||
: : | : : | : : | : : | : : |
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:
– Конец работы –
Эта тема принадлежит разделу:
Национальный аэрокосмический университет им Н Е Жуковского... Харьковский авиационный институт... А В Карташов Ю А Скоб В А Халтурин И А Трофимова...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Вывод коэффициента рекуррентности q
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Твитнуть |
Новости и инфо для студентов