- •ЛАБОРАТОРНАЯ РАБОТА № 1
- •Теоретический материал
- •1.2. Интерфейс IDE
- •1.3. Комбинации клавиш
- •2. Подготовка текста программы
- •2.5. Удаление фрагмента текста
- •ЛАБОРАТОРНАЯ РАБОТА № 2
- •Теоретический материал
- •Константа (англ. constant) – это величина, значения которой не изменяются в период ее существования. Значения переменных предварительно описываются в разделе описания переменных CONST.
- •2.1. Простые типы данных
- •5. Вычисление выражений
- •Задача 2
- •Задача 3
- •Необходимо ввести и вывести на печать два целых числа и два вещественных числа:
- •ЛАБОРАТОРНАЯ РАБОТА № 3
- •Теоретический материал
- •Допускается опускать служебное слово ELSE:
- •Задача 2
- •Задача 3
- •Program Lab3_3_2; {Случай 2}
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант 5
- •Вариант 6
- •Вариант 7
- •Вариант 8
- •Вариант 9
- •Вариант 10
- •Вариант 11
- •Вариант 12
- •Вариант 13
- •Вариант 14
- •Вариант 15
- •Вариант 16
- •Теоретический материал
- •ЛАБОРАТОРНАЯ РАБОТА № 5
- •ОРГАНИЗАЦИЯ РАБОТЫ ПРОГРАММ ЦИКЛИЧЕСКОЙ СТРУКТУРЫ
- •Теоретический материал
- •Задача 1
- •Задача 2
- •Рассмотрим программу с использованием оператора цикла с предусловием, когда в качестве логического < Условия > стоит выражение 2*A < = 3*N +1.
- •Program Lab5_2;
- •Задача 4
- •6. Вложенные циклы
- •8. Практическое задание – решение задач с использованием операторов цикла
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант 5
- •Вариант 6
- •Вариант 7
- •Вариант 8
- •Вариант 9
- •Вариант 10
- •Вариант 11
- •Вариант 12
- •Вариант 13
- •Вариант 14
- •Вариант 15
- •Вариант 16
- •ОРГАНИЗАЦИЯ ИТЕРАЦИОННЫХ ЦИКЛОВ В ПРОГРАММЕ
- •Теоретический материал
- •Задача 1
- •Задача 2
- •Пояснения к задаче 2
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант 5
- •Вариант 6
- •Вариант 7
- •Вариант 8
- •Вариант 9
- •Вариант 10
- •Вариант 11
- •Вариант 12
- •Вариант 13
- •Вариант 14
- •Вариант 15
- •Вариант 16
- •Теоретический материал
- •Таблица 14
- •Задача 3
- •Задача 4
- •Задача 5
- •Умножить на 3 каждый элемент массива и получить результат на экране дисплея распечатанным по строкам.
- •5. Практическое задание – решение задач с использованием массивов
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант 5
- •Вариант 6
- •Вариант 7
- •Вариант 8
- •Вариант 9
- •Вариант 10
- •Вариант 11
- •Вариант 12
- •Вариант 13
- •Вариант 14
- •Вариант 15
- •Вариант16
- •ПРАКТИКУМ ПО ПРОГРАММИРОВАНИЮ НА ЯЗЫКЕ TURBO PASCAL
Задача 2
Пусть требуется найти сумму ряда с точностью ε = 10–4. Общий член ряда вычисляется по формуле
an = 2(n!)2 . 3(2n)!
Как уже указывалось, при рекуррентном способе задания последовательности указывают ее первый член (или несколько начальных членов) и формулу, позволяющую определить любой член последовательности по известным предшествующим членам.
Для получения рекуррентной формулы вычислим отношение следующего члена ряда к текущему:
a |
n+1 |
= |
2((n |
+1)!)2 3(2n)! |
= |
n +1 |
|
, |
||
an |
3(2n + 2)!2(n!)2 |
|
2(2n + |
1) |
||||||
|
|
|
откуда an+1 = 2a(n2(nn ++11)) .
При составлении программы будем считать, что точность вычислений будет достигнута при an < ε.
PROGRAM Lab6_2;
Const Eps = 0.1E – 3; VAR
N : Integer;
AN, SUMMA : Real; BEGIN
SUMMA : = 0; N : = l;
AN : = 1/3;
While AN > Eps DO Begin {2}
SUMMA; = SUMMA + AN; N : = N + 1;
AN : = AN * (N + 1)/(2 * (2 * N + 1)); End; {2}
WriteLn('СУММА = ', SUMMA,’ ПОСЛЕДНИЙ ЧЛЕН РЯДА = ', AN); WriteLn('ПОСЛЕДНИЙ ЧЛЕН РЯДА = ', AN);
END. {1}
Протокол работы программы. Вычисление суммы бесконечного ряда:
сумма = 4,72743922744030E – 0001;
последний член ряда = 4,11353352529620E – 0005.
Пояснения к задаче 2
Цикл организован с помощью оператора while. Цикл будет выполняться до тех пор, пока не получим очередной член ряда, который будет меньше за-
83
данной точности вычислений ε. По выходе из цикла печатаем сумму ряда S и последний член ряда.
Перед входом в цикл задаются начальные значения переменных S = 0. Здесь накапливается сумма, и AN = 1/3 – это первый член ряда, вычисленный нами. Выводится сумма ряда S и последний член ряда в формате с плавающей запятой.
2.Контрольные вопросы
1.Что такое итерация?
2.Что такое числовая последовательность?
3.Приведите пример числовой последовательности.
4.Назовите особенности обычных и рекуррентных числовых последовательностей.
5.Объясните формулу для вычисления суммы первых n членов арифметической прогрессии.
6.Что называется рекуррентным соотношением?
7.В каких случаях используются безындексные переменные?
8.Какие минимальные изменения следует внести в алгоритм суммирования членов последовательности, чтобы получить алгоритм вычисления произведений членов последовательности?
9.Что такое бесконечный ряд?
10.Как вычисляется сумма бесконечного ряда?
11.Для чего дается точность вычислений ε при вычислении суммы членов бесконечного ряда?
3.Практическое задание – решение задач с организацией итерационного процесса
Решить предложенные задачи по вариантам.
Методические указания
1.Составить блок-схему программы, после чего приступить к написанию программы в ИСП.
2.Для получения рекуррентной формулы вычислить отношение следующего члена ряда к текущему.
3.Используя оператор цикла, найти сумму элементов, указанных в конкретном варианте, применяя предложенную методику вычисления суммы ряда.
4.Сделать программе соответствующий заголовок. Получить результат: сумму ряда, последний член ряда согласно заданной точности вычислений. Результат работы программы (сумму ряда, последний член ряда) напечатать в формате с плавающей запятой. Организовать также печать каждого вычисляемого члена ряда. Протокол работы программы должен выглядеть так (образец распечатки дан применительно к задаче 2):
84