Индивидуальное задание

Индивидуальное задание № 5

Тема: Создание программ с использованием подпрограмм-функций и подпрограмм-процедур

Цель: практически закрепить навыки по работе с процедурами и функциями в программах на языке TURBO PASCAL

Ход работы

1. Вверху экрана в разных строках по центру выведите текст "Индивидуальное задание № 5" и "Вариант №__";

2. Ниже в левой части выведите текст "Программу составил:". На этой же строке в правой части "студент (ка) гр_______". Ниже под словом "студент (ка)" выведите фамилию и имя;

3. Согласно своего варианта решить задачи по обработке одномерных и двумерных массивов с использованием подпрограмм в разных программах;

4. Программу оформить в цветовой гамме. Цвета подобрать самостоятельно на свой вкус;

Варианты заданий

Номер варианта	Задание 1	Задание 2
1	Дан одномерный массив целых чисел. Посчитать количество отрицательных, нулевых и положительных элементов массива, стоящих на четных местах. Найдите, сколько раз в нем повторяется самое частое число.	Дан целочисленный двумерный массив, размерности nхm. Найти произведение элементов в каждом столбце массива. Вывести номера столбцов, в которых произведение элементов является отрицательным числом.
2	Дан одномерный массив из целых чисел. Заменить все её члены, больше заданного числа z, этим числом. Посчитать количество замен. Подсчитайте количество различных чисел в нем.	Дан целочисленный двумерный массив, размерности nхm. Найти номер строки с наибольшей суммой четных элементов.
3	Дан одномерный массив из целых чисел. Дан массив натуральных чисел. Вывести на печать те числа, у которых остаток от деления на m равен t. Подсчитайте наибольшее число одинаковых идущих подряд в нем чисел.	Дан целочисленный двумерный массив, размерности nхm. Найти в каждом столбце сумму элементов, кратных 3. Определить, в каком столбце эта сумма минимальна.
4	Даны натуральное N и последовательность А1,А2,…,AN. В данной последовательности определите число соседств двух чисел разного знака. Выяснить какое число встречается раньше  положительное или отрицательное.	Дан целочисленный двумерный массив, размерности nхm. Определить, где содержится больше отрицательных элементов, больших -5, на главной или побочной диагонали
5	Проверить есть ли в заданном массиве простые числа. Вывести элементы массива на экран в обратном порядке.	Дан целочисленный двумерный массив, размерности nхm. В строке, обладающей минимальной суммой элементов, заменить все элементы на их квадраты.
6	Дана последовательность целых чисел a1, a2, …, an. Выяснить, будет ли она возрастающей. Поменять в последовательности местами наибольший элемент с номером m.	Дан целочисленный двумерный массив, размерности nхm. Выяснить для каждой строки, какое число встречается раньше - положительное или отрицательное.
7	Дана последовательность A1, A2,…, A10. Получить наибольшее среди A1+A10, A2+A9,…, A5+A6. (Решить задачу для массива размером N). В данной последовательности определить число соседств двух положительных чисел.	Дан целочисленный двумерный массив, размерности nхm. Выяснить, в какой строке последовательность является возрастающей или убывающей.
8	Даны целые числа а1,а2….,аn. Вывести на печать только те числа, для которых выполняется условие ai<=i. Найти произведение чисел, которые больше заданного числа M. Если таких нет, то выдать сообщение об этом.	Дан целочисленный двумерный массив, размерности nхm. Найти номер столбца, в котором содержится наибольшее число элементов, индексы которых являются степенями двойки (1, 2, 4, 8, 16, ...).
9	В одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных. Найти сумму максимума среди чётных и минимума среди нечётных.	Ввести оценки N учеников по K предметам. Определить количество учеников, не получивших ни одной "5". Для таких учеников посчитать средний балл.
10	Подсчитать сколько в январе было дней с температурой ниже, выше и равной средней температуре месяца. Посчитать среднюю температуру в первой и во второй половинах месяца	В группе учится N студентов, студенты получили по четыре оценки за экзамены. Определить количество неуспевающих студентов и средний балл группы.
11	Подсчитать сколько было в ноябре дней с температурой ниже, выше и равной 0. Найдите среднее значение температуры в ноябре, отбросив максимальную и минимальную температуры.	Дана прямоугольная матрица размерности nхm. Сформировать одномерный массив, в который занести только первые (сверху вниз ) отрицательные элементы каждого столбца матрицы. Если таких элементов нет, то вывести соответствующее сообщение.
12	Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности. Найти минимальное среди чисел, расположенных на четных позициях некоторой последовательности.	Дана прямоугольная матрица размерности nхm. Сформировать одномерный массив, в который занести только последние отрицательные элементы каждой строки матрицы. Если таких элементов нет, то вывести соответствующее сообщение
13	В данном одномерном массиве найти количество положительных, отрицательных и нулевых элементов, имеющих номера позиций кратные трем. Определите номер первого элемента, равного X, в первой и во второй половине массива A (массив имеет чётное число элементов - с помощью одной подпрограммы).	Дана прямоугольная матрица размерности nхm. Сформировать два одномерных массива: в первый занести количество положительных элементов в каждом столбце; во второй – количество отрицательных элементов в каждом столбце матрицы.
14	Оценки, полученные спортсменом в соревнованиях по фигурному катанию (в баллах), хранятся в массиве из 18 элементов. В первых шести элементах записаны оценки по обязательной программе; седьмом, ..., двенадцатом — по короткой программе; в остальных — по произвольной программе. Выяснить, по какому виду программы спортсмен показал лучший результат.	Дана прямоугольная матрица размерности nхm. Сформировать вектор В, где: B[i]=1, если элементы i строки составляют строго возрастающую последовательность; B[i]=0 если элементы i строки не составляют строго возрастающую последовательность.
15	Дан массив целых чисел. Выяснить: а) верно ли, что сумма элементов массива есть четное число; б) верно ли, что сумма квадратов элементов массива есть пятизначное число.	Дана прямоугольная матрица размерности nхm. Сформировать вектор В, где: B[i] – это количество элементов в i–том столбце, равных заданному значению.
16	В массиве хранится информация о численности учеников в каждом из классов школы. Выяснить, верно ли, что общее число учеников в школе есть четырехзначное число.	Дана прямоугольная матрица размерности nхm. Сформировать вектор В, где: B[i]=1, если элементы i столбца составляют убывающую последовательность; B[i]=0 если элементы i столбца не составляют убывающую последовательность.
17	В массиве хранится информация о численности книг в каждом из N разделов библиотеки. Выяснить, верно ли, что общее число книг в библиотеке есть шестизначное число.	Дана прямоугольная матрица размерности nхm и заданное значение. Составить и вывести новый одномерный массив, в который занести произведение I*J элементов исходной матрицы, равных заданному значению (I, J – номера строки и столбца).
18	Дан целочисленный одномерный массив. Вывести на экран элементы, которые являются квадратами какого-либо числа.	Дана прямоугольная матрица размерности nхm. Сформировать вектор В, где: B[i] – это процент нулевых элементов в i–том столбце матрицы.
19	Найти число пар соседних элементов одномерного массива, оканчивающихся нулем. Найти число элементов массива, которые больше своих "соседей", т. е. предшествующего и последующего.	Дана прямоугольная матрица размерности nхm. Сформировать вектор В, где: B[i]=1, если сумма положительных элементов в i-том столбце больше модуля сумы отрицательных элементов в этом столбце и B[i]=0 - если нет.
20	Дан одномерный массив. Поменять местами: а) его половины; б) его половины следующим способом: первый элемент поменять с последним, второй — с предпоследним и т. д.	Дана прямоугольная матрица размерности nхm. Сформировать одномерный массив, в который занести номера тех строк, в которых есть одинаковые элементы. Если таких строк нет, то вывести соответствующее сообщение
21	Дан одномерный массив из N элементов. Переставить в обратном порядке элементы, расположенные между k-м и s-м элементами (т. е. с (k + 1)-го по (s – 1)-й). Значения k и s вводятся с клавиатуры. Проверить, что k < s	Дана прямоугольная матрица "A" размерности nхm. Переписать элементы каждого столбца матрицы "A" в обратном порядке на том же месте (перевернуть каждый столбец матрицы "A" без использования дополнительного массива)
22	Дан одномерный массив из N элементов. Переставить в обратном порядке элементы, расположенные между максимальным и минимальным элементами, включая их.	Дана квадратная матрица. Поменять местами элементы, находящиеся на двух диагоналях, параллельных главной.
23	Поменять местами первый отрицательный и последний положительный элементы одномерного массива. Учесть возможность того, что отрицательных или положительных элементов в массиве может не быть.	Дана квадратная матрица. Поменять местами элементы, находящиеся на двух диагоналях, параллельных побочной
24	Дан одномерный массив из N элементов. Переставить первые пять и последние пять элементов, сохранив порядок их следования.	Дана квадратная матрица. Произвести циклический сдвиг элементов каждого столбца матрицы на один элемент вправо.
25	Найти число пар соседних элементов одномерного массива, являющихся четными числами. Вывести на экран эти пары. Если таковых нет, вывести соответствующее сообщение.	Дана прямоугольная матрица. Сформировать новый одномерный массив, в который занести элементы, кратные семи и расположенные на соседних двух диагоналях, параллельных главной. Если таких элементов нет, то вывести соответствующее сообщение.