- •Содержание
- •1. Алгоритмы и способы их описания
- •2. Алгоритмы линейной структуры
- •3. Алгоритмы разветвляющейся структуры
- •4. Алгоритмы циклической структуры
- •4.1. Структура и основные типы циклов
- •4.2. Алгоритмы нахождения суммы, произведения и количества вычисленных значений
- •4.3. Циклы с неизвестным числом повторений
- •4.4. Вложенные циклы
- •5. Алгоритмы обработки одномерных массивов
- •5.1. Ввод и вывод элементов одномерного массива
- •5.2. Нахождение максимального и минимального элементов массива
- •5.3. Сортировка элементов массива
- •5.4. Циклический сдвиг элементов массива
- •5.5. Добавление и удаление элементов массива
- •6. Алгоритмы обработки двумерных массивов
- •7. Алгоритмы, содержащие вспомогательные подзадачи
- •Задания к контрольной работе Задание №1.Организация линейного и разветвляющегося
- •Варианты заданий.
- •Задание №2. Организация циклов с известным числом повторений
- •Варианты заданий.
- •Задание № 3. Организация циклов с неизвестным числом повторений
- •Варианты заданий.
- •Задание № 4. Организация вложенных циклов
- •Варианты заданий.
- •Задание № 5. Обработка одномерных массивов
- •Задание № 6. Обработка двумерных массивов
- •Варианты заданий.
- •Задание № 7. Использование процедур и функций
- •Варианты заданий.
- •Рекомендации к выполнению контрольной работы
Задание № 5. Обработка одномерных массивов
Задание. Составить блок-схему алгоритма и программу решения поставленной задачи, которая в соответствии с исходными данными вычисляет значения заданных выражений.
Пример. Составить алгоритм и программу формирования массива Y на основе исходного массива Х размерностью N. Определить максимальный положительный элемент массива Y. Элементы массива Y вычисляются по формуле:
Программа на языке Турбо Паскаль:
Program Pr5;
Var x, y: array [1..20] of real;
i, N, imax: byte;
Begin
Write(‘Ввод N’); Readln(N);
for i:=1 to N do begin
Write(‘Ввод x[’, i, ’] =’); Readln(x[i]);
end;
imax := 0;
for i:=1 to N do begin
if x[i] >= 0 then y[i] := 1+exp(0.5*x[i])
else
if 1+x[i] <> 0 then y[i] := 1/(1+x[i])
else begin writeln(‘Аномалия’); y[i] := 0
end;
writeln(‘y[‘, i, ’]=’, y[i] : 6 : 2);
if y[i] > 0 then
if imax = 0 then imax := i
else if y[imax] < y[i] then imax := i;
end;
writeln(‘y[’, imax, ‘]=’, y[imax] : 6 : 2);
End.
Блок-схема алгоритма:
Варианты заданий.
|
№ п/п |
Модель |
Исходные данные |
Выводимые данные |
|
1 |
2 |
3 |
4 |
|
1 |
|
Массив X i = 110 |
Массив Y Значение наибольшего отрицательного элемента массива Y |
|
2 |
|
Массив Y i = 115
|
Массив z. Максимальный элемент zmax и номера элементов массива Z меньших 0.5zmax |
|
3 |
|
Массив X 1 ≤ xi ≤ 10 hxi=1
|
Массивы Z, Y. Сумма и количество положительных элементов массива Y. Среднее арифметическое отрицательных элементов массива Y. |
|
4 |
|
Массив X -1 ≤ xi ≤ 11 hxi=2
|
Массивы z, Y. Порядковый номер и значение первого положительного числа в массиве Z. |
|
|
yi
=
Все отрицательные элементы массива Y заменить нулями, а нулевые элементы заменить значением элемента xi |
Массив X i = 115 |
Массив Y до и после замены. Среднее арифметическое массива Y до и после замены. |
Продолжение таблицы к заданию 5
|
1 |
2 |
3 |
4 |
|
6 |
|
Массив X i = 115 |
Массив Y. Значение и номер эл-та yi, наиболее отличающегося от S. |
|
7 |
сi=max(ai, bi )-min(ai, bi ) |
Массив X i = 110 |
Массивы A, B, C. максимальный элемент массива C среди четных элементов. |
|
8 |
|
Массив X i = 125
|
Массив M. Разность между S и P. |
|
9 |
Если maxPi меньше суммы всех остальных элементов, то присвоить этому элементу значение 0. |
Массив X -0.4≤ xi ≤1.2 hxi=0.2
|
Массив P, maxРi. |
|
10 |
|
Массив Y i = 111
|
Массивы X, P. Значения и номера мин. и макс. по модулю элементов P. |
|
11 |
|
t
|
Массив Y. Сумма и количество элементов массива Y, лежащих на отрезке [0;2]. |
Продолжение таблицы к заданию 5
|
1 |
2 |
3 |
4 |
|
12 |
Элементы Zi сгладить по формуле: Zi = (Zi-1 + Zi + Zi+1)/3 |
Массив X i = 115 |
Массив Z до и после сглаживания. |
|
13 |
|
Массив X -5 xi 4 hxi=0.9
|
Массивы X, A. S, P. Количество аi<0. |
|
14 |
Считать пары точек (yi, zi) координатами точек на плоскости YOZ |
Массив X i = 110 |
Массивы Y, Z. Определить, какая из точек 2, 3…10 наиболее удалена от точки (y1, z1). |
|
15 |
Заменить все отрицательные элементы массива Y суммой R и значения соответствующего элемента. |
Массив A i=111 |
Массив Y до и после замены. Ср. арифметическое (R) элементов массива Y. |
|
16 |
|
R, V0, Y0, Массив X i=110 |
R, V0, Y0, PR. Массивы Y, V. |
Продолжение таблицы к заданию 5
|
1 |
2 |
3 |
4 |
|
17 |
Cчитать ai, bi, ci коэффициентами квадратного уравнения ax2+bx+c=0 |
Массив A i=120 |
Массивы B, C. Порядковые номера уравнений, имеющих комплексные корни. |
|
18 |
Считать значения элементов массива A и B длинами полуосей эллипса a и b. |
Массив X 4 ≤ xi ≤ 12 hxi=2
|
Массивы A, B. Порядковый номер N эллипса, площадь которого S= a b наибольшая.
|
|
19 |
|
Массив X i=1÷12 |
Массив Y. Индекс элемента, наиболее близкого по значению к ср. геометрическому (Р) массива Y. |
|
20 |
|
Массив X -0.3≤ xi ≤1.2 hxi=0.3 |
Массив Y. Среднее арифметическое (А) массива Y и количество yi >A. |



yi
=

5
, если xi
> 1.5











Считать
(Vi
,Yi
) координатами точек плоскости.
Определить процент (PR)
точек, лежащих в круге радиусом R
с центром в точке(V0
,Y0).


