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

UptoLike

2.
В таблице из 20 чисел, лежащих в промежутке от –50 до 50, заменить
все отрицательные числа на их абсолютные значения.
3.
Дан массив действительных чисел Р [1 : N, 1 : M]. Найти сумму зна-
чений элементов ее строк.
Вариант 8
1. Задан одномерный массив А [1 : М], состоящий только из нулей и
единиц. Проверить, строго ли они чередуются.
2.
В массиве А [1 : 25] найти максимальное и минимальное отношения
элементов массива A[i]/A[i + 1].
3.
Даны два двумерных логических массива М1[1 : 3, 1 : 3] и М2[1 : 3, 1 : 3],
(т. е. состоящие из 1, обозначающей истину, и 0, обозначающего ложь). Полу-
чить двумерные массивы К1 [1 : 3, 1 : 3] и К2 [1 : 3, 1 : 3] в результате сле-
дующих действий:
а) K1 [i, j] = M1 [i, j] и M2 [i, j] – через операцию логического умножения;
б) K2 [i, j] = M1 [i, j] или M2 [i, j] через операцию логического сложе-
ния. На печать выдать исходные массивы М1 и М2, массивы К1 и К2, число
единиц в массивах К1 и К2.
Вариант 9
1. Заполнить массив А[1 : 10]; А[1] = 1, А[2] = 2. Каждый следующий
элемент определяется из соотношения A[n] = (A[n – 1] + A[n – 2])/n. Вывести
получившуюся последовательность на экран.
2. Найти среднее значение элементов заданного массива размером M.
Преобразовать исходный массив, вычитая из каждого элемента среднее зна-
чение.
3.
Заполнить прямоугольную таблицу размером в 5 строк и 3 столбца
случайными целыми числами. Предусмотреть вывод этой таблицы на экран и
найти:
а) сумму всех элементов таблицы;
б) сумму тех элементов, которые без остатка делятся на 2;
в) сумму элементов, имеющих нечетную сумму индексов.
Вариант 10
1. Сформировать таблицу значений в соответствии с формулами:
а) A[i] = S + M – i (при четном i); A[i] = C – M – i (при нечетном i);
б) B[i] = S – M – i (при четном i); B[i] = C + M – i (при нечетном i);
в) P[i] = A[i] + B[i],
где i изменяется от 1 до 100; С, М, S – заданные числа.
101
     2. В таблице из 20 чисел, лежащих в промежутке от –50 до 50, заменить
все отрицательные числа на их абсолютные значения.

    3. Дан массив действительных чисел Р [1 : N, 1 : M]. Найти сумму зна-
чений элементов ее строк.

    Вариант 8
    1. Задан одномерный массив А [1 : М], состоящий только из нулей и
единиц. Проверить, строго ли они чередуются.

    2. В массиве А [1 : 25] найти максимальное и минимальное отношения
элементов массива A[i]/A[i + 1].

      3. Даны два двумерных логических массива М1[1 : 3, 1 : 3] и М2[1 : 3, 1 : 3],
(т. е. состоящие из 1, обозначающей истину, и 0, обозначающего ложь). Полу-
чить двумерные массивы К1 [1 : 3, 1 : 3] и К2 [1 : 3, 1 : 3] в результате сле-
дующих действий:
      а) K1 [i, j] = M1 [i, j] и M2 [i, j] – через операцию логического умножения;
      б) K2 [i, j] = M1 [i, j] или M2 [i, j] – через операцию логического сложе-
ния. На печать выдать исходные массивы М1 и М2, массивы К1 и К2, число
единиц в массивах К1 и К2.

    Вариант 9
    1. Заполнить массив А[1 : 10]; А[1] = 1, А[2] = 2. Каждый следующий
элемент определяется из соотношения A[n] = (A[n – 1] + A[n – 2])/n. Вывести
получившуюся последовательность на экран.

    2. Найти среднее значение элементов заданного массива размером M.
Преобразовать исходный массив, вычитая из каждого элемента среднее зна-
чение.

    3. Заполнить прямоугольную таблицу размером в 5 строк и 3 столбца
случайными целыми числами. Предусмотреть вывод этой таблицы на экран и
найти:
    а) сумму всех элементов таблицы;
    б) сумму тех элементов, которые без остатка делятся на 2;
    в) сумму элементов, имеющих нечетную сумму индексов.

      Вариант 10
      1. Сформировать таблицу значений в соответствии с формулами:
      а) A[i] = S + M – i (при четном i); A[i] = C – M – i (при нечетном i);
      б) B[i] = S – M – i (при четном i); B[i] = C + M – i (при нечетном i);
      в) P[i] = A[i] + B[i],
где i изменяется от 1 до 100; С, М, S – заданные числа.

                                       101