Семестровая работа 2

VivodF(F3,'F3');

close(F1);

close(F2);

close(F3);

end;

else

writeLn('символ находится вне допустимого диапазона'); end;

end.

ВАРИАНТЫ ЗАДАНИЙ К 1­Й СЕМЕСТРОВОЙ РАБОТЕ ВТОРОГО СЕМЕСТРА. Тема: «Сложно­структурированные типы данных языка

Pascal»

Вариант 1

Ввести символ с клавиатуры.

Если этот символ есть «a», то задать матрицу X5×5 . Найти MIN элемент среди

всех элементов, находящихся над главной диагональю и MAX элемент среди всех элементов, находящихся под побочной диагональю.

Если символ есть «c», то в ранее заданных целочисленных массивах A12 , B14 и C18 найти и отпечатать номера тех элементов, значения которых равны нулю.

Если символ равен «e», то создать файл, состоящий из целых чисел. Переписать в другой файл все положительные элементы первого файла, стоящие на четных местах. Оба файла распечатать.

Вариант 2

Ввести символ с клавиатуры.

Если символ равен «x», то для ранее заданных матриц B5×6 , C2×3 , D4×5 и F3×2 найти наименьший элемент в каждой матрице. Отпечатать Q – наибольший элемент среди найденных наименьших.

Если символ равен «k», то вычислить и напечатать сумму элементов 2-го столбца матрицы C2×3 ; 3-его столбца матрицы D4×5 ; и 1-го столбца матрицы F3×2 .

Если символ есть «p», то создать символьный файл. Переписать первые восемь элементов этого файла в другой файл. Оба файла распечатать.

Вариант 3

Ввести символ с клавиатуры.

Если символ есть «a» или «b», то для целочисленных массивов R5×5 и Q4×4 вычислить S = Sr +Sq , где Sr – сумма отрицательных элементов, расположенных

над главной диагональю массива R5×5 , a Sq – сумма отрицательных элементов, расположенных над главной диагональю массива Q4×4 .

Если символ есть «c» или «d», то найти и напечатать количество нулевых элементов в 4-ой строке и 5-ом столбце матрицы R5×5 ;

Если символ есть «e», то создать и заполнить файл, состоящий из целых чисел. Переписать положительные элементы этого файла подряд во 2-ой, а отрицательные элементы этого же файла в 3-ий файл. Все файлы распечатать.

Вариант 4

Ввести с клавиатуры целое число.

Если число находится в интервале от 1 до 10, то для заданных ранее целочисленных матриц P4×4 , Q5×5 и R3×3 , найти S = Sp Sq Sr , где Sp , Sq и Sr – произведение диагональных элементов этих матриц.

Если число находится в интервале от 20 до 30, то выполнить следующие действия: задать целочисленную матрицу A4×4 . Получить и отпечатать новую матрицу

B4×4 , полученную умножением элементов каждой строки матрицы A4×4 на наибольшее

из значений элементов соответствующей строки этой матрицы;Если число не попадает ни в один из трёх названных интервалов, то создать

целочисленный файл. Вычислить сумму элементов файла, удовлетворяющих условию −3 ≤ ak ≤3 и записать эту сумму в конец файла. Начальный и полученный файлы распечатать.

Вариант 5

Ввести с клавиатуры целое число.

Если число находится в интервале от 50 до 60, то найти произведение MAX и MIN элементов ранее заданного целочисленного массива D14 .

Если число находится в интервале от 70 до 80, то из раннее заданных целочисленных файлов F1 и F 2 переписать положительные элементы в одномерный массив B . Исходный и полученный массивы вывести на экран.

Если число не находится ни в одном из интервалов то, используя подпрограмму, в

заданных целочисленных матрицах P5×4 , Q4×3 и R4×2 найти и отпечатать среднее

арифметическое положительных элементов каждой строки. Вывести все эти значения в файл. Исходные массивы и полученный файл вывести на экран.

Вариант 6

Ввести с клавиатуры целое число.

Если остаток от деления этого числа на 5 равен 1, то преобразовать заданную целочисленную матрицу Z4×4 путем умножения каждого элемента матрицы на

наибольший элемент 3-й строки. Найти S – сумму элементов 4-го столбца преобразованной матрицы.

Если остаток от деления этого числа на 5 равен 3, то создать целочисленный файл F1. Найти среднее арифметическое всех положительных элементов этого файла и переписать первоначальный файл F1 в новый файл F 2 , заменив положительные элементы первого файла на найденное среднее арифметическое. Оба файла выдать на печать.

Если остаток от деления этого числа на 5 равен 4, то в заданных матрицах P3×3 и F5×5 вычислить и напечатать произведение отрицательных элементов, расположенных под главной диагональю.

Вариант 7

Ввести с клавиатуры целое число.

Если остаток от деления этого числа на 6 равен 2, то для заданного целочисленного массива A14 найти количество отрицательных элементов массива. Создать файл, в котором подряд сначала записать отрицательные элементы массива A14 , затем нулевые и положительные элементы этого массива. Распечатать файл.

Если остаток от деления этого числа на 6 равен 4, то используя подпрограмму

вычислить и напечатать X = X f + Xb + Xd , где X f , Xb , X d – среднее

арифметическое положительных элементов ранее заданных массивов F10 , B12 , D14 .Если остаток от деления этого числа на 6 равен 5, то в заданной целочисленной матрице R8×2 напечатать номера тех строк матрицы, оба элемента которой имеют

нулевые значения.

Вариант 8

Ввести символ с клавиатуры.

Если символ находится среди символов «a» до «e», то для ранее заданных двух матриц A3×3 и B4×4 найти Pa и Pb – произведение максимального и минимального

элементов матриц A3×3 и B4×4 . Поиск МАХ и MIN элементов матриц оформить в виде

подпрограммы.

Если символ находится среди символов от «f» до «h», то найти и напечатать k1 − количество положительных элементов среди элементов, расположенных над главной диагональю и k 2 − количество положительных элементов, расположенных под главной диагональю. Если положительных элементов нет, то напечатать "Положительных элементов нет".

Если символ находится среди символов от «g» до «k», то создать файл, состоящий из целых чисел. Преобразовать файл так: возвести в квадрат каждый элемент файла, стоящий на четном месте и в куб каждый элемент файла, стоящий на нечетном месте и переписать полученную последовательность в другой файл. Оба файла распечатать.

Вариант 9

Ввести символ с клавиатуры.

Если этот символ есть буква «a», то для данной целочисленной матрицы A4×5

	найти mA – MIN элемент третьей строки матрицы, sA – среднее арифметическое
	третьего столбца матрицы. Преобразовать матрицу так:
	− если A[i, j] <mA, то A[i, j] = A[i, j] −sA;
	− если A[i, j] >mA, то A[i, j] = A[i, j] +sA.
	Заданную и преобразованную матрицы распечатать.
	Если этот символ есть буква «b», то для заданных массивов F12 и C16 найти и
	напечатать произведение тех элементов, значения которых лежат в промежутке (x, y),
	где x и y – введенные с клавиатуры числа.
	Если этот символ есть буква «e», то создать целочисленный файл, для которого
	найти сумму положительных элементов с нечетными индексами и произведение
	отрицательных элементов с четными индексами. Оба найденных числа записать в
	конец файла. Распечатать первоначальный и преобразованный файлы.

Вариант 10

	Ввести символ с клавиатуры.		от «q»	до «r», вычислить
	Если символ	находится среди символов
	z = a1 y2 +b1 y ,	где y вводится с клавиатуры,	a1 и b1 –	суммы положительных

элементов ранее введенных массивов A12 и B14 .

Если символ находится среди символов от «s» до «t», то для заданной матрицы A6×6 найти наибольший элемент главной диагонали и вывести на печать всю строку и

столбец, в которой он находится.

Если символ находится среди символов от «u» до «v», то создать целочисленный файл, из которого получить новый файл из всех элементов первого файла больших 2,8. Выдать на печать оба файла, и все четные значения преобразованного файла.

Вариант 11

Ввести символ с клавиатуры.

Если символ находится среди символов от «a» до «g», то для заданной матрицы P5×5 найти MIN элемент среди элементов этой матрицы, расположенных над главной

диагональю и МАХ элемент среди элементов, расположенных под главной диагональю.Если символ находится среди символов от «h» до «l», то определить лучшую по среднему баллу группу, если результаты экзаменов двух групп по трем предметам

представлены в виде массивов B3×12 и C3×10 .

Если символ находится среди символов от «m» до «s», то создать файл целых чисел. В другой файл переписать подряд отрицательные элементы первого файла и подсчитать их количество. Первоначальный и полученный файлы выдать на печать.

Вариант 12

Ввести символ с клавиатуры.

Если символ находится среди символов от «a» до «f», то вычислить h – количество положительных элементов последнего столбца заданного массива X 4×4 .

Если символ находится среди символов от «g» до «n», то создать целочисленный файл. Переписать его в другой файл, заменив значения отрицательных элементов квадратами их значений, значения положительных элементов увеличить в три раза, а вместо нулевых значений записать число 5. Напечатать полученный файл.

Если символ находится среди символов от «s» до «z», то в заданных ранее

матрицах A2×2 и B3×3 найти разность между наибольшим и наименьшим элементами матриц.

Вариант 13

Ввести с клавиатуры два целых числа x и y . Определить какой четверти принадлежит точка с координатами ( x , y ).

Если точка принадлежит первой четверти, то в двух ранее заданных массивах C15

и B12 определить сумму элементов с четными индексами и произведение элементов с

нечетными индексами, подсчитать и напечатать количество нулевых элементов и напечатать их номера. Напечатать также искомую сумму и произведение.

Если точка принадлежит третьей четверти, то в заданной матрице R5×5 найти и

напечатать сумму положительных элементов третьей строки и сумму отрицательных элементов пятого столбца.

Если точка принадлежит второй или четвертой четверти, то создать два целочисленных файла. Найти их максимальные элементы и напечатать их.

Вариант 14

Ввести с клавиатуры целое число.

Если число равно «1», то в заданных массивах P10 и Q12 найти:

r1 – отношение произведений отрицательных и положительных элементов массива P ; r2 – отношение произведений отрицательных и положительных элементов массива Q

Если число равно «–1», то в заданной матрице B5×5 найти MIN элемент в каждой

строке и записать его на место первого элемента строки, а первый элемент на место MIN. Начальную и преобразованную матрицу выдать на экран.

Если число равно «–2», то создать целочисленный файл. Вычислить сумму и количество элементов, значение которых больше чем 9,3 и среднее арифметическое элементов, значения которых меньше, чем –3,5.

Вариант 15

Ввести с клавиатуры целое число.

Если число равно «20», то в данных матрицах A4×4 и B5×5 вычислить и

отпечатать среднее арифметическое элементов расположенных под главной диагональю.

Если число равно «–10», то вычислить сумму элементов заданной матрицы D6×6

по столбцам. Найти наименьшую из этих сумм.

Если число равно «–10», то создать файл, состоящий из целых чисел. Найти количество элементов этого файла, больших единицы и количество элементов этого файла, равных нулю. Выдать соответствующие сообщения на печать.

Вариант 16

Ввести с клавиатуры целое число.

Если число находится в интервале от 10 до 20, то в заданном массиве B5×7

преобразовать каждый элемент

массива

так:

B[i, j] = B[i, j] −8.

Если

преобразованный элемент B[i, j] ≥0, то выполнять преобразование дальше. Если нет -

то умножить данный элемент на −1 и продолжить преобразование.

Если

число

находится в

интервале от

–1 до

10, то вычислить

величину

Z = (e

X min

−e

Ymin

) /10 , где X

min

и Y

− минимальные элементы массивов

X

14

и Y .

min

16

Если число находится в интервале от –10 до –20, то создать целочисленный файл. Переписать положительные элементы данного файла во второй файл, а отрицательные– в третий файл. Все файлы распечатать.

Вариант 17

Ввести с клавиатуры целое число.

Если число находится в интервале от 100 до 110, то в матрицах P3×4 , Q4×3 и R4×2

найти и отпечатать k – количество положительных и m – количество отрицательных элементов.

Если число находится в интервале от 120 до 130, то в заданной матрице X3×4

найти наименьший элемент и записать нуль на то место, где он находится. Исходную и преобразованную матрицы вывести на экран в общепринятом виде.

Если число находится в интервале от 150 до 200, то для заданного целочисленного файла найти и напечатать сумму элементов с нечетными индексами и произведение элементов с четными индексами. Исходный файл и найденные значения распечатать.

Вариант 18

Ввести с клавиатуры целое число.

Если число находится в интервале от 100 до 150, то найти минимальное из трех чисел sA , sB , sC где sA – след заданной матрицы A3×3 , sB – след заданной

матрицы B5×5 , sC – след заданной матрицы C4×4 .

Если число находится в интервале от 180 до 200, то в заданной матрице D4×4

найти произведения положительных элементов каждого столбца. Напечатать только те произведения, которые больше 25.

Если число находится в интервале от 200 до 250, то создать целочисленный файл. Переписать в другой файл элементы данного файла в обратном порядке. Оба файла распечатать.

Вариант 19

Ввести с клавиатуры целое число.

Если число находится в интервале от 1 до 10, то в данной матрице P5×5 заменить

нулями все элементы, расположенные на главной диагонали и выше ее. Исходную и полученную матрицы распечатать.

Если число находится в интервале от 50 до 80, то преобразовать заданную матрицу F4×4 путем умножения каждого элемента матрицы на наибольший элемент

третьей строки. Начальную и преобразованную матрицу выдать на печать.

Если число находится в интервале от 80 до 100, то создать целочисленный файл, найти среднее геометрическое положительных элементов этого файла и записать его в конец файла. Исходный полученный файлы выдать на печать.

Вариант 20

Ввести символ с клавиатуры.

Если символ есть «a» или «b», то каждый элемент данной матрицы R3×4

преобразовать по формуле: R[i, j] = R[i, j]2 −15,6 . Вычислить и отпечатать среднее

арифметическое элементов больших 8 преобразованной матрицы. Исходную и преобразованную матрицы вывести на экран.

Если символ есть «d» или «e», то вычислить и напечатать значения выражения :

Z =	1		∑ A2[i]			+	∑ B2 [i]
			10				8
	2
			i=1	a	min		i=1	b
								min

где amin и bmin – минимальные значения заданных массивов A10 и B8 .

Если символ есть «l» или «k», то создать файл, состоящий из целых чисел. Подсчитать сумму положительных элементов этого файла.

Вариант 21

Ввести символ с клавиатуры.

Если символ есть «#» или «$», то для заданных трех матриц A2×2 , B3×3 и C2×2 найти и напечатать длину вектора X{xa , xb , xc} , где xa – сумма элементов матрицы A , xb - сумма элементов матрицы B , xc – сумма элементов матрицы C .

Если символ есть «!» или «^», то найти количество положительных элементов каждой строки заданной целочисленной матрицы R6×5 и записать их в файл. Файл

распечатать.

Если символ есть «+» или «=», то найти минимальный элемент заданного массива Z12 . Если он больше нуля, то напечатать текст: "Наименьший – положительный". Если

он равен нулю или отрицательный напечатать текст: "Наименьший – не положительный".

Вариант 22

Ввести символ с клавиатуры.

Если символ есть «k» или «l», то найти и напечатать Z =a1 y2 +b1 y , где a1 и

b1– суммы положительных элементов третьих столбцов заданных матриц A5×4 и B3×4 , y – вводится с клавиатуры.

Если символы располагаются от «m» до «o», то для числового вектора S10 ,

заполненного числами, найти количество различных чисел в векторе.

Если символ есть «u» или «z», то создать целочисленный файл. Найти среднее арифметическое отрицательных элементов файла. Затем создать другой целочисленный файл, в который переписать все элементы первого файла без изменения, кроме максимального элемента. Исходный и полученный файлы распечатать.

Вариант 23

Ввести символ с клавиатуры.

Если символ есть «a», то для данной матрицы D5×6 переписать положительные

элементы подряд в одномерный массив X , а отрицательные – подряд в массив Y . Найти и напечатать средние арифметические значения массивов X и Y .

Если символ есть «c», то найти сумму максимальных элементов заданных массивов A10 , B12 и C14 .

Если символ есть «x» или «y», то среднее арифметическое массива X равно модулю среднего арифметического массива Y , то создать целочисленный файл. Переписать положительные элементы этого файла в другой файл подряд, а отрицательные – в третий файл подряд. Все три файла вывести на экран.

Вариант 24

Ввести символ с клавиатуры.

Если символ есть «a», то вычислить и отпечатать S – сумму положительных элементов заданной матрицы C5×5 , расположенных над главной диагональю.

Если символ есть «b», то вычислить и отпечатать значения функции y = a1 x +b1 при x изменяющемся от 0 до 1 с шагом 0,1. a1 – след матрицы A3×3 , а

b1 – след матрицы B4×4 (следом матрицы называется сумма элементов главной диагонали).

Если символ есть «e», то создать целочисленный файл. Преобразовать элементы

этого файла по формуле: a =2 a −5 и занести эти значения в другой файл. Оба файла вывести на экран.

Вариант 25

Ввести символ с клавиатуры.

Если символ есть «k», то вычислить суммы элементов матрицы Q5×5 по столбцам.

Выдать на экран наименьшую из сумм.

Если символ есть «x», то найти и вывести на экран минимальное из трех чисел ka , kb и kc , где ka – количество положительных элементов матрицы A4×4 , kb –

количество положительных элементов матрицы B2×2 , kc – количество положительных элементов матрицы C3×3 .

Если символ есть «y», то создать целочисленный файл. Получить из него новый файл, переписав подряд в новый файл элементы первого файла, которые больше двух. Оба файла вывести на экран.

Вариант 26

Ввести символ с клавиатуры.

Если символ есть «x», то найти и отпечатать величину:

W = PP+QQ +RR ,

где P , Q и R есть суммы элементов заданных матриц Ap2×3 , Aq3×5 и Ar3×2 .

Если символ есть «v», то найти наименьшие элементы в каждом столбце матрицы Z4×4 и переписать их в одномерный массив A4 . Массив A4 вывести на экран.

Если символ есть «z», то создать целочисленный файл. Найти среднее арифметическое элементов этого файла, удовлетворяющих условию: −10 ≤ x <9 . Записать его в конец файла. Оба файла вывести на экран.

Вариант 27

Ввести символ с клавиатуры.

Если символ есть «x», то для данной матрицы A5×5 найти и отпечатать S – сумму

всех отрицательных элементов главной диагонали.

Если символ есть «z», то в матрицах P4×5 и Q4×4 найти и отпечатать

максимальные по модулю отрицательные элементы.

Если символ есть «t», то создать целочисленный файл. Преобразовать его так: записать “1” вместо максимального элемента и “–1” вместо минимального. Преобразованный массив записать в другой файл. Оба файла вывести на экран.

Вариант 28

Ввести символ с клавиатуры.

Если символ есть «t», то для данной матрицы Y4×5 найти S – сумму наибольших

значений элементов ее строк.

Если символ есть «f», то вычислить и напечатать величину z при заданных

			массивах, B10 и C7 :		z = x1+ x2 + x3,
10	A[i]		8			7
где X1 = ∑		;	X 2 = ∑	B[i]	;	X 3 = ∑C[i] .
i=1	61		i=1 41			i=1	51

Если символ есть «x», то создать целочисленный файл. Переписать в другой файл положительные элементы первого файла. Выдать на экран каждый второй элемент преобразованного файла.

Вариант 29

Ввести с клавиатуры целое число.

Если число находится в интервале от -200 до -100, то в данной матрице P5×5

заменить нулями все ее элементы, расположенные на главной диагонали и ниже ее. Исходную и полученную матрицы распечатать.

Если число находится в интервале от 0 до 100, то символьный массив A10

заполнить малыми латинскими буквами. Вывести на экран содержимое вектора в обратном порядке.

Если число находится в интервале от 100 до 200, то создать символьный файл. Получить копию последних восьми элементов этого файла в другой файл. Оба файла распечатать.

Вариант 30

Ввести с клавиатуры целое число.

Если число находится в интервале от 0 до 75, то задать матрицу X5×5 . Найти MIN

элемент среди всех элементов, находящихся под главной диагональю и MAX элемент среди всех элементов, находящихся над главной диагональю.

Если число находится в интервале от 151 до 225, то для двух целочисленных векторов A10 и B10 , заполненными числами, в вектор H10 без повторений переписать

числа , содержащиеся одновременно в каждом из векторов A и B .

Если число находится в интервале от 226 до 300, то из целочисленного файла сформировать матрицу по столбцам и вывести её на экран в общепринятом виде.