4.2 Задания и контрольные вопросы

В массиве А(10) определить количество и сумму отрицательных элементов с 5 по 10 элементы. Минимум и его позицию.

В массиве А(10) определить сумму и количество положительных элементов с 3 по 8 элементы. Максимум и его позицию.

В массиве А(10) определить количество отрицательных и положительных элементов с 4 по 9 элементы. Минимум и его позицию.

В массиве А(10) определить количество отрицательных элементов с 2 по 7 элементы. Минимум и его позицию.

В массиве А(10) определить количество отрицательных четных элементов с 5 по 10 элементы. Среднее положительных элементов.

В массиве А(10) определить количество положительных нечетных элементов с 3 по 8 элементы. Максимум и его позицию.

В массиве А(10) определить количество отрицательных элементов с 4 по 9 элементы. Среднее элементов более 3.

В массиве А(10) определить количество элементов больших 2 с 5 по 10 элементы массива. Среднее положительных элементов.

В массиве А(10) определить количество и сумму элементов меньших 5 с 2 по 7 элементы массива. Минимум и его позицию.

В массиве А(10) определить количество отрицательных четных элементов с 3 по 8 элементы. Максимум и его позицию.

В массиве В(10) определить количество отрицательных нечетных элементов с 5 по 10 элементы. Среднее значение элементов.

В массиве В(10) определить количество и сумму отрицательных элементов с 5 по 10 элементы. Среднее отрицательных элементов.

В массиве В(10) определить сумму и количество положительных элементов с 3 по 8 элементы. Разность максимума и минимума.

В массиве В(10) определить количество положительных элементов с 4 по 9 элементы. Среднее положительных элементов.

В массиве В(10) определить количество отрицательных элементов с 2 по 7 элементы. Среднее значение элементов.

В массиве В(10) определить количество отрицательных четных элементов с 5 по 10 элементы. Сумму минимума и максимума.

В массиве В(10) определить количество положительных нечетных элементов с 3 по 8 элементы. Разность максимума и минимума.

В массиве В(10) определить количество отрицательных элементов с 4 по 9 элементы. Среднее отрицательных элементов.

В массиве В(10) определить количество элементов больших 2 с 5 по 10 элементы массива. Среднее значение элементов.

В массиве В(10) определить количество и сумму элементов меньших 5 с 2 по 7 элементы массива. Сумму минимума и максимума.

В массиве В(10) определить количество отрицательных четных элементов с 3 по 8 элементы. Среднее отрицательных элементов.

В массиве В(10) определить количество отрицательных нечетных элементов с 5 по 10 элементы. Среднее максимума и минимума.

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

1. Что называется циклом?

2. К какому типу данных должен быть отнесен счетчик цикла For?

3. Какие виды циклов существуют в Pascal?

4. Дайте сравнительную характеристику циклов For - to и For - downto.

5. Что представляет собой цикл While?

6. Как осуществляется накапливание суммы или произведения?

5 Лабораторная работа 5. Применение циклических алгоритмов

5.1 Применение циклов

Циклы часто применяются для всевозможных расчетов.

На рисунке 5.1 показан график функции. Аргумент Х здесь меняется от -1 до 5,2 с шагом 0,2. Для каждого значения Х вычислены значения функции.

Рисунок 5.1 – График функции

Стандартные задачи обычно включают такие вычисления:

- найти все значения функции;

- найти при каких значениях Х наблюдается максимум и минимум функции;

- амплитуду функции (разность между максимумом и минимумом);

- среднее значение функции на каком-то отрезке Х;

- интеграл функции на заданном отрезке Х;

- сумму значений функции в заданном диапазоне.

Поскольку значения аргумента обычно дробное, то удобно применять цикл While. Ниже приведена программа по расчету функции в диапазоне Х от -0.4 до 2. В программе вычислены: значение Х, при котором наблюдается максимум функции, интеграл для положительных значений Y и среднее значение положительных Y.

Program funkstiya; Uses Crt;

Var x, y, a, b, shag, max, integral, sred, X_max, sum: real;

k: integer;

begin clrscr; sum:=0; integral:=0; k:=0; a:=-0.4; b:=2; shag:=0.2; x:=a;

max:=-100000; min:=100000;

Writeln; Writeln (' Funkstiya Y=2SinXSinX+XX/15-1');

While (x<=(b+shag/2)) do

begin

Y:=2*sqr(Sin(x))+x*x/15-1;

Writeln(' X:=',x:4:1,' Y=',Y:4:2);

If (max< y) then begin max:=Y; X_max:=X; end;

if (Y>0) then begin Sum:=sum+y; k:=k+1; end;

if (Y>0) then integral:=integral+shag*y;

x:=x+shag;

end;

Writeln(' Kol_vo polozh. y=', k);

Writeln(' Srednee polozh. Y=', (sum/k):4:2);

Writeln(' Max=', max:5:2,' pri X=', X_max:5:2);

Writeln(' Integral=', integral:8:5);

end.

Пояснения к программе В условии выполнения цикла While (x<=(b+shag/2)) значение переменной b увеличено, чтобы Х захватил значение b=2. Если так не сделать, то Х=2 может не попасть в цикл из-за приближенного значения переменных типа Real и накапливания ошибки при вычислении Х. Назначение переменных ясно из их названий. На рисунке 5.2 приведен результат работы программы. По выводимым значениям легко проверить правильность работы программы

Рисунок 5.2 – Результат расчетов