Вопросы для самоподготовки:
Определение и понятие массива
Основные характеристики одномерного массива
Способы описания одномерных массивов
ЗАДАНИЕ 1
Дан массив, состоящий из N вещественных чисел. Составьте программу, которая вычислит среднее арифметическое тех элементов массива, значения которых принадлежат промежутку [a, b].
Решение:
Определим необходимые формулы:
SA=S/K, где SA – среднее арифметическое
S – сумма тех элементов массива, значения которых попадают в промежуток [a, b].
, где хi
– элементы массива Х. К – количество
элементов, попадающих в промежуток [a,
b].
Составим графическую схему алгоритма.
S=0
K=0
i=1
Нет
Да
Нет
Да
S=S+Xi K=K+1
i=i+1
Нет
Да
Составим таблицу соответствия переменных.
-
В исходной задаче
N
X
S
K
SA
i
В программе
N
X
S
K
SA
i
Тип
int
array (real)
real
int
real
int
В соответствии с пунктами 2 и 3 составьте программу.
Program SRARIFM;
Var
N, K, I: integer;
S, SA: real;
x: array [1..50] of real;
begin
write (‘Введите границы интервала [a, b] ’);
readln (a, b);
write (‘Введите кол-во элементов в массиве ’);
readln (N);
{Организация ввода значений элементов массива Х}
for i:=1 to N do
begin
write (‘Введите х [‘, i, ‘] ‘);
readln (x[i])
end;
{Расчетная часть программы}
S:=0;
K:=0;
For i:=1 to N do
If (x[i]>=a) and (x[i]<=b)
then
begin
S:=s+x[i];
K”=k+1
End;
if k=0
then
SA:=0
Else SA:=S/K;
{Вывод результата подсчета}
writeln (‘Средне арифметическое элементов, принадлежащих промежутку [‘, a:7:3, ‘,’, b:7:3, ‘]=’, SA:7:3);
readln
end.
Задание 2
В соответствии со своим вариантом составьте графическую схему алгоритма и напишите программу. Программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печатать результаты.
Вариант |
Задание |
1 |
Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3. |
2 |
Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и больших заданного С. |
3 |
Подсчитать произведение всех чисел, стоящих на местах, кратных 4, и количество чисел, небольших заданного А. |
4 |
Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах. |
5 |
Подсчитать количество чисел, не принадлежащих промежутку (Х, У], и сумму отрицательных чисел, стоящих на четных местах. |
6 |
Подсчитать сумму чисел, стоящих на местах, кратных 3, и неравных заданному F, подсчитать также количество неотрицательных чисел. |
7 |
Найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, по величине больших А и стоящих на четных местах. |
8 |
Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших заданного В. |
9 |
Найти среднее арифметическое чисел, принадлежащих промежутку [А, В) и количество положительных чисел, стоящих на местах, кратных 4. |
10 |
Найти среднее арифметическое чисел, неравных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах. |
11 |
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел, небольших заданного F. |
12 |
Найти среднее арифметическое чисел, непопадающих в промежуток [A, B], и подсчитать количество положительных чисел, стоящих на местах, кратных 3. |
13 |
Найти среднее арифметическое ненулевых чисел и подсчитать количество чисел, по величине небольших А и стоящих на четных местах. |
14 |
Вычислить произведение чисел, принадлежащих промежутку (A, B] и подсчитать количество отрицательных чисел, стоящих на местах, кратных 3. |
15 |
Найти среднее арифметическое чисел, стоящих на нечетных местах и подсчитать количество чисел, меньших заданного С. |
16 |
Вычислить сумму квадратов чисел, не принадлежащих промежутку [Х, У), подсчитать количество отрицательных чисел, стоящих на четных местах. |
17 |
Вычислить сумму квадратов чисел, принадлежащих промежутку (А, В) и стоящих на местах, кратных 4; подсчитать количество нулей во всем массиве. |
18 |
Вычислить произведение чисел, неравных заданному числу Z, и подсчитать количество чисел, стоящих на нечетных местах и принадлежащих промежутку (А, В]. |
19 |
Вычислить сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т. |
20 |
Вычислить сумму квадратов чисел, больших заданного С; подсчитать количество неположительных чисел, стоящих на местах, кратных 4. |
21 |
Вычислить среднее арифметическое чисел, небольших А и стоящих на четных местах; подсчитать количество ненулевых чисел. |
22 |
Вычислить произведение положительных чисел и подсчитать количество чисел, принадлежащих промежутку (А, В) и стоящих на нечетных местах. |
23 |
Вычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В). |
24 |
Вычислить сумму чисел, принадлежащих промежутку [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4. |
25 |
Вычислить сумму квадратов чисел, принадлежащих промежутку (A, B] и стоящих на нечетных местах; подсчитать количество чисел, не меньших заданного С. |
26 |
Вычислить произведение чисел, больших заданного D и стоящих на местах, кратных 3; подсчитать также количество чисел, неравных заданному Х. |
27 |
Подсчитать количество ненулевых чисел, стоящих на нечетных местах, и вычислить среднее арифметическое чисел, меньших заданного Т. |
28 |
Вычислить сумму квадратов чисел, не меньших заданного U и стоящих на местах, кратных 4; подсчитать также количество чисел, равных W. |
29 |
Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C, D). |
30 |
Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M, K]. |