7047
.pdfY(I) = -X(I) / MATH.PI() – 1
EndIf
EndIf
2.7.Вывести на экран значения текущих элементов массивов X и Y.
2.8.Закрыть цикл.
3.Запуск программы.
3.1.Построив программу и запустив её, ввести с клавиатуры массив X.
3.2.Выписать результаты в отчёт в виде таблицы:
I |
1 |
2 |
3 |
4 |
5 |
6 |
X |
-6,2 |
-0,8 |
0,3 |
0,5 |
-1,3 |
4,1 |
Y |
-0.9735228 |
-0.7173561 |
0.2955202 |
0.4794255 |
-0.9635582 |
-2.305072 |
ПРАКТИЧЕСКАЯ РАБОТА №5
Тема: Двумерные массивы. Подпрограммы: внешние функции и процедуры. Цель работы: овладеть навыками программирования с использованием двумерных массивов; научиться основам модульного программирования.
Задание
I уровень (варианты №№ 1 - 9 из Перечня вариантов)
1.Составить блок-схему выполнения задания (без подпрограмм).
2.Написать программу в соответствии с блок – схемой.
3.Выполнить программу и получить результаты.
Пример:
Дана матрица A(N,M).
1.Найти наибольший элемент в последней строке матрицы A.
2.Определить массив B(N), элементы которого равны суммам соответствующих строк матрицы A.
3.Определить массив D(M), элементы которого равны суммам соответствующих столбцов матрицы A.
Порядок выполнения работы
1. Входные данные:
(N+1) – количество строк матрицы A, (M+1) – количество столбцов матрицы A,
A(,) – двумерный массив из (N+1)*(M+1) элементов. Выходные данные:
AMAXN - наибольший элемент в последней строке матрицы A, B() - массив, элементы которого равны суммам соответствующих строк матрицы A, D() - массив, элементы которого равны суммам соответствующих столбцов матрицы A.
2. Блок-схема (рис. 5.1)
Р ис. 5.1. Блок – схема программы
3. Текст программы:
ModuleModule1
‘ Заголовок програ ммной секции, относящейся к категории программных модулей
SubMain()
‘ Заголовок програ ммной секции, относящейся к категории головного модуля программы
Dim N, M, I, J As Integer
DimA(,) AsSingle = {{7,-1,2,0},{4,5,-3,1},{- 6,11,8,-4}}
‘Явный способ задания двумерного массива А(,) с вещественными (Single) элементами, значения которым присваиваются после символа = построчно, то есть три строки по 4 элемента в каждой
N = A.GetUpperBound(0)
‘Параметру N присвоено значение верхней границы 1-ой (0) размерности двумерного массива А(,)
M = A.GetUpperBound(1)
‘Параметру M присвоено значение верхней границы 2-ой (1) размерности двумерного массива А(,)
Console.WriteLine("N={0} M={1}", N, M) |
|
|
|
|
‘ Вывод значений параметров N и M |
|
|
|
|
Console.WriteLine("Количество |
строк |
матрицы |
A |
равно |
N+1={0}", N + 1)
Console.WriteLine("Количество столбцов матрицы A равно
M+1={0}", M |
+ 1) |
|
|
|
|
|
‘Количество |
строк |
и |
столбцов |
матрицы |
A |
равны, |
соответственно, N+1 и M+1, так как стандартная нумерация элементов ведется для строк с 0 до N-1, для столбцов – с 0
до M-1.
Dim B(N), D(M) As Single Dim Z As Single
Dim AMAXN As Single
I = 0 : AMAXN = A(N, I)
‘ Параметру AMAXN присваивается начальное значение, равное значению элемента матрицы A(,), расположенному в N-ой строке и 0-ом столбце
For I = 0 To M
If AMAXN < A(N, I) Then AMAXN = A(N, I) Next I
Console.WriteLine("") Console.WriteLine("НАИБОЛЬШИЙЭЛЕМЕНТПОСЛЕДНЕЙСТРОКИ
AMAXN ={0}", AMAXN) Console.WriteLine("")
Console.WriteLine("МАССИВЗНАЧЕНИЙСУММСТРОКМАТРИЦЫ A():") For I = 0 To N
B(I) = 0 For J = 0 To M
B(I) = B(I) + A(I, J)
Next J
Console.WriteLine("B({0})={1}", I, B(I))
Next I
Console.WriteLine("") Console.WriteLine("МАССИВЗНАЧЕНИЙСУММСТОЛБЦОВМАТРИЦЫ A():") For J = 0 To M
D(J) = 0 For I = 0 To N
D(J) = D(J) + A(I, J)
Next I
Console.WriteLine("D({0})={1}", J, D(J))
Next J
Console.ReadLine()
End Sub
‘ Конец текста программы головного модуля
EndModule
‘ Конец программной секции, относящейся к категории программных модулей
4. Результаты работы программы представлены на рис. 5.2.
Рис. 5.2. Скриншот результатов работы программы
Семестр № 2 Практическая работа № 1
Тема: Создание и оформление таблиц
Порядок выполнения работы
1.Введите заголовки колонок таблицы, начиная с ячейки А1. Шапка заголовков будет занимать две строки (см. рис.1.1), при необходимости используйте приемы объединения ячеек.
2.Оформите шапку заголовков таблицы по образцу, настроив ширину столбцов и высоту строк и используя приемы форматирования ячеек (перенос по словам, изменение ориентации текста); выделите текст заголовков полужирным начертанием.
|
|
Произведено |
Реализовано |
.) |
|
Ри |
|
||
|
|
|
с. |
|
|||||
|
|
|
|
|
|
Остаток(шт |
|
|
|
|
|
|
|
|
|
|
1.1 |
|
|
|
Наименование |
(рубЦена.) |
Количеств о шт.)( |
(рубЦена.) |
Количеств о шт.)( |
Сумма |
|
||
Дата |
. |
|
|||||||
|
|
|
|
|
|
||||
изделия |
|
|
|
|
|
выручки |
|
||
|
|
|
|
|
|
3. |
З |
||
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
ап |
|
|
|
|
|
|
|
|
|
|
|
06.01.2005 |
Глушитель |
240 |
480 |
250 |
450 |
|
|
ол |
|
06.01.2005 |
Колесо |
370 |
150 |
380 |
150 |
|
|
ни |
|
06.01.2005 |
Корпус |
95 |
80 |
100 |
20 |
|
|
|
|
|
|
|
|
||||||
10.01.2005 |
Диск |
65 |
60 |
70 |
55 |
|
|
те |
|
10.01.2005 |
Маховик |
90 |
350 |
98 |
300 |
|
|
ст |
|
19.01.2005 |
Фланец |
22 |
400 |
25 |
400 |
|
|
|
|
19.01.2005 |
Опора оси |
185 |
430 |
200 |
380 |
|
|
ол |
|
22.01.2005 |
Болт |
17 |
180 |
18 |
180 |
|
|
|
|
|
|
|
|
||||||
22.01.2005 |
Валик |
28 |
280 |
30 |
260 |
|
|
бе |
|
|
Итого: |
|
|
|
|
|
|
ц |
|
|
|
|
|
|
|
|
|
|
Дата, применяя для повторяющихся данных операцию копирования; установите
формат даты по образцу на рис.1.1.
4.Заполните ячейки таблицы исходными данными (см. рис.1.1).
5.Вставьте левее столбца Датановую колонку и озаглавьте её № п/п.
6.Используя операцию автоматического заполнения блока ячеек таблицы числами, пронумеруйте строки (от 1 до 9) в колонке № п/п.
7.Перед строкой с номером 8 в колонке № п/п, вставьте пустую строку и
заполните её данными 19.01.2005 Труба |
65 |
60 |
60. Соответственно |
исправьте нумерацию строк.
8.Используя операцию «Заменить» исправьте дату 19.01.2005 на 18.01.2005.
9.Вставьте формулы для расчета Остатка и Суммы выручки.
10.Перед столбцом Остаток вставьте колонку % реализованного товара и выполните расчёт по формуле:
произведено
(% реализованного товара)= реализовано .
11.Установите процентный формат для чисел в колонке % реализованного
товара.
12.Округлите числа в колонке % реализованного товара до целых.
13.Обрамите таблицу: внутри тонкой линией, а вокруг двойной.
14.Установите денежный формат для чисел колонок Цена и Сумма
выручки.
15.Вставьте перед таблицей новую строку; введите в ячейку А1 заголовок таблицы Производственная деятельность предприятия и разместите его по центру таблицы.
16.Оформите строчку Итого, рассчитав итоговые суммы.
17.Сравните созданную Вами таблицу с приведённой ниже:
Производственная деятельность предприятия
|
|
|
Произведено |
Реализовано |
|
Остаток (шт.) |
|
|||
|
|
|
|
|
|
|
% |
|
||
|
|
|
Цена (руб.) |
Количество (шт.) |
Цена (руб.) |
Количество (шт.) |
|
|||
№ |
Дата |
Наименование |
реализова |
Сумма |
||||||
п/п |
изделия |
нного |
выручки |
|||||||
|
||||||||||
|
|
|
товара |
|
||||||
|
|
|
|
|
||||||
|
|
|
|
|
|
|
|
|
|
|
1 |
06.01.2005 |
Глушитель |
240,00р. |
480 |
250,00р. |
450 |
94% |
30 |
112500р. |
|
2 |
06.01.2005 |
Колесо |
370,00р. |
150 |
380,00р. |
150 |
100% |
0 |
57000р. |
|
3 |
06.01.2005 |
Корпус |
95,00р. |
100 |
65,00р. |
80 |
80% |
20 |
5200р. |
|
4 |
10.01.2005 |
Диск |
65,00р. |
60 |
70,00р. |
55 |
92% |
5 |
3850р. |
|
5 |
10.01.2005 |
Маховик |
90,00р. |
350 |
98,00р. |
300 |
86% |
50 |
29400р. |
|
6 |
19.01.2005 |
Фланец |
22,00р. |
400 |
25,00р. |
400 |
100% |
0 |
10000р. |
|
7 |
19.01.2005 |
Опора оси |
185,00р. |
430 |
200,00р. |
380 |
88% |
50 |
76000р. |
|
8 |
19.01.2005 |
Труба |
55,00р. |
60 |
65,00р. |
60 |
100% |
0 |
3900р. |
|
9 |
22.01.2005 |
Болт |
17,00р. |
190 |
18,00р. |
180 |
95% |
10 |
3240р. |
|
10 |
22.01.2005 |
Валик |
28,00р. |
280 |
30,00р. |
260 |
93% |
20 |
7800р. |
|
|
|
Итого: |
|
2500 |
|
2315 |
|
180 |
308890р. |
18.Выделите ячейки A1:J14 и скопируйте их на Лист2; выделите Лист1 и
скопируйте его на Лист3. Объясните различия в результатах копирования. 19.Оформите таблицу на Листе2, используя стандартные варианты
оформления таблиц, предлагаемых в автоформате.
20.Скопируйте созданную таблицу на другой лист и отобразите её в режиме формул, назовите лист Формулы.
21. Сохраните результаты работы.