Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 103 стр.

UptoLike

3.
Из массива А[1 : М, 1 : М] сформировать одномерный массив В,
«развернув» его по столбцам (по строкам).
Вариант 15
1. Ввести таблицу оценок за контрольную работу по геометрии. Найти
среднее арифметическое оценок. Найти среднее геометрическое. Какое зна-
чение больше?
2. Вычислить сумму и разность двух заданных одномерных массивов
размером 5. Результат напечатать в виде двух параллельных столбцов.
3. Просуммировать элементы столбцов заданной матрицы размером A
[1 : N, 1 : M]. Результат получить в одномерном массиве размером 3.
Вариант16
1. Заданы значения А, В, С и массив М[1 : 15]. Построить алгоритм, ко-
торый по вводимому коду операции К, принимающему значения 1, 2, 3, вы-
полняет следующие действия:
а) увеличивает значения элементов массива на А при К = 1;
б) уменьшает значения элементов массива на В при К = 2;
в) печатает индексы элементов, которые равны С при К = 3.
2.
Найти среднее значение элементов заданного массива размером 5. Пре-
образовать исходный массив, вычитая из каждого элемента среднее значение.
3.
Просуммировать элементы строк матрицы B[1 : 4, 1 : 3]. Результат
получить в одномерном массиве размером 4.
Задания. Часть 2
Задача А
(нечетные номера вариантов)
Составить программу вывода на экран дисплея элементов матрицы
X [1 : 3, 1 : 4], сумма индексов которой равна заданной константе К. Исход-
ные данные приведены в табл. 15.
Таблица 15
Варианты
нечетные
Данные для матрицы X[1:3,1:4] К
1 0 12 –8 2 5 7 0 0 –5 –2 –2 18 5
3 16 0 9 2 –11 –3 –1 7 12 –4 9 15 2
5 4 10 –2 15 0 0 –5 –2 18 1 0 14 3
7 12 –3 10 –10 8 17 0 14 –6 2 0 8 3
9 –5 –8 –3 –7 10 3 9 30 40 5 0 8 3
11 30 –16 10 0 9 2 15 4 –7 –17 11 9 5
13 8 7 12 10 –40 3 0 –1 11 14 0 10 1
15 –1 99 10 2 5 7 9 –40 1 12 11 0 3
103
    3. Из массива А[1 : М, 1 : М] сформировать одномерный массив В,
«развернув» его по столбцам (по строкам).

    Вариант 15
    1. Ввести таблицу оценок за контрольную работу по геометрии. Найти
среднее арифметическое оценок. Найти среднее геометрическое. Какое зна-
чение больше?

    2. Вычислить сумму и разность двух заданных одномерных массивов
размером 5. Результат напечатать в виде двух параллельных столбцов.

      3. Просуммировать элементы столбцов заданной матрицы размером A
[1 : N, 1 : M]. Результат получить в одномерном массиве размером 3.

    Вариант16
    1. Заданы значения А, В, С и массив М[1 : 15]. Построить алгоритм, ко-
торый по вводимому коду операции К, принимающему значения 1, 2, 3, вы-
полняет следующие действия:
    а) увеличивает значения элементов массива на А при К = 1;
    б) уменьшает значения элементов массива на В при К = 2;
    в) печатает индексы элементов, которые равны С при К = 3.

    2. Найти среднее значение элементов заданного массива размером 5. Пре-
образовать исходный массив, вычитая из каждого элемента среднее значение.
    3. Просуммировать элементы строк матрицы B[1 : 4, 1 : 3]. Результат
получить в одномерном массиве размером 4.


                              Задания. Часть 2

    Задача А (нечетные номера вариантов)
    Составить программу вывода на экран дисплея элементов матрицы
X [1 : 3, 1 : 4], сумма индексов которой равна заданной константе К. Исход-
ные данные приведены в табл. 15.

                                                                         Таблица 15

 Варианты
                             Данные для матрицы X[1:3,1:4]                     К
 нечетные
     1       0    12   –8    2      5     7    0    0    –5    –2   –2    18    5
     3      16     0    9    2    –11    –3   –1    7    12    –4    9    15    2
     5       4    10   –2   15      0     0   –5   –2    18     1    0    14    3
     7      12    –3   10   –10     8    17    0   14    –6     2    0     8    3
     9      –5    –8   –3    –7    10     3    9   30    40     5    0     8    3
    11      30   –16   10    0     9     2    15    4    –7   –17   11     9    5
    13       8     7   12    10   –40     3    0    –1   11    14    0    10    1
    15      –1    99   10    2      5     7    9   –40    1    12   11     0    3
                                        103