Читайте также:
|
|
Постановка задачи:
Вычислить сумму эл. квадратной матрицы С размерности m×n, располож. на ее главной диагонали
С=
Входные данные:m,с – целый тип
Выходные данные: S – целый тип
Математическое описание:
S= , , Cij, если i=j
Схема алгоритма:
|
|
Ход программы
Privat Sub Command 1_ Click()
Dim m As Integer, I As Integer
Dim c() As Integer, S As Integer
m= inputbox (“m=”)
ReDim c(m<m)
For i=1 to m
For j = 1 to m
c(i,j) = inputbox (“c(“&i&”,”&j&”)=”)
Next j
Next i
S=0
For i=1 to m
S=S+c(i,j)
Next
Mcg Box “S=”&S
End Sub
Пример 2
Вычислить произведение элементов матрицы А разм. m×n, имеющих чет. знач. индексов строк
Входные данные: m-переменная целого типа
n-переменная целого типа
Выходные данные: p- вещ. число
Математическая модель
i=i+2
Алгоритм:
|
|
|
Код программы
Privat Sub Command 1_ Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer
Dim p As Single, a() As Single
m= inputbox (“введите количество строк”)
n= inputbox (“введите количество столбцов”)
ReDim a(m,n)
For i=1 to m
For j = 1 to n
a(i,j) = inputbox (“a(“&i&”,”&j&”)=”)
Next
p=1
For i=2 to m step 2
For j = 1 to n
p=p*aij
Next
Next
Print “произведение элементов матрицы, имеющих чет. знач. инд. строк=”&p
Print”для матрицы”
For j=1 to n
Print Format (a(i,j), “0.00”)
Next
Next
End Sub
26. Производная алгоритмическая структура ЗАПОЛНЕНИЕ. Примеры.
Заполнение:
· Формирование
· Пересчет
· Выборка
1. Формирование - формирует в памяти ЭВМ новый массив, у которого значения элементов определяются по установленным правилам
2. Пересчет – пересчитывает по установленным зависимостям значения ранее записанные в памяти ЭВМ элементов массива на нов. их знач.
3. Выборка – выбирает из памяти ЭВМ по определенным правилам элементы одного или неск. массивов.
· Формирование
Используется для заполнения вычисл. среды конкретного значения в соответствии с заданными математическими зависимостями
Особенности алгоритма:
1. Вводится только размерность массива, а значения массива формируется в соответствии с зад. правилом заполнения
2. В зависимости от размерности массива организуется простой циклический процесс (одномерный массив) или цикл в цикле (двумер. массив)
Телом цикла служит правило заполнения, в соответствии с которым формируется значение массива.
3. Значения элементов массива хранятся в памяти. Для визуального анализа значений элементов массива их требуется вывести на экран монитора или печатающее устройство.
Пример 1.
Заполнить в памяти комп. единичную матрицу произвольной размерности m×n/
Входные данные: m – целое число
Выходные данные: матрица Е= -массив целых чисел
j=1,m i=1,m
Математическая модель:
eij= j=1,m i=1,m
Схема алгоритма:
|
|
|
Код приложения:
Dim m As Integer, i As Integer, j As Integer, e() As Byte
m=Inputbox (“Введите размерность массива m”)
Re Dim e(m,m)
For i = 1 To m
For j = 1 To m
If i=j Then
e(i,j)=1
Else
e(i,j)=0
End if
Next
Next
“Вывод значений элементов матрицы на форму Print”Значение элементов матрицы Е:”
For i= 1 To m
Print
For j = 1 To m
Print e(i,j);
Next
Next
End Sub
· Пересчет
Используется для изменения значений элементов массива, в соответствии с заданной математической зависимостью.
Пример 1.
Уменьшить значения элементов массива в К раз (К произвольной размерности m×n. Новый массив не заполняется.
Входные данные:
А= -массив вещ. чисел
К-целое число, m-целое число
Выходные данные:
А= -пересчит. массив вещ. чисел
Мат. модель:
для i=1….m, ai=ai/K K
|
|
|
Код:
Private Sub Command1_Click()
Dim m As Integer, k As Integer, i As Integer
Dim a() As Single
m=InputBox(“Введите размерность массива”)
ReDim a(1 To m)
Print “Введите значения элементов массива”
For i= 1 To m
a(i)=InputBox(“a(“&i&”)”)
Next
Print”Исходный массив”
For i=1 To m
Print”a(“&i&”)=”&Format(a(i),”0.00”)
Next
k=InputBox(“Введите значение k”)
If k=0 Then
Print “На ноль делить нельзя”
Else
For i=1 To m
a(i)=a(i)/k
Next
Print Chr(10);”Результирующий массив”
For i=1 To m
Print Format(a(i),”0.00”)
End If
End Sub
· Выборка
Эта структура предназначена для формирования массива в соответствии с заданным условием
Особенности алгоритма:
1. При разработке алгоритма могут использоваться ранее рассмотренные производные алгоритмические структуры
2. Массив, из которого осуществляется выборка, хранится в оперативной памяти
27. Производная алгоритмическая структура ПОИСК.
Используется для нахождения местоположения элементов в массиве или их знач. в соответствии с условием поиска.
1. Поиск максимума - нах. макс. значения элемента матем. функции, либо макс. знач. и индексы элемента массива
2. Поиск Минимума - находит мин. знач. аналогичных элементов и их показ.
3. Поиск по ключу – наз. значения таких элементов матем. функции или индексов таких элементов массива, которые равны заданной величине, называемой ключом поиска
Поиск максимума
Особенности алгоритма:
1. Создается дополнительная переменная, в которой будет формироваться значение максимального элемента. Начальным значением может быть 1-й элемент массива (либо очень малое целое число, например )
2. Если необходимо, создается переменная для хранения индексов, определяющих местоположение максимального элемента в массиве. Их значение задается индексом начального элемента
3. Организуется циклич. процесс, телом которого служит структура «Развилка» с одной ветвью.
4. Если очередной элемент массива превышает значение, хранящееся в дополнительной переменной, то он замещает это значение. В противоположном случае перех. к следующему элементу массива без изменения доп. переменной. Тоже касается и индексов элемента.
Пример 1.
Разработать алгоритм программы нахождения макс. элемента вектора А размерности n и его пор. номер
Входные данные:
n-размерность вектора, целое число
А-вектор, массив веществ. чисел
Вых. данные:
М-макс. эл. вещ. число
К-размер. макс. элемента, целое
Съема алгоритма:
|
|
|
|
Код:
Private Sub Command1_Click()
Dim n As Integer, i As Integer, k As Integer
Dim A() As Single, M As Single
n=InputBox(“n=”)
Re Dim A (1 To n)
For i= 1 To n
A(i)=InputBox(“A(“&i&”)=”)
Print A(i)
Next
M=A(1)
K=1
For i=2 To n
If A(i)=M Then
M=A(i)
K=i
End if
Next
Print M,K
End Sub
Поиск минимума.
Разраб. нах. минимального элемента в каждом столбце матрицы А размерности m×n. Каждое из них поменять местами с первым элементом этого столбца
Входные данные: m,n,A
Выходные данные: Матрицы А до перераб. и после
|
|
|
Код:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim A() As Single, B() As Single, Min As Single
n=InputBox(“введите размерность векторов”)
Re Dim A (n)
Re Dim B (n)
Print “Вектор А”
For i=1 To n
A(i)=InputBox(“Введите эл. вектора А”)
Print A
Next
Print
Print“Вектор B”
For i=1 To n
B(i)=InputBox(“Введите эл. вектора B”)
Print B(i);
Next
Min=A(1)
For i=1 To n
if A(i)<Min Then
Min=A(i)
End if
if B(i)<Min Then
Min=B(i)
End if
Next
Print “Мин. эл. Min=”&Min
End Sub
28. Производная алгоритмическая структура Поиск по ключу.
Используется для поиска местоположения элементов массива в соответствии с условием поиска. Организовывается цикл. процесс телом которого является «Развилка»
Если истинно, то это удовлетворяет поиску
Значение выводится
Если поиск не дал результатов
Для этого ввод. понятие «Флажок»-переменная лог. типа “False”,=>(найд. “True”)
Пример 1.
Дан вектор В размерности Х. Напечатать индексы элементов, знач которых нах-ся в интервале
Вход. данные: В= – массив вещ. чисел
Х - pазм., целое
N-начало интерв., вещ.
К-конец интерв., вещ.
Вых. данные:
i-индексы иск. эл-ов, целые числа
Схема:
|
Код:
Private Sub Command1_Click()
Dim x As Integer, i As Integer,
B() As Single,
Dim M As Single, K As Single, flag As boolean
X=InputBox(“введите размерность векторa”)
Re Dim B (x)
For i=1 To x
B(i)=InputBox(“B(“&i&”=”)
Print B(i);
Next
N=InputBox(‘Введ. нач интервал’)
K= InputBox(‘введ. конеч. интервал’)
flag=false
Print”Индексы эл-ов, вход. в зад. инт”
For i=1 To x
if B(i)>=N and B(i)<=K Then
Flaf=true
Print i
End if
Next
if flag=false then
Print
End If
End Sub
29. Основные понятия и определения (Базы данных, Банк данных, Хранилище данных, СУБД, Информационные системы, данные, информация)
База данных представляет собой совокупность спец. образом организованных данных, хранящихся в памяти вычисл. системы и отображающих состояние объектов и их взаимосвязей в рассматриваемой предметной области.
Банк данных является разновидностью ИС, в которой реализ. функции централизированного хранения и накопления в одну или неск. без данных.
Информационные системы. Обр. инф лежит в основе решения лин. задач.
Хранилище данных - предметно-ориентированная информационная база данных, специально разработанная и предназначенная для подготовки отчётов и бизнес-анализа с целью поддержки принятия решений в организации.
Информация - сведения явлениях, процессах, событиях реального мира независимо от их представления.
Система управления базами данных (СУБД) — комплекс языковых и программных средств, предназначенный для создания ведения и совместного использования БД многими пользователями.
.
30. Модели представления данных. Примеры.
· Иерархическая
· Сетевая
· Реляционная
· Постреляционная
· Многомерная
· Объектно-ориентированная
Дата добавления: 2015-01-30; просмотров: 27 | Поможем написать вашу работу | Нарушение авторских прав |