ЛАБОРАТОРНАЯ РАБОТА №3
Программирование циклических алгоритмов
Пример выполнения
Постановка задачи
Написать программу вычисления суммы ряда 
. Вычисление продолжать до тех пор, пока слагаемое не станет меньше некоторого числа e.
Описание входных и выходных переменных
| Имя переменной | Тип переменной | Класс | Описание |
| x | действительная | входная | Аргумент ряда |
| e | действительная | входная | Граничное число для прекращения вычислений |
| m | действительная | рабочая | Каждое последующее слагаемое |
| S | действительная | выходная | Искомая сумма ряда |
Блок-схема алгоритма
 |
Код программы на языке Pascal
Program N_5; {имя программы}var x, e, m, S: real;
begin
write('Введите аргумент ряда x: ');
readln(x);
write('Введите граничное число: ');
readln(e);
m:=1;
S:=0;
while m>=e do
begin
S:=S+m;
m:=m/x;
end;
writeln('Сумма ряда равна ', S:5:2);
readln;
end.
Результаты тестирования работы программы
| Входные данные | Выходные данные | |
| x | e | S |
| 0.7 | 1.00 |
Контрольные вопросы
1. Как записывается и как работает оператор FOR?
2. Для организации каких циклов применим оператор FOR?
3. В чем отличие оператора WHILE от оператора REPEAT?
4. Как программируются циклические алгоритмы с явно заданным числом повторений цикла?
5. Как программируются циклические алгоритмы с заранее неизвестным числом повторений цикла?
6. Напишите оператор цикла, который не выполняется ни разу.
7. Напишите оператор цикла, который выполняется неограниченное число раз.
8. Замените оператор "Repeat A Until B" равносильным фрагментом программы с оператором While.
Задачи для самостоятельного решения
1. Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9.
2. Найти все трехзначные числа, сумма цифр которых равна данному целому числу.
3. Найти все трехзначные числа, средняя цифра которых равна сумме первой и третьей цифр.
4. Найти все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры.
5. Найти все двузначные числа, сумма квадратов цифр которых делится на 17.
6. Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр.
7. Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа.
8. Найти двузначное число, равное утроенному произведению его цифр.
9. В каких двузначных числах удвоенная сумма цифр равна их произведению?
10. Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел? Написать программу решения этой задачи.
Вычисление выражений:
Дано натуральное n. Вычислить:
11. 
;
12. 
;
Дано действительное число х, натуральное число n. Вычислить:
13. x (x - n)(x - 2 n)(x - 3 n)…(x - n2);
14. 
;
Дано натуральное n. Вычиcлить:
15. 
;
Вычислить приближенно значение бесконечной суммы (справа от каждой суммы дается ее точное значение, с которым можно сравнить полученный ответ):
16. 
= 
;
17. 
= 
;
Нужное приближение считается полученным, если вычислена сумма нескольких первых слагаемых, и очередное слагаемое оказалось по модулю меньше данного положительного числа e.
18. Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (не включая сами эти числа), в порядке их возрастания, а также количество N этих чисел.
19. Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их убывания, а также количество N этих чисел.
20. Дано вещественное число A и целое число N (> 0). Вывести A в степени N: AN = A·A·...·A (числа A перемножаются N раз).
21. Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N.
22. Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 +... + AN.
23. Дано вещественное число A и целое число N (> 0). Вывести 1 - A + A2 - A3 +... + (-1)NAN.
24. Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K > N, и само значение 3K.
25. Дано целое число N (> 1). Вывести наибольшее целое K, при котором выполняется неравенство 3K < N, и само значение 3K.
26. Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 +... + 1/N будет больше A, и саму эту сумму.
27. Дано вещественное число A (> 1). Вывести наибольшее из целых чисел N, для которых сумма 1 + 1/2 +... + 1/N будет меньше A, и саму эту сумму.
28. Дано целое число N (> 0). Вывести произведение 1·2·...·N. Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и выводить его как вещественное число.
29. Дано целое число N (> 0). Если N - нечетное, то вывести произведение 1·3·...·N; если N - четное, то вывести произведение 2·4·...·N. Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и выводить его как вещественное число.
30. Дано целое число N (> 2) и две вещественные точки на числовой оси: A, B (A < B). Отрезок [A, B] разбит на равные отрезки длины H с концами в N точках вида A, A + H, A + 2H, A + 3H,..., B. Вывести значение H и набор из N точек, образующий разбиение отрезка [A, B].
31. Дано целое число N (> 2) и две вещественные точки на числовой оси: A, B (A < B). Функция F(X) задана формулой F(X) = 1 - sin(X). Вывести значения функции F в N равноотстоящих точках, образующих разбиение отрезка [A, B]: F(A), F(A + H), F(A + 2H),..., F(B).
32. Дано число D (> 0). Последовательность чисел AN определяется следующим образом: A1 = 2, AN = 2 + 1/AN-1, N = 2, 3,... Найти первый из номеров K, для которых выполняется условие |AK - AK-1| < D, и вывести этот номер, а также числа AK-1 и AK.
33. Дано число D (> 0). Последовательность чисел AN определяется следующим образом: A1 = 1, A2 = 2, AN = (AN-2+ AN-1)/2, N = 3, 4,... Найти первый из номеров K, для которых выполняется условие |AK AK-1| < D, и вывести этот номер, а также числа AK-1 и AK.