{ Приклад №3
Формулювання
задачі.
Скласти програму на мові ТР для обчислення
суми членів ряду для заданого x,
якщо загальний член ряду
.
}
program 1;
var a,S:real;
n,i:integer;
begin
writeln(‘ввести к-ть членів ряду n та з-ня х’);
readln(n,х);
S:=0;
for i:=1 to n do begin
a:= -(sqr(x)*(2*i-1))/(2*i+1)
S:=S+a;
end;
writeln(‘S=’,S:10:2);
end.
3. Натиснути комбінацію клавіш 'ALT' + 'F9'. Якщо не виявлено помилок- натиснути комбінацію клавіш 'CTRL' + 'F9'. На екрані з'явиться повідомлення:
ввести к-ть членів ряду n та з-ня х
4. Ввести значення цих змінних з клавіатури (в кінці вводу - 'ENTER'):
5 1
5. На екрані з'явиться результат виконання програми:
S= - 6.35
6.Одержаний результат переписати з відео терміналу у звіт лабораторної роботи.
7. Обчислити суму ряду, заданого в таблиці 2 (замінити в програмі вираз для обчислення загального члена ряду: 'a' на заданий і виконати пункти 3-6).
-
Звіт по виконаній лабораторній роботі здати викладачу.
Таблиця 2
|
Номер варіанту |
|
N
|
х
|
|
1 |
2 |
3 |
4 |
|
1 |
|
30 |
0,25 |
|
2 |
|
10 |
0,83 |
|
3 |
|
10 |
0,37 |
|
4
|
|
20
|
0,54
|
|
5 |
|
20 |
0,41 |
|
6
|
|
10
|
1,25
|
|
7 |
|
30 |
0,75 |
|
8 |
|
10 |
0,58 |
|
9 |
|
15 |
-1,34 |
|
10
|
|
15
|
0,45
|
|
11 |
|
40 |
0,77 |
|
12 |
|
15 |
0,34 |
|
13
|
|
15
|
0,65
|
|
14 |
|
15 |
1,12 |
|
15 |
|
23 |
2 |
|
16
|
|
20
|
0,28
|
|
17 |
|
30 |
0,38 |
|
18 |
|
20 |
0,47 |
|
19 |
|
15 |
1,04 |
|
20 |
|
10 |
0,46 |
|
21 |
|
20 |
0,91 |
|
22 |
|
30 |
0,43 |
|
23 |
|
15 |
1,32 |
|
24 |
|
25 |
-0,44 |
|
25 |
|
10 |
-0,25 |
|
26 |
|
20 |
1,55 |
|
27 |
|
20 |
0,88 |
|
28
|
|
15
|
0,51
|
|
29 |
|
16 |
1,04 |
|
30 |
|
20 |
0,52 |
Контрольні питання
1. Що називають “циклом”?
2. Охарактеризуйте оператори repeat, for, while.
3. В чому полягає задача накопичення суми членів ряду?