Сборник практических работ по информатике
  • Регистрация
1 1 1 1 1 1 1 1 1 1 Рейтинг 0.00 (0 Голоса)

КАБИНЕТ МИНИСТРОВ УКРАИНЫ

ЮФ НУБиПУ «Крымский агротехнологический университет»

Кафедра информационных технологий и компьютерной техники

Отчет по практике

Основы программирования на VBA

Выполнили:

бригада №4

студенты 2 курса

факультета ТПХ и ППР

группы К-21.1

 

Проверил:

Морозов Н. М.

.

Сдана на кафедру

Оценка

Симферополь 2009

Оглавление

1. Лабораторная работа № 1

a) Данные и теория -

b) Блок-схема алгоритма

c) Таблица и график в Excel

d) Код макроса программы в VBA

е) Код программы в MathCAD

2. Лабораторная работа № 2

a) Данные и теория -

b) Блок-схема алгоритма

c) Таблица в Excel

d) Код макроса программы в VBA

е) Код программы в MathCAD

3. Лабораторная работа № 3

a) Данные и теория -

b) Блок-схема алгоритма

c) Таблица в Excel

d) Код макроса программы в VBA

е) Код программы в MathCAD

Лабораторная работа №1

Тема : Составление алгоритма вычисления значений таблично заданной функции

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

Данные:

Функция

Условие

Исходные

Данные

Диапазон и шаг изменения аргумента

4

πx2 - sinx

Q= ax3 + 7√x

lg(x + √׀x+a׀)

X<1,4

X=1,4

X.1,4

A=1,65

X

∆x=0.1

Порядок создания макроса:

1. Выбрать меню «Сервис»→ «Макрос» или [Alt]+[F8].

2. В окне диалога «Макросы» в строку «Имя» внести имя макроса без пробелов и выбрать кнопку «Создать».

3. В открывшемся окне среды Visual Basic между операторами Sub и End Sub записать операторы программы.

Порядок выполнения макроса:

1. Из среды Visual Basic:меню «Запуск».

2. Из рабочего листа : «Сервис» → «Макрос» → «Макросы» или [Alt]+[F8], затем в списке макросов выбрать нужный и нажать кнопку «Выполнить» в окне диалога «Макросы».

Начинаем выполнение программы макрос для своего варианта.

Блок схема №1

 

Лабораторная работа № 2

Тема: Поиск экстремума функции

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

Данные:

Функция

Вид экстремума

Грубое значение шага H

Диапазон и шаг изменения аргумента

Точность вычисления

4

X1/3(1-x)2/3

Max

0,333333

H=0,1

X

10-5

Метод решения:

Разбиваем участок [xmin ;xmax] на n участков

Если xi+1<xi<xi+1; то хi максимум

| ymaxj –ymaxj+1| Если неравенство не удовлетворяется, т. е. достигнутая точность не высокая, то мы опять выделяем из нашего интервала подинтервал xi-1;xi+1

Получаем более уточненное значение xmax. Если разница между экстремумами не большая, то найденное значение экстремума находим на расстоянии от истинного экстремума на E/2

Алгоритм:

Алгоритм решения задачи-описание последовательности действия преобразует исходные данные задачи в результат

1.Выписать исходные данные

2. Вычислим значение от f(xmin),f(xmin+∆x)

3.Если значение f(xmin+∆x)> f(xmin), то

Вычисляем значение от f(xmin+2∆x) иначе f(xmin)→max

4. ymax=max; xmin= xmin+(i-1) ∆x

Xmax=xmin+(i-1) ∆x

5.Необходимо выполнить сравнение

Если |ymaxj-ymaxj+1|<E то ymaxj –есть экстремум конец.

Блок-схема №2

 

Лабораторная работа № 3

Тема: Вычисление площади фигуры, ограниченной графиком функции методом трапеций

Задание: Вычислить методом трапеций площадь фигуры, составить алгоритм программы и программы вычисления данного задания.

Данные:

Формула

Метод вычисления

N отр.

Интервал

Eps

4

Cos(x)

Трапеция

60

X

10-4

Метод решения:

Фигура, ограниченная графиком функции, вычисляется по методу трапеций следующим способом. Фигура по абсцисс разбивается на равные части dX, которое будет служить основанием для трапеций, на которые разбивается фигура. Площадь трапеции равняется полусумме оснований, умноженных на высоту трапеции, которая является вычисленной функцией Y. Для того чтобы найти dX (по условию фигура разбита на 50 частей), из Xmax вычитаем Xmin и делим результат на 50. Затем составляется цикл с условием xmin + dx To xmax - dx Step dx. При этом условии , то есть в этом интервале, с шагом для значений dX, будет вычисляться значение SF (SF = SF + (x * Atn(x))) . Также в теле цикла повышаем точность шага, деля его на 5 (dx = dx / 5) . Смысл заключается в максимальном приближении значения площади вычисленной к реальной. Это осуществляется тем, что цикл повторяется до тех пор, пока выполняется условие Loop While Abs(In1 - In2) > eps, то есть пока разность предыдущего и настоящего значения не будут приведена к значению, меньшему за допустимое значение после запятой, после которого функция перестаёт выполнять цикл.

1.Выписать исходные данные

2. Вычислим значение dx = (xmax - xmin) / n

3.Присвоим In2 = In1 ( новое значение In2 равняется предыдущему In1)

4. Создаём условие For x = xmin + dx To xmax - dx Step dx, при котором будет вычисляться значение SF

5. Создаём процедуру вычисления площади In1 = dx * SF

6. Делаем вывод данных в таблицу:

Cells(i + 1, 8) = In1

Cells(i + 1, 9) = In2

Cells(i + 1, 10) = Abs(In1 - In2)

7.Повышаем точность шага dx = dx / 5

8. Повышаем значение i для следующего цикла i = i + 1

9. Создаём условие, при котором будет выполняться вся функция - Loop While Abs(In1 - In2) > eps, то есть разница двух последовательных вычисленных площадей по модулю не должна быть более указанной точности.

Добавить комментарий


Защитный код
Обновить

По темам:

История Украины

Культурология

Высшая математика

Информатика

Охотоведение

Статистика

География

Военная наука

Английский язык

Генетика

Разное

Технологиеские темы

Украинский язык

Филология

Философия

Химия

Экология

Социология

Физическое воспитание

Растениевосдство

Педагогика

История

Психология

Религиоведение

Плодоводство

Экономические темы

Бухгалтерские темы

Маркетинг

Иностранные языки

Ветеринарная медицина

Технические темы

Землеустройство

Медицинские темы

Творчество

Лесное и парковое хозяйство