Метод деления отрезка пополам на Visual basic и создание массива

Автор работы: Пользователь скрыл имя, 12 Ноября 2011 в 16:15, курсовая работа

Краткое описание

При разработке новых конструкций, механизмов и т.п. возникает необходимость выбора наилучшего варианта из всех возможных. Такой процесс называют оптимизацией. В процессе решения задачи оптимизации обычно необходимо найти оптимальные значения некоторых проектных параметров, определяющих данную задачу.

Содержание работы

Введение……………………………………………………………………3
1. Задание к курсовому проекту…………………………………………..4
1.1.Теоретическая часть .Метод деления отрезка пополам……………..5
1.2.Ход работы .Построение графика функции в Excel…………………6
1.3.Блок-схема программы……………….. ………………………………7
1.4.Листинг программы…………………………………………………....8
2.Теоретическая часть. Массивы. ………………………………………..10
2.1.Блок-схема программы ……………………………………………….11
2.2.Листинг программы…………………………………………………...12
Выводы……………………………………………………………………..14
Список литературы………………………………………………………...15

Содержимое работы - 1 файл

Готовый курсовик.doc

— 116.00 Кб (Скачать файл)

 

      i,j=1

 min=(1,1)

                                                        max=(1,1)

  

      i=m

 j=n

      a(i,i)<min

      min=a(i,j)

 a(i,j)>max 

 

      max=a(i,j)

 j=j+1  

      i=i+1 

avg = (max + min) / 2

 avg 

    конец

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

Private Sub Command1_Click()

Dim i, j, n, m As Integer

'Задаем размерность  массива

n = Text1.Text

m = Text2.Text 

'Объявляем динамический  массив

Dim a() As Integer

ReDim Preserve a(m, n) 

'Очищаем поле  вывода массива

Label1.Caption = ""

For i = 1 To m

For j = 1 To n

'Записываем  в i,j элемент матрицы случайное число

a(i, j) = 50 - Rnd * 100

'Выводим его

Label1.Caption = Label1.Caption + Str(a(i, j))

Next j

'В конце каждой  строки переносим на след. строку

Label1.Caption = Label1.Caption + Chr(13)

Next i 

i = 0

j = 0

Dim min, max As Integer

Dim avg As Single

'Записываем в min и max первый элемент матрицы

min = a(1, 1)

max = a(1, 1)

'Находим мин  и макс элементы

For i = 1 To m

For j = 1 To n

If a(i, j) < min Then min = a(i, j)

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

Next j

Next i

Label7.Caption = max

Label8.Caption = min

'Расчитываем  среднее арифметическое

avg = (max + min) / 2

Label9.Caption = avg 

End Sub 
 

 
 
 
 
 
 
 
 
 

                                                     Выводы 

     Выполняя  данную работу я , познакомился с двумя методами для нахождения минимального значения функции на определенном промежутке и на примере 1-го задания выполнил задачу применив один из этого метода – метод «деления отрезка пополам». Выяснил, каким образом работает алгоритм программы и как необходимо его написать для более эффективной работы программы путем уменьшения числа шагов.

     Выполняя  второе задание курсовой работы .Я научился выполнять различные действия над массивами: ввод, вывод элементов, поиск, сравнение. Научились оптимизировать свои алгоритмы. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

1.Турчак Л.И. Основы численных методов: Учебное пособие. – М.: 2.Наука. Гл. ред. Физ.мат. лит., 1987. – 320с.

2.Шемелин В.К. Проектирование систем управления в . машиностроении: 3.Учебник для студентов технических вузов. – М.: Издательство “Станкин”, 1998. – 254с.

4.Светозарова Г.И. и др. Практикум по программированию на алгоритмических языках. – М.: Наука, 1980.

5.Гутер Р.С. , Овчинский Б.В. «Элементы численного  анализа и математической обработки результатов опыта». Москва, «Наука», 1979

6.Калиткин Н.Н. «Численные методы». Москва, «Наука», 1978

7.Крылов В.И., БабковВ.В., Монастырский П.И. «Вычислительные  методы». Москва, «Наука», 1976

8.П. Санна. «Visual Basic for Applications 6.0 «в подлиннике», Киев, BHV

9. Microsoft Visual Basic 2005 (+ CD-ROM): Майкл Хальворсон — Санкт-Петербург, ЭКОМ Паблишерз, 2007 г.- 640 с.

10.isual Basic .NET. Практическое  руководство для начинающего  программиста: М. А. Трусов —  Санкт-Петербург, НТ Пресс, 2006 г.- 176 с. 

Информация о работе Метод деления отрезка пополам на Visual basic и создание массива