Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Пример 1.

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

Вычислить сумму эл. квадратной матрицы С размерности 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

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

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

Код:

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-индексы иск. эл-ов, целые числа

Схема:

Код:

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

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

· Сетевая

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

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

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

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