Для поиска нужного реферата введите его тему ниже:

Курсовая работа: «Создание проектов решения вычислительных задач на Visual Basic Вариант 24 с исходниками и пояснительной запиской»



Примечания к работе

К работе прилагается рабочая программа на языке программирования

Работа проходит антиплагиат Форматы: Word ( все формулы отображаются)

Содержание

Окно проекта 3

Задача №1 5

Задача №2 7

Задача №3 12

Задача №4 14

Список литературы 17

Введение (выдержка)

Для создания создания формы с краткой информацией о приложении (титульный лист) был использован стандартный шаблон проекта «Standart Exe»(Рисунок 1).


Рисунок 1 – титульный лист.

На главном окне приложения размещается меню, созданное с использованием кнопок «Command Button» (Рисунок 2).


Рисунок 2 – Главное окно приложения.

Задача №1 «Сумма ряда»

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

Вычислить значение суммы ряда S. Сравнить полученное значение с точным решением Y, вычислив абсолютную и относительную погрешности.


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


Рисунок 3 – Схема алгоритма

1.3 Исходный текст программы



1.4 Экранная форма программы с примером решения задачи


Рисунок 4 – Экранная форма программы

Задача №2 «Массивы»

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

Дан двумерный массив (матрица) размером NxN.

1. Определить количество элементов, имеющих нечетные значения.

2. Найти произведение максимального элемента массива и заданного числа

L.

3. Найти произведение элементов под главной диагональю.


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


Рисунок 5 – схема алгоритма


Выдержка из основной части

1.3 Исходный текст программы

1.4 Экранная форма программы с примером решения задачи

Рисунок 6 - Экранная форма программы

Для ввода значений переменных n (количество строк), m (количество столвцов), A_min и A_max) границы значений элементов массива, L (заданное число) используются текстовые поля (объект TextBox). Для ввода элементов массива (матрицы) использован генератор случайных чисел (Rnd). Для вывода элементов массива использовано окно списка (объект List).

Результаты решения задачи выводятся:

- Количество элементов имеющих нечетное значение (Text box);

- Произведение максимального элемента массива и заданного числа L (Text box);

- Произведение элементов под главной диагональю (Text box).

Задача №3 «Строки»

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

Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.


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


Рисунок 7 – Схема алгоритма

1.3 Исходный текст программы

1.4 Экранная форма программы с примером решения задачи

Рисунок 8 – Экранная форма программы

Задача №4 «Графика»

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

Построить график функции Y=1/(x2-3*x+2) на отрезке [-8, 2]

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

Рисунок 9 – Схема алгоритма

1.3 Исходный текст программы

1.4 Экранная форма программы с примером решения задачи


Рисунок 10 – Экранная форма программы

VERSION 5.00

Begin VB.Form Form3

Caption = "Маликов А.С., ЭМ-111, Вариант 25"

ClientHeight = 5010

ClientLeft = 4485

ClientTop = 2925

ClientWidth = 5100

LinkTopic = "Form3"

ScaleHeight = 5010

ScaleWidth = 5100

Begin VB.CommandButton Command1

Caption = "Вычислить"

Height = 495

Left = 480

TabIndex = 14

Top = 4320

Width = 3975

End

Begin VB.PictureBox Picture4

Height = 375

Left = 2880

ScaleHeight = 315

ScaleWidth = 1515

TabIndex = 9

Top = 3720

Width = 1575

End

Begin VB.PictureBox Picture3

Height = 375

Left = 2880

ScaleHeight = 315

ScaleWidth = 1515

TabIndex = 8

Top = 3240

Width = 1575

End

Begin VB.PictureBox Picture2

Height = 375

Left = 2880

ScaleHeight = 315

ScaleWidth = 1515

TabIndex = 7

Top = 2760

Width = 1575

End

Begin VB.PictureBox Picture1

Height = 375

Left = 2880

ScaleHeight = 315

ScaleWidth = 1515

TabIndex = 6

Top = 2280

Width = 1575

End

Begin VB.TextBox Text3

Height = 375

Left = 2880

TabIndex = 3

Top = 1440

Width = 1575

End

Begin VB.TextBox Text2

Height = 375

Left = 2880

TabIndex = 2

Top = 960

Width = 1575

End

Begin VB.TextBox Text1

Height = 375

Left = 2880

TabIndex = 0

Top = 480

Width = 1575

End

Begin VB.Label Label7

Caption = "Относительная погрешность"

Height = 375

Left = 480

TabIndex = 13

Top = 3720

Width = 2295

End

Begin VB.Label Label6

Caption = "Абсолютная погрешность"

Height = 375

Left = 480

TabIndex = 12

Top = 3240

Width = 2295

End

Begin VB.Label Label5

Caption = "Точное значение"

Height = 375

Left = 480

TabIndex = 11

Top = 2760

Width = 2295

End

Begin VB.Label Label4

Caption = "Сумма ряда"

Height = 375

Left = 480

TabIndex = 10

Top = 2280

Width = 2175

End

Begin VB.Label Label3

Caption = "Значение переменной q"

Height = 375

Left = 480

TabIndex = 5

Top = 1440

Width = 2175

End

Begin VB.Label Label2

Caption = "Значение переменной а"

Height = 375

Left = 480

TabIndex = 4

Top = 960

Width = 2055

End

Begin VB.Label Label1

Caption = "Число членов ряда"

Height = 375

Left = 480

TabIndex = 1

Top = 480

Width = 2175

End

End

Attribute VB_Name = "Form3"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Picture1.Cls

Picture2.Cls

Picture3.Cls

Picture4.Cls

n = Val(Text1)

a = Val(Text2)

q = Val(Text3)

s = 0

For k = 0 To n

s = s + a * q ^ k

Next

y = a / (1 - q)

z = y - s

d = z / y * 100

Picture1.Print Format(s, "00.00000")

Picture2.Print Format(y, "00.00000")

Picture3.Print Format(z, "00.00000")

Picture4.Print Format(d, "00.00000"); " %"

End Sub

VERSION 5.00

Begin VB.Form Form4

Caption = "Маликов А.С., ЭМ-111, Вариант 25"

ClientHeight = 6180

ClientLeft = 120

ClientTop = 450

ClientWidth = 9315

LinkTopic = "Form4"

ScaleHeight = 6180

ScaleWidth = 9315

StartUpPosition = 3 'Windows Default

Begin VB.ListBox List1

Height = 3765

ItemData = "задача 2.frx":0000

Left = 240

List = "задача 2.frx":0002

TabIndex = 18

Top = 2040

Width = 4815

End

Begin VB.CommandButton Command1

Caption = "Вычислить"

Height = 735

Left = 5280

TabIndex = 17

Top = 5160

Width = 3735

End

Begin VB.TextBox Text9

Height = 375

Left = 5280

TabIndex = 16

Top = 4560

Width = 3735

End

Begin VB.TextBox Text8

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 6120

TabIndex = 14

Top = 3000

Width = 2775

End

Begin VB.TextBox Text7

Height = 285

Left = 5280

TabIndex = 12

Top = 2400

Width = 3615

End

Begin VB.Frame Frame1

BackColor = &H8000000E&

Caption = "Данные"

Height = 1575

Left = 240

TabIndex = 0

Top = 240

Width = 8895

Begin VB.TextBox Text5

Height = 375

Left = 6240

TabIndex = 10

Top = 960

Width = 495

End

Begin VB.TextBox Text4

Height = 375

Left = 4320

TabIndex = 8

Top = 960

Width = 495

End

Begin VB.TextBox Text3

Height = 375

Left = 3240

TabIndex = 6

Top = 960

Width = 495

End

Begin VB.TextBox Text2

Height = 375

Left = 5400

TabIndex = 4

Top = 360

Width = 735

End

Begin VB.TextBox Text1

Height = 405

Left = 2400

TabIndex = 1

Top = 360

Width = 735

End

Begin VB.Label Label5

BackColor = &H8000000E&

Caption = " L"

Height = 495

Left = 5880

TabIndex = 9

Top = 960

Width = 495

End

Begin VB.Label Label4

BackColor = &H8000000E&

Caption = "до"

Height = 255

Left = 3960

TabIndex = 7

Top = 960

Width = 495

End

Begin VB.Label Label3

BackColor = &H8000000E&

Caption = "Границы значений элементов от"

Height = 375

Left = 360

TabIndex = 5

Top = 960

Width = 2655

End

Begin VB.Label Label2

BackColor = &H8000000E&

Caption = "Количество столбцов"

Height = 255

Left = 3480

TabIndex = 3

Top = 360

Width = 1815

End

Begin VB.Label Label1

BackColor = &H8000000E&

Caption = "Количество строк"

Height = 255

Left = 480

TabIndex = 2

Top = 360

Width = 1575

End

End

Begin VB.Label Label8

Caption = "Произведение элементов под главной диагональю"

Height = 375

Left = 5280

TabIndex = 15

Top = 3960

Width = 3615

End

Begin VB.Label Label7

Caption = "Max * L ="

Height = 375

Left = 5280

TabIndex = 13

Top = 3120

Width = 735

End

Begin VB.Label Label6

Caption = "Количество нечетных элементов"

Height = 255

Left = 5280

TabIndex = 11

Top = 2040

Width = 3495

End

End

Attribute VB_Name = "Form4"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim am(50, 50) As Integer

Private Sub Command1_Click()

List1.Clear

n = Val(Text1)

m = Val(Text2)

am_min = Val(Text3)

am_max = Val(Text4)

l = Val(Text5)

p = Val(Text6)

k = 0

q = 1

For i = 0 To n - 1

For j = 0 To m - 1

am(i, j) = am_min + Int(Rnd * (am_max - am_min))

stra = stra + Str(am(i, j))

Next

List1.AddItem stra

stra = ""

Next

List1.AddItem " "

For i = 0 To n - 1

For j = 0 To m - 1

If (am(i, j) / 2) <> Fix(am(i, j) / 2) Then k = k + 1

Next

Text7 = k

Next

Max = am(1, 1)

For i = 0 To n - 1

For j = 0 To m - 1

If am(i, j) > Max Then Max = am(i, j)

Next

Text8 = Max * l

Next

For i = 0 To n - 1

For j = 0 To m - 1

If i = j Then q = q * am(i, j)

Next

Text9 = q

Next

End Sub

Заключение (выдержка)

VERSION 5.00

Begin VB.Form Form5

Caption = "Маликво А.С., ЭМ-111, Вариант 24"

ClientHeight = 1425

ClientLeft = 120

ClientTop = 450

ClientWidth = 9885

LinkTopic = "Form5"

ScaleHeight = 1425

ScaleWidth = 9885

StartUpPosition = 3 'Windows Default

Begin VB.CommandButton Command1

Caption = "Вычислить"

Height = 375

Left = 4440

TabIndex = 4

Top = 720

Width = 5175

End

Begin VB.PictureBox Picture1

Height = 255

Left = 3600

ScaleHeight = 195

ScaleWidth = 555

TabIndex = 3

Top = 840

Width = 615

End

Begin VB.TextBox Text1

Height = 285

Left = 1320

TabIndex = 0

Top = 360

Width = 8295

End

Begin VB.Label Label2

Caption = "Количество элементов перед двоеточием"

Height = 255

Left = 120

TabIndex = 2

Top = 840

Width = 3255

End

Begin VB.Label Label1

Caption = "Строка"

Height = 255

Left = 120

TabIndex = 1

Top = 360

Width = 975

End

End

Attribute VB_Name = "Form5"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim str1 As String

Dim retval

Private Sub Command1_Click()

Picture1.Cls

str1 = Text1

retval = Split(str1, ":")

Picture1.Print Len(retval(0))

End Sub

Список литературы

1. Ананьев А., Федоров А. Самоучитель Visual Basic 6.0. BHV-Санкт-Петербург, 2008 г. 624 стр.

2. Культин Н. Visual Basic. Освой на примерах. БХВ – Петербург 2008 г., 284 стр.

3. Лукин С.Н. Visual Basic. Самоучитель для начинающих. Диалог-МИФИ, 2008 г., 544 стр.

4. Минасов Н.С., Тархов С.В. Методические указания по выполнению курсовой работы по дисциплине Информатика «Создание проектов решения вычислительных задач на Visual Basic для студентов очно-заочного отделения», Уфа 2012

Похожие работы
Создание проектов решения вычислительных задач на Visual Basic Вариант 5 с исходниками и пояснительной запиской - Курсовая работа

Методические рекомендации по проведению уроков информатики - Дипломная работа

РЕШЕНИЕ КРАЕВОЙ ЗАДАЧИ ДЛЯ ОДНОГО ДИФФЕРЕНЦИАЛЬНОГО УРАВНЕНИЯ ЭЛЛИПТИЧЕСКОГО ТИПА - Дипломная работа

ОЦЕНКИ РЕШЕНИЙ КРАЕВОЙ ЗАДАЧИ ДЛЯ ОДНОГО КЛАССА ДИФФЕРЕНЦИАЛЬНЫХ УРАВНЕНИЙ ВТОРОГО ПОРЯДКА - Дипломная работа

РЕШЕНИЕ КРАЕВЫХ ЗАДАЧ ДИФФЕРЕНЦИАЛЬНОГО УРАВНЕ-НИЯ ВТОРОГО ПОРЯДКА - Дипломная работа

МНОГОКРИТЕРИАЛЬНАЯ ОПТИМИЗАЦИЯ - Дипломная работа

Оценки решений краевой задачи для одного эллиптического дифференциального уравнения - Дипломная работа

ИНФОРМАТИКА В ЭКОНОМИКЕ - Шпаргалка

ИЗУЧЕНИЕ ТЕКСТОВЫХ ЗАДАЧ НА УРОКАХ МАТЕМАТИКИ В НАЧАЛЬНЫХ КЛАССАХ - Дипломная работа

ОБУЧЕНИЕ РЕШЕНИЮ ОЛИМПИАДНЫХ ЗАДАЧ, КАК МЕТОД РАЗВИВАЮЩИЙ ОБОБЩЕННЫЕ ЗАДАЧНЫЕ УМЕНИЯ - Дипломная работа

Покупка готовой работы
Название: «Создание проектов решения вычислительных задач на Visual Basic Вариант 24 с исходниками и пояснительной запиской»
Раздел: Рефераты по информатике
Тип: Курсовая работа
Страниц: 13
Год: 2016
Цена: 900 руб.

*

С условиями покупки работы согласен(-на).


Не нашли что искали?
Устали искать нужную курсовую, реферат или диплом?
Закажите написание авторской работы на Зачётик.Ру!


А так же: Отчёты по практике | Семестровые работы | Эссе и другие работы

Наши специалисты выполняют заказы по любым темам и дисциплинам.
Средний балл наших работ: 4,9
Мы помогли 8458 студентам.