2018-01-21
214
Министерство образования и науки РФ
ФГБОУ ВПО
«Восточно-Сибирский государственный университет
Технологий и управления»
Кафедра: «Сопротивление материалов».
Лабораторная работа №3.
«Программирование алгоритмов итерационной циклической структуры».
Вариант №15
Выполнил: студент гр. Б331-2
Леонтьев А.
Проверил: преподаватель
Бундаев В.В.
г. Улан-Удэ
2012 г.
Задания к работе:
1) Вычислить на ЭВМ значение суммы членов бесконечного ряда с заданной точностью ε;
2) На печать вывести значение суммы и число членов ряда, вошедших в сумму.
3) Для вариантов, отмеченных знаком ‘*’ сравнить полученные на ЭВМ значения суммы членов ряда со значением, вычисленным вручную.
Исходные данные: ε=10-4
Расчетные формулы: x=0.25
Решение этой задачи с помощью оператора цикла с
предварительным условием
Блок-схема алгоритма нахождения значения суммы членов бесконечного ряда:
| Начало |
| ε=10-4 a, b, t |
| Печать S, n-1 |
| Конец |
| ввод X |
| c=c; a=x; b=1; d=n; n=1; S=0; |
|
| S=S+a n=n+1 |
b=b;
d=n
|
|
|
|
|
5 Нет
6 Да
Программа для ЭВМ на алгоритмическом языке TURBO PASCAL:
Program LR_3; {czikl poka}
const eps=1e-4;
var x,c,a,s,d: real;
b,n: integer;
Begin
write ('Vvedite znachenie x: ');
readln(x);
c:=c; a:=x; b:=1;
d:=n; n:=1; S:=0;
while abs(a)>eps do
begin
S:=S+a;
writeln ('a=',a:5:4);
write ('pri n=',n:1,' S=',S:5:4);
readln;
n:=n+1;
b:=b;
c:=exp(n*ln(x))*n*cos(n*pi/3);
d:=n;
a:=b*c/d;
end;
writeln ('Summa ryada=',S:5:4);
writeln ('Kolichestvo chlenov, voshedshih v summu=',n-1);
readln
End.
Протокол работы программы:
Vvedite znachenie x: 0.25
a=0.2500
pri n=1 S=0.2500
a=-0.0312
pri n=2 S=0.2188
a=-0.0156
pri n=3 S=0.2031
a=-0.0020
pri n=4 S=0.2012
a=0.0005
pri n=5 S=0.2017
a=0.0002
pri n=6 S=0.2019
Summa ryada=0.2019
Kolichestvo chlenov, voshedshih v summu=6
