Программа
Program z2;
Var a, b, x, y: Real;
Begin
Writeln (’ Введите x, a и b ’ ); Readln (x, a, b);
If x > b Then y:=abs(sin(x))+1
Else If x >= a Then y:=sqr(cos(x))+2
Else y:=cos(sqr(x))/sin(sqr(x));
Writeln( ’y=’,y)
End.
Задание 4. Организация циклов
Составить схему алгоритма и программу циклического вычислительного процесса. Варианты задачи приведены в табл. 3. Для организации цикла использовать оператор, указанный в задании. Значения исходных данных выбрать самостоятельно.
Задания к задаче 4
Индексацию элементов заданного массива начать с 0. Для перебора элементов массива использовать оператор While.
Индексацию элементов заданного массива начать с 1. Для перебора элементов массива использовать оператор For.
Индексацию элементов заданного массива начать с 2. Для перебора элементов массива использовать оператор For.
Индексацию элементов заданного массива начать с –5. Для перебора элементов массива использовать оператор Repeat.
Индексацию элементов заданного массива начать с –3. Для перебора элементов массива использовать оператор While.
Индексацию элементов заданного массива начать с 0. Для перебора элементов массива использовать оператор For.
Индексацию элементов заданного массива начать с 10. Для перебора элементов массива использовать оператор Repeat.
Индексацию элементов заданного массива начать с 20. Для перебора элементов массива использовать оператор For.
Индексацию элементов заданного массива начать с 0. Для перебора элементов массива использовать оператор For.
Индексацию элементов заданного массива начать с 15. Для перебора элементов массива использовать оператор Repeat.
Таблица 3
|
Номер варианта |
Вариант |
|
1 |
2 |
|
0 |
Дан массив В, содержащий 12 элементов целого типа, образуют ли 8 последних элементов этого массива возрастающую последовательность? Если нет – вывести индекс элемента, на котором она заканчивается. |
|
1 |
Дан массив К1, содержащий 10 элементов вещественного типа – положительных, отрицательных и равных нулю. Сосчитать количество нулевых элементов массива и записать их индексы в массиве IND. |
|
2 |
Дан массив М, содержащий 15 элементов вещественного типа. Определить, сколько из них больше своих «соседей» по ряду. |
|
3 |
Дан массив А, содержащий 10 элементов вещественного типа, в котором первые k элементов имеют один знак, а остальные – другой. Определить индекс элемента массива, у которого знак сменился на противоположный. Найти сумму элементов массива, начиная с k+1-го. |
|
4 |
Дан массив LL, содержащий 12 элементов вещественного типа – положительных, отрицательных и равных нулю. Сосчитать количество ненулевых элементов массива и сформировать из них новый массив. Найти модуль сумы элементов нового массива. |
|
5 |
Дан массив В, содержащий 12 положительных и отрицательных элементов. Среди отрицательных элементов массива найти минимальный. Определить его индекс. |
|
6 |
Дан массив AS, содержащий 20 элементов целого типа. Посчитать количество нулевых элементов. Из ненулевых элементов сформировать массив А и найти произведение модулей его элементов. |
|
7 |
Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив С из положительных элементов массива MAS , имеющих четный индекс. Найти сумму квадратов элементов нового массива. |
|
8 |
Дан массив, содержащий 15 элементов вещественного типа – положительных и отрицательных. Из отрицательных элементов данного массива сформировать новый массив и найти среднее геометрическое модулей его элементов. |
|
9 |
Дан массив М вещественного типа, содержащий отрицательные, положительные элементы и элементы, равные нулю. Из положительных элементов массива М, имеющих нечетный индекс сформировать новый массив и вычислить среднее арифметическое его элементов. |
Методические
указания к выполнению задания 4
Перед выполнением следует изучить разделы 3.8 – 3.9, затем разработать алгоритм задачи, затем составить программу.