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
Задача Б (четные номера вариантов)
Дана матрица Y [1 : 3, 1 : 4]. Найти отношение суммы положительных
элементов матрицы к общему числу ненулевых элементов. Исходные данные приведены в табл. 16.
Таблица 16
Варианты |
|
|
|
Данные для матрицы Y[1 : 3, 1 : 4] |
|
|
|
|||||
четные |
|
|
|
|
|
|
||||||
|
|
|
|
|
|
|
–1 |
|
|
|
|
|
2 |
0 |
16 |
4 |
12 |
–5 |
30 |
8 |
–3 |
7 |
2 |
0 |
|
4 |
12 |
0 |
10 |
–2 |
9 |
0 |
1 |
0 |
–7 |
0 |
1 |
0 |
6 |
1 |
–40 |
2 |
0 |
8 |
7 |
0 |
–15 |
4 |
10 |
0 |
5 |
8 |
–10 |
–1 |
0 |
–2 |
0 |
5 |
7 |
0 |
9 |
0 |
1 |
1 |
10 |
2 |
8 |
0 |
3 |
9 |
0 |
7 |
11 |
0 |
1 |
0 |
0 |
12 |
8 |
12 |
11 |
–1 |
0 |
0 |
–9 |
0 |
0 |
0 |
15 |
2 |
14 |
10 |
0 |
12 |
0 |
17 |
0 |
–1 |
0 |
7 |
17 |
0 |
4 |
15 |
30 |
1 |
–40 |
1 |
10 |
6 |
–7 |
8 |
–1 |
0 |
4 |
0 |
Литература
1.Алексеев В.Е, Ваулин А.С., Петрова Г.В. Вычислительная техника в инженерных и экономических расчетах. – М.: Высш. шк., 1998.
2.Васюкова Н.Д., Тюляева В.В. Практикум по основам программирова-
ния на языке Паскаль. – М.: Высш. шк., 1991.
3.Зеленяк О.П. Практикум программирования на Turbo Pascal. Задачи,
алгоритмы и решения. – М.: ДиаСофтЮП, 2002.
4.Карасева Т.В. Сборник задач по основам информатики и вычисли-
тельной техники. – М.: Просвещение, 1994.
5.Культин Н. Самоучитель программирования в Turbo Pascal 7.0 и
Delfi. – СПб.: БВХ, 1999.
6.Культин Н.Б. Turbo Pascal в задачах и примерах. – СПб.: БХВ, 2000.
7.Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0. – Киев: Век+, 1999.
8.Моргун А.Н. Решение задач средствами языка Turbo Pascal 7.0. – Ки-
ев: Юниор, 2002.
9.Першиков В.И., Савинков В.М. Толковый словарь по информатике. – М.: Финансы и статистика, 1995.
10.Светозарова Г.И. и др. Практикум по программированию. – М.: Нау-
ка, 1988.
11.Симонович С.В. Информатика: базовый курс. – СПб.: БХВ, 2003.
104
12.Суханов Н.Н. Turbo Pascal 7.0: теория и практика программирования. – СПб.: Наука и техника, 2003.
13.Ускова О.Ф. Программирование на языке Паскаль: Задачник. – СПб.:
Питер, 2002.
14.Информатика: Учебник / Под ред. В.Е. Алексеева. – М.: Высш. шк.,
2001.
15.Информатика: Учебник / Под ред. Н.В. Макровой. – М.: Финансы и статистика, 2001.
16.Фараонов В. Turbo Pascal 7.0. – М.: Нолидж, 2001.
105
Практикум
Портнягина Вера Васильевна Портнягин Николай Николаевич
ПРАКТИКУМ ПО ПРОГРАММИРОВАНИЮ НА ЯЗЫКЕ TURBO PASCAL
Часть 1
2-е издание
Редактор Г.Ф. Майорова Технический редактор Е.Е. Бабух
Компьютерный набор В.В. Портнягина, Н.Н. Портнягин Верстка, оригинал-макет Е.Е. Бабух
Подписано в печать 25.03.2008 г.
Формат 61*86/16. Печать цифровая. Гарнитура Times New Roman
Авт. л. 8,77. Уч.-изд. л. 8,93. Усл. печ. л. 6,67
Тираж 30 экз. Заказ № 46
Издательство Камчатского государственного технического университета
Отпечатано полиграфическим участком издательства КамчатГТУ 683003, г. Петропавловск-Камчатский, ул. Ключевская, 35
106