Задание 3.

Написать программу, вычисляющую сумму элементов предложенного ряда. Значения n и х должны вводиться с клавиатуры. Использовать оператор For.

Таблица 2.3 — Варианты заданий

Вариант	Функция
1
2
3
4
5
6
7
8
9
10
11
12

Требования к отчету

Отчет предоставляется преподавателю в электронном варианте и должен содержать:

• название работы, постановку цели, вывод;

• блок-схему, текст программы и результаты ее выполнения;

• ответы на контрольные вопросы, указанные преподавателем.

Контрольные вопросы

1. Какие операторы используются для программирования циклических алгоритмов?

2. Какую конструкцию имеют операторы повторения For, Repeat, While?

3. В чем различие оператора цикла с предусловием и оператора цикла с постусловием?

4. Какую конструкцию имеет оператор For в случае убывания параметра цикла?

5. В каких случаях используется каждый из операторов For, Repeat, Until?

6. Объяснить принцип работы вложенных циклов.

Лабораторная работа 3

Программирование с использованием массивов

Цели:

• Научиться писать программы, обрабатывающие массивы и элементы массивов.

Массив это упорядоченная совокупность конечного числа данных одного типа. Простейшим примером массива может служить линейная таблица. Значения, образующие линейную таблицу, являются элементами массива, а их порядковые номера в таблице называются индексами. Индекс определяет положение элемента массива относительно его начала.

Общая форма описания переменной-массива:

Var <имя>: array [<размер массива>] of <тип-элементов>;

Например:

Var a: array [1..10] of Integer;

Выбор отдельной компоненты одномерного массива осуществляется указанием идентификатора массива, за которым в квадратных скобках следует индекс. Например: M[1], M[2], …, M[N].

Примеры решений задач

1. Создать массив, размером в 10 элементов. Элементы массива вводить с клавиатуры. Вывести на экран элементы, больше числа 3.

Program Massiv;

Var a: array [1..10] of Integer;

i: Integer;

Begin

For i := 1 to 10 do read(a[i]); // Вводим элементы массива

For i := 1 to 10 do

Begin

If a[i] > 3 then WriteLn(a[i]);

End;

End.

2. Найти максимальное число в массиве.

Program Maximum;

Var a: array [1..10] of Integer;

n, m: Integer;

Begin

For n := 1 to 10 do Read(a[n]); // Ввод элементов массива

m := a[1];

For n := 2 to 10 do

Begin

If a[n] > m then m := a[n];

End;

WriteLn('Максимальное число = ', m);

End.

Задания

Осуществить ввод данных в массив. Осуществить ввод числа. Значения функции выводить в виде таблицы, состоящей из двух колонок (одна – для значений элементов массива, другая – для значений функции). Вывести найденную сумму или произведение, согласно варианту.

Таблица 3.1 — Варианты заданий

Вариант	Задание
1	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти произведение элементов введенного массива, больших.
2	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти сумму целых элементов введенного массива.
3	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти произведение дробных элементов введенного массива.
4	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти сумму элементов введенного массива, кратных числу 3.
5	Ввести массивы и. Для каждогоивычислить функцию. Найти произведение нечётных элементов введенных массивов.
6	Ввести массивы и. Для каждогоивычислить функцию. Найти сумму дробных положительных элементов введенных массивов.
7	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти произведение чётных элементов введенного массива.
8	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти сумму элементов введенного массива, меньших числа 5.
9	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти произведение целых элементов введенного массива.
10	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти сумму элементов введенного массива, кратных числу 2.
11	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти произведение элементов введенного массива, некратных числу 3.
12	Ввести массив и число. Для каждого элемента массива вычислить функцию. Найти сумму чётных элементов введенного массива.