Пример 1. Вычислить сумму эл. квадратной матрицы С размерности m×n, располож

Постановка задачи:

Вычислить сумму эл. квадратной матрицы С размерности m×n, располож. на ее главной диагонали

С=

Входные данные:m,с – целый тип

Выходные данные: S – целый тип

Математическое описание:

S= , , Cij, если i=j

Схема алгоритма:

S=0

i=i+1

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

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

Алгоритм:

p=1

j=j+1

p=p*aij

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

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

Схема алгоритма:

i=1

eij=0

i=i+1

Код приложения:

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

i=1

	аi=ai/K		i=i+1

Код:

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-размерность вектора, целое число

А-вектор, массив веществ. чисел

Вых. данные:

М-макс. эл. вещ. число

К-размер. макс. элемента, целое

Съема алгоритма:

i=2

	M=ai		K=i		i=i+1

Код:

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

Print

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

Выходные данные: Матрицы А до перераб. и после

i=i+1

Min=bi

Min=ai

Код:

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

Print “Мин. эл. Min=”&Min

End Sub

28. Производная алгоритмическая структура Поиск по ключу.

Используется для поиска местоположения элементов массива в соответствии с условием поиска. Организовывается цикл. процесс телом которого является «Развилка»

Если истинно, то это удовлетворяет поиску

Значение выводится

Если поиск не дал результатов

Для этого ввод. понятие «Флажок»-переменная лог. типа “False”,=>(найд. “True”)

Пример 1.

Дан вектор В размерности Х. Напечатать индексы элементов, знач которых нах-ся в интервале

Вход. данные: В= – массив вещ. чисел

Х - pазм., целое

N-начало интерв., вещ.

К-конец интерв., вещ.

Вых. данные:

i-индексы иск. эл-ов, целые числа

Схема:

Flag=true

Код:

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

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. Модели представления данных. Примеры.

· Иерархическая

· Сетевая

· Реляционная

· Постреляционная

· Многомерная

· Объектно-ориентированная