Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Теоретические и практические вопросы дисциплины «Информатика». Учебное пособие
.pdf
131
3.11.2 Двумерные массивы
'Программа для вычисления сумм столбцов массива
1
'Название файла программы: S_Cols.xls
2
'Дата составления программы: 15.10.99
3
'Программист: студент Гадельшин А.З.
4
' Основной блок программы:
5
Dim n As Integer
6
Dim a() As Single
7
Dim i As Integer, j As Integer, s() As Double
8
n=Val(InputBox("Введите порядок матрицы"))
9
Redim a(1 To n,1 to n)
10
Redim s(1 To n)
11
For i = 1 To n
12
For j = 1 To n
13
a( i, j )=Val(InputBox ( "Введите элемент матрицы))
14
Worksheets("Prog36"). Cells (i, j). Value=a( i, j )
15
Next j , i
16
For j = 1 To n
17
s(j) = 0 : For i = 1 To n : s(j) = s(j)+a(i , j) : Next i
18
k= n+1: Worksheets("Prog36").Cells(k, j).Value=s(j)
19
Next j
20
1-4
- шапка программы;
5
- подсказка:
Задача 36. Задана квадратная матрица A, содержащая N строк и N
столбцов (матрица п о р я д к а N).
Элементы массива ввести в окно Windows. Вывести введенные
элементы массива на лист Excel.
Найти сумму элементов каждого столбца заданной матрицы.
Вычисленные результаты записать в одномерный массив S.
Вывести элементы одномерного массива S в виде вектор-строки на
лист Excel внизу матрицы.
Решение:
Переименуем Лист1 в Prog36.
Программная реализация на VBA:
Обсуждение программы:
132
6
- задает целый тип для переменной n;
7
- оператор Dim задает динамический массив с именем a,
одинарной точности;
8
- оператор Dim задает целый тип для переменных i и j
(индексы массива) и определяет одномерный динамический
массив s (имя, размерность массива, тип элементов массива);
9
- ввод порядка матрицы в окно Windows и присваивание
порядка переменной n;
10
- переопределение массива a c указанием нижней и верхней
границы двумерного массива;
11
- переопределение массива s c указанием нижней и верхней
границы одномерного массива;
12
- открывается цикл с параметром i. Первый индекс
двухмерного массива всегда соответствует номеру строки;
13
- открывается цикл с параметром j. Второй индекс двумерного
массива всегда соответствует номеру столбца;
14
- ввод элементов массива с использованием окна Excel;
15
- вывод элементов введенного массива в клетки таблицы
Excel;
16
- конец первого и второго цикла. Внимание! Одним
оператором Next можно закрыть несколько операторов циклa.
Вначале всегда закрывается внутренний цикл;
17
- открытие цикла с параметром j, который задает номер
столбца двумерного массива.
18
- обнуление соответствующего элемента одномерного массива
s для накопления суммы. Открытие цикла с параметром i,
который задает номер строки двумерного массива. Третий
оператор позволяет накопить сумму. Четвертый − закрывает
цикл с параметром i;
19
- переменная k определяет номер строки, в которую выводятся
элементы одномерного массива. Инструкция Worksheets
выводит значения вычисленных сумм в соответствующие
клетки таблицы Excel;
20
- конец цикла с параметром j.
133
После запуска программы на экран выводится окно с
подсказкой: Введите порядок матрицы. Вводится целое
положительное число, например 3 (три строки, три столбца). Затем
появляются окна с подсказкой о вводе каждого элемента массива.
После ввода всех элементов вычисляется сумма каждого столбца
матрицы, которая выводится на лист Excel внизу матрицы.
134
Библиографический список
1. Харитонов, Е.А. Основы программирования для студентов
технологического профиля / Е.А. Харитонов, А.К. Сафиуллина,
М-во образ. и науки России, Казан. нац. исслед. технол. ун-т. −
Казань : Изд-во КНИТУ, 2014. – 152 с.
2. Гадельшина, Г.А. Основы программирования в среде Visual
Basic 6.0: Учебное пособие / Г.А. Гадельшина, А.В. Аксянова,
Аз.М.Гумеров, А.Н.Валеева; Казан. гос. технол. ун-т. Казань,
2005. - 100 с.
3. Макаров, Е.Г. Инженерные расчеты в MathCAD 15.: - Учебный
курс. 2011 - Спб.: Питер, 2011. - 400 c.
4. Алехина, Г.В. Информатика. Базовый курс: учебное пособие /
Под ред. Г.В. Алехиной. – 2-е изд., доп. и перераб. – М.: Маркет
ДС Корпорейшн, 2010. – 731 с.
5. Англо-русский словарь по информационным технологиям /
C. Б. Орлов . – M.: РадиоСофт, 2011. – 640 с.
6. Информатика. Базовый курс / Под ред. С.В. Симоновича - 2-е
изд. – СПб.: Питер,2011. – 639 с.
7. История вычислительной техники [Электронный ресурс]. –
Режим доступа: http://ru.wikipedia.org/wiki/ История_вычисли-
тельной_техники, свободный.
8. История вычислительной техники в лицах [Электронный
ресурс]. – Режим доступа : http://lib.ru/MEMUARY/MALINOW-
SKIJ/0.txt, свободный.
9. Устройство персонального компьютера [Электронный ресурс].
– Режим доступа :
http://sdo.uspi.ru/mathem&inform/lek11/lek_11. htm, свободный.
10. Основные характеристики персонального компьютера:
[Электронный ресурс]. – Режим доступа :
http://txtbooks.ru/informatika/8-klass/95-semakin-8-klass/167-11-8osnovnye-kharakteristiki-personalnogo-kompyutera.html,
свободный.
135
11. Устройство персонального компьютера и его основные
характеристики [Электронный ресурс]. – Режим доступа :
https://www.google.ru/#newwindow=1&q =устройство+ персо-
нального+компьютера+и+его+основные+характеристики,
свободный.
12. Классификация ЭВМ по размеру и стоимости [Электронный
ресурс]. – Режим доступа : http://wiki.mvtom.ru/index.php/Клас-
сификация_ЭВМ, свободный.
136
CОДЕРЖАНИЕ
ВВЕДЕНИЕ ................................................................ 3
1 ОБЩИЕ ВОПРОСЫ ИНФОРМАТИКИ ..................... 3
1.1 Информатика как наука ........................................ 3
1.2 Понятие информации............................................ 5
1.3 Отличительные черты современного комп ь ю т ер а . 6
1.4 Упрощенная классификация компьютеро в п о
размерам и стоимости ................................................ 6
1.5 Краткая история вычислительной т ехники ............ 8
1.6 Устройство персонального к омп ьютера .............. 23
1.7 Периферийные устройства персонального
компьютера.............................................................. 29
2 ОСНОВЫ РАБОТЫ В MATHCAD .......................... 34
2.1 Интерфейс пользователя..................................... 34
2.2 Простейшие вычисления в MathСad .................... 36
2.3 Основные понятия MathСad ............................... 38
Оператор присваивания ......................................................... 40
2.4 Линейные вычислительные процессы ................. 42
Функция пользователя ........................................................... 44
2.5 Разветвляющиеся вычислительные п роцессы ...... 45
2.6 Вычислительные процессы с дискретными
переменными ........................................................... 51
Дискретная переменная .......................................................... 51
Построение графиков в MathCAD ........................................ 53
2.7 Матричные вычисления в MathCAD .................... 58
2.7.1 Элементарные матричные вычисления ............. 59
2.7.2 Использование матри чных операторов
для преобразования матриц и векторов .................... 61
2.7.3 Матричные функции ........................................ 63
3 ОСНОВЫ РАБОТЫ НА VISUAL BASIC FOR
APPLICATIONS ....................................................... 70
3.1 Понятие об алгоритмических языках высокого
уровня ..................................................................... 70
137
3.2 Основные понятия Visual Basic for App l i cat i o n s .. 72
3.3 Основные элементы язык а Visual Basic fo r
Applications ............................................................. 75
Поименованная константа ..................................................... 77
3.4 Линейные вычислительные процессы ................. 78
3.4.1 Операторы и инструкции для разработк и
линейных вычислительных процессов ...................... 78
Оператор Let ............................................................................ 79
Организация вывода данных в активную ячейку и с
помощью инструкции MsgBox ............................................. 80
Оператор Rem ......................................................................... 81
3.4.2 Встроенные фун кции VBA .............................. 84
Функция Abs............................................................................ 85
Функция Exp............................................................................ 85
Функция Sqr ............................................................................ 85
Функция Log............................................................................ 85
Функция Cos ............................................................................ 86
Функция Sin ............................................................................. 86
Функция Tan ............................................................................ 87
Функция Atn ............................................................................ 87
3.4.3 Ввод числовых данных в программу из окна
Windows .................................................................. 89
3.5 Организация безусловного перехода .................. 90
Оператор GoTo ........................................................................ 90
Организация ввода данных из ячеек листа Excel ................ 92
3.6 Процедуры функции ........................................... 95
3.7 Разветвляющиеся вычислительные процессы ...... 97
Оператор If...Then ...Else ........................................................ 97
Организация вывода данных в ячейку Excel.................... 104
Организация ввода данных из ячейки Excel .................... 104
3.8 Циклические вычислительные процессы ........... 107
Оператор For...Next .............................................................. 107
3.9 Типы данных переменных и констант и об ласть
их видимости .......................................................... 108
138
Оператор Dim для явного описания типа данных ............. 109
3.10 Итерационные программы ............................... 116
Оператор While ... Wend ....................................................... 116
Оператор Do ... Loop ............................................................. 117
3.11 Программы для работы с масси вами ............... 126
Оператор Dim для описания переменных и массивов .... 126
3.11.1. Одномерные массивы ................................................... 128
3.11.2 Двумерные массивы ...................................................... 131
Библиографический список ..................................... 134
CОДЕРЖАНИЕ ....................................................... 136
139
УЧЕБНОЕ ИЗДАНИЕ
Евгений Александрович Харитонов
Альфия Курбангалиевна Сафиуллина
ТЕОРЕТИЧЕСКИЕ И ПРАКТИЧЕСКИЕ
ВОПРОСЫ ДИСЦИПЛИНЫ
«ИНФОРМАТИКА»
Ответственный за выпуск доц. С. А. Понкратова
140
Подписано в печать 02.02.2017
Формат 6084 1/16
Бумага офсетная
Печать ризографическая
8,14 усл. печ. л.
8,75 уч.-изд. л.
Тираж 150 экз.
Заказ
Издательство Казанского национального исследовательского
технологического университета
Отпечатано в офсетной лаборатории Казанского национального
исследовательского технологического университета
420015, Казань, К. Маркса, 68
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]