Аннотация

В данном курсовом проекте представлено решение двух задач на обработку массивов. Я написал программные коды, создал блок-схемы. Затем записал программы, ввел данные, сверил результаты с моими вычислениями.

Цели и задачи проекта

Цель: Создать приложение для решения двух задач, представляющих собой типовые алгоритмы работы с одномерными и двумерными массивами

Задача 1: Дана матрица Q(n,m). Получить матрицу P(n,m) делением каждого элемента матрицы Q(n,m) на ее максимальный элемент. Вычисление максимального элемента матрицы оформить в виде функции. Исходная матрица: n=3, m=4

2,7	0,6	0	2,4
0,3	3	-0,9	0,3
0,6	2,7	3	2,4

Q=

Задача 2: Составить программу для вычисления значения функции

sinx+1, при x<0

1, при 0≤x≤1

3√x , при x>1

y= {

при xϵ[-1;1], n=10.

Основная часть

Эскиз экранной формы

Свойства объектов

Объект	Свойства объекта	Значение свойств
Форма	Name Text	Form 1 Курсовая работа
Кнопка	Name Caption	Command 1…Command 6 Старт, Имя, Цвет, Финиш
Метка	Name Caption Alignment Autosize
Текстовое окно	Name Text

Задача 1

Обозначения:

n – количество строк, Integer

m – количество столбцов, Integer

i- номер столбца, Integer

j - номер строки, Integer

max - максимальный элемент, Integer

x – массив, Single

Вводимые данные:

n=3

m=4

x_1,1=2,7

x_1,2=0,3

x_1,3=0,6

x_2,1=0,6

x_2,2=3

x_2,3=2,7

x_3,1=0

x_3,2=-0,9

x_3,3=3

x_4,1=2,4

x_4,2=0,3

x_4,3=2,4

Программный код

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim n As Integer, i As Integer, j As Integer, max As Integer, m As Integer

n = CSng(InputBox("n"))

m = CSng(InputBox("m"))

Dim x(0 To m, 0 To n) As Single

For i = 1 To m

For j = 1 To n

x(i, j) = InputBox("x(" & i & " " & j & ")")

Next j

Next i

max = x(1, 1)

For i = 1 To m

For j = 1 To n

If x(i, j) > max Then max = x(i, j)

Next j

Next i

For i = 1 To m

For j = 1 To n

x(i, j) = x(i, j) / max

MsgBox(CStr(x(i, j)))

Next j

Next i

End Sub

Полученные результаты:

x_1,1=0,9

x_1,2=0,1

x_1,3=0,2

x_2,1=0,2

x_2,2=1

x_2,3=0,9

x_3,1=0

x_3,2=-0,3

x_3,3=1

x_4,1=0,8

x_4,2=0,1

x_4,3=0,8

Задача 2

Обозначения:

x - аргумент, Single

y - значение функции, Single

а - начало отрезка, Single

b - конец отрезка, Single

Вводимые данные:

а=-1

b=1

n=10

Программный код

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim x As Single, y As Single, h As Single, a As Single, b As Single, n As Single

n = CStr(InputBox("n"))

a = CStr(InputBox("a"))

b = CStr(InputBox("b"))

h = (b - a) / n + 1

For x = -1 To 1 Step h

If x < 0 Then y = Math.Sin(x) + 1 Else

If x <= 1 And x >= 0 Then y = 1 Else

If x > 1 Then y = Math.Sqrt(x)

Next x

End Sub