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

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



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

Есть программы (исходники) на языке программирования Работа проходит антиплагиат Форматы: Word

Содержание

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

Задача №1 5

Задача №2 7

Задача №3 12

Задача №4 14

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

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

На главном окне приложения размещается меню, созданное с использованием кнопок (CommandButton) или текстового меню. Реализация главного окна приложения показана на рисунках 1 и 2

Рис. 1. Титульный лист работы

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

Листинг процедур главного окна приложения

Private Sub Command1_Click()

Form6.Show

End Sub

Private Sub Command2_Click()

Form2.Show

End Sub

Private Sub Command3_Click()

Form3.Show

End Sub

Private Sub Command4_Click()

Form4.Show

End Sub

Private Sub Command5_Click()

End

End Sub

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

Задача №1

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

Для заданного числового ряда найти:

а) сумму членов числового ряда при заранее известном их количестве;

б) точное значение суммы членов числового ряда, вычисленное по заданной формуле;

в) погрешности вычисления суммы членов числового ряда (абсолютную и относительную) по отношению к точному значению суммы членов

числового ряда.

, точное значение .

На рисунке 1 представлена блок – схема программы.

Рис. 3 Блок-схема

Листинг программы

Private Sub Command1_Click()

s = 0

p = 1

n = Val(Text1)

For i = 1 To n

a = 1 / (i ^ 2)

s = s + (-1) ^ (i + 1) / i ^ 2

Next

f = 3.1415926 / 4

ds = Abs(s - f)

df = Abs(ds / s) * 100

Picture1.Print Format(s, \"0.00000000\")

Picture2.Print Format(f, \"0.00000000\")

Picture3.Print Format(ds, \"0.0000000000\")

Picture4.Print Format(df, \"0.0000000000\")

End Sub

Private Sub Command2_Click()

Close

Form2.Show

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Text1 = \"\"

На рисунке 4 представлена экранная форма приложения.

Рис.4. Окно формы с результатами вычислений

Задача №2

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

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

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

2. Найти количество минимальных элементов массива.

3. Элементы массива упорядочены по возрастанию элементов в

столбцах. Переупорядочить массив по убыванию его элементов в столбцах.

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

Листинг программы

Private Sub Command1_Click()

Picture1.Cls

Picture2.Cls

List1.Clear

List2.Clear

List3.Clear

n = Val(Text1)

m = Val(Text2)

am_min = Val(Text3)

am_max = Val(Text4)

f = Val(Text5)

p = 1

Min = am_max

For i = 0 To n - 1

For j = 0 To m - 1

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

If am(i, j) Mod 2 = 0 Then p = p * am(i, j)

If am(i, j) < Min Then Min = am(i, j)

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

Next j

List1.AddItem stra

stra = \"\"

Next i

List1.AddItem \"\"

k = 0

For i = 0 To n - 1

For j = 0 To m - 1

If Min = am(i, j) Then k = k + 1

Next j

Next i

If (p = 1) Then Picture1.Print \"Таких элементов нет\") Else Picture1.Print (p)

Picture2.Print (k)

For j = 0 To m - 1

For i = 0 To n - 2

For k = 0 To n - i - 1

If am(k, j) < am(k + 1, j) Then

p = am(k, j)

am(k, j) = am(k + 1, j)

am(k + 1, j) = p

End If

Next k

Next i

Next j

For i = 0 To n - 1

For j = 0 To m - 1

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

Next j

List2.AddItem stra

stra = \"\"

Next i

List2.AddItem \"\"

For j = 0 To m - 1

For i = 0 To n / 2

p = am(i, j)

am(i, j) = am(n - i - 1, j)

am(n - i - 1, j) = p

Next i

Next j

For i = 0 To n - 1

For j = 0 To m - 1

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

Next j

List3.AddItem stra

stra = \"\"

Next i

End Sub

Private Sub Command2_Click()

Form3.Show

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Text1 = \"\"

Text2 = \"\"

Text3 = \"\"

Text4 = \"\"

Text5 = \"\"

List1.Clear

List2.Clear

List3.Clear

Picture1.Cls

End Sub

На рисунке 6 представлена экранная форма приложения.

Рис.6. Окно формы с результатами вычислений

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*

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


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


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

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