Вопросы для самопроверки

1. Дайте определение циклов?

2. Какие виды циклов различают?

3. Каков формат оператора While..do? Как осуществляется выход из тела цикла?

4. Каков формат оператора Repeat..until? Как осуществляется выход из тела цикла?

5. Каков формат оператора for..to..do? Как осуществляется выход из тела цикла?

6. Дайте определение вложенного и внешнего циклов?

Лабораторная работа №5 программирование структур с вложенными циклами. Вычисление суммы ряда

Цель работы. Получить навыки составления программ с вложенными циклами.

Задание. Вычислить сумму ряда и функцию Y.

Постановка задачи. Определив тип общего члена ряда, и организовав вычисление его суммы со структурой вложенных циклов, получить таблицу, состоящую из переменных X, Y, S, при |X|<1.

Методические указания

1. При организации вложенных циклических структур необходимо обратить внимание на правильность выбора внешнего и внутреннего циклов. Замена внешнего цикла на внутренний цикл приведёт к изменению постановки задачи и получению неверного результата.

2. При вычислении суммы по формуле S=S+An, необходимо правильно определить начальное значение S, которое равно первому элементу ряда. Например, в ряде при n=0 начальное значение S=0, а в ряде при n=0 начальное значение S=0.

3. Получив результаты выполнения программы, сравнить их: значения S и Y должны быть одинаковыми.

Например, вычислить сумму ряда S и функцию Y.

Общий член ряда выражается по формуле , выражение n-ого члена через (n-1)-ый равно . Шаг изменения X определяется H=(XM-X0)/M, где XM, X0 – диапазон изменения X, а M – число разбиений - может любым.

PROGRAM PRIMER1;

VAR

S, A, X, Y, X0, XM: REAL;

K, N, M: INTEGER;

BEGIN

WRITE (‘Введите интервал изменения значения X’);

READLM (X0, XM);

WRITE (‘Введите количество точек M на этом отрезке’);

READLN (M);

WRITE (‘Введите число элементов ряда’);

READLN (K);

X := X0;

H := (XM-X0)/M;

REPEAT

S := 1;

A := 1;

FOR N := 1 TO K DO

BEGIN

A := A*X/N;

S := S+A;

END;

Y := ESP (X);

WRITELN (‘S = ’, S:8:5, ‘’:3, ‘Y = ’, Y:8:5);

X := X+H;

UNTIL X>=XM;

END.

Варианты заданий

№	Ряд	Контрольная формула
1
2
3		sinx – cosx + 1
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30