Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Курсовая работа: Розвязання інженерних задач мовою програмування VBA

Название: Розвязання інженерних задач мовою програмування VBA
Раздел: Рефераты по информатике
Тип: курсовая работа Добавлен 15:18:30 11 декабря 2010 Похожие работы
Просмотров: 9 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

РОЗВ'ЯЗАННЯ ІНЖЕНЕРНИХ ЗАДАЧ МОВОЮ ПРОГРАМУВАННЯ VBA


Зміст

1. Програмування алгоритмів циклічної структури із заданим числом повторень

2. Алгоритми роботи з одновимірними масивами

3. Програмування алгоритмів із структурою вкладених циклів і обробка матриць

1 . Програмування алгоритмів циклічної структури із заданим числом повторень

Постановка задачі. Розробити алгоритм та програму знаходження суми n членів ряду

Виконати тестування для перевірки правильності функціонування програми для значень n=3, x =2.

Змінна алгоритму n s x
Ідентифікатор n s x
Тип integer single single

Текст програми:

Sub Zavdannya_5()

Dim x As Single, s As Single

Dim i As Integer, n As Integer

Dim fact As Integer

x = InputBox("x")

n = InputBox("n")

s = 0

For i = 0 To n

s = s + ((-1) ^ n) * 1 / ((2 * n + 1) * (x ^ (2 * n + 1)))

Next i

MsgBox ("сума значень" + Str(s))

End Sub

Контрольний приклад

Виконуємо обчислення для даних тестового прикладу. Результати роботи програми на екрані монітора мають виглядВиконуємо на калькуляторі підрахунки значення згідно з формулами: –0.042782738

Увести x

2

Увести n

3

Висновок: Порівнюючи результати тестового приклада обрахованого за допомогою калькулятора та комп'ютерної програми бачимо що розходження склало 0.042782738 +0.0464286)/0.042782738 *100 = 0,0006%.Програма виконана вірно.

2.Алгоритми роботи з одновимірними масивами

Постановка задачі: Обчислити середнє геометричне елементів масиву Y , які задовольняють умові yi >0 .

Блок схема:



Таблиця ідентифікаторів:

Змінна алгоритму n s p Y(20) i
Ідентифікатор n s p Y(20) i
Тип integer single integer integer integer

Текст програми:

Sub Odnovymirniy_masiv()

' Оголошення змінних

Dim Y(20) As Integer

Dim n As Integer

Dim i As Integer

Dim s As Single

Dim p As Integer

' Уведення даних

n = InputBox("Задайте кiлькiсть елементiв n=")

' Встановлення початкового значення суми

s = 1

p = 0

For i = 1 To n

Y(i) = InputBox("Задайте елемент масива Y(" + Str(i) + ")=")

If Y(i) > 0 Then

s = s * Y(i)

p = p + 1

End If

Next i

s = s ^(1/p)

MsgBox ("Середнє геометричне s=" + Str(s))

End Sub

Контрольний приклад. Виконуємо обчислення для даних тестового прикладу. Результати роботи програми на екрані монітора мають вигляд

Y =

Задайте кiлькiсть елементiв n=6

Задайте елемент масива Y[1]=2;

Задайте елемент масива Y[2]=-54;

Задайте елемент масива Y[3]=4;

Задайте елемент масива Y[4]=-6;

Задайте елемент масива Y[5]=4;

Задайте елемент масива Y[6]=0;

Висновок: Порівнюючи результати тестового приклада обрахованого за допомогою калькулятора та комп'ютерної програми бачимо що розходження склало 0%. Програма виконана вірно.

3. Програмування алгоритмів із структурою вкладених циклів і обробка матриць

Постановка задачі:

Знайти в кожному рядку матриці F(N, M), N £20, M £10 максимальний та мінімальний елементи і розмістити їх на місці першого та останнього

елементів рядка відповідно. Матрицю надрукувати у звичайному вигляді.


Таблиця ідентифікаторів:

Змінна алгоритму n m p A(20,10) i j min max o k K1
Ідентифікатор n m p A(20,10) i j min max o k K1
Тип integer integer integer integer integer integer integer integer integer integer integer

Текст програми

SubMatrix()

' оголошення змінних

Dim A(20, 10) As Single

Dim B(20, 10) As Single

Dim n As Integer, m As Integer

Dim i As Integer, j As Integer, p As Integer,

K1 As Integer, k As Integer, o As Integer

Dim min As Single

Dim max As Single

n = InputBox("уведіть кількість рядків n= ")

m = InputBox("уведіть кількість стовпців m= ")

For i = 1 To n

For j = 1 To m

A(i, j) = InputBox("уведіть елемент масиву A(" + Str(i) + "," + Str(j) + ")=")

Next j

Next i

For i = 1 To n

min = A(i, 1)

max = A(i, 1)

p = 1

o = 1

For j = 1 To m

If (A(i, j) < min) Then

min = A(i, j)

p = j

End If

If (A(i, j) > max) Then

max = A(i, j)

o = j

End If

Next j

k = A(i, p)

k1 = A(i, o)

A(i, o) = k1

A(i, p) = k

A(i, 1) = min

A(i, m) = max

Next i

For i = 1 To n

For j = 1 To m

B(i, j) = A(i, j)

MsgBox ("Елемент масиву B(" + Str(i) + "," + Str(j) + ")=" + Str(B(i, j)))

Next j

Next i

End Sub

Контрольний приклад. Виконуємо обчислення для даних тестового прикладу. Результати роботи програми на екрані монітора мають вигляд

Вводимо матрицю А

Після обробки матриці А програмою отримуємо нову матрицю В з потрібними нам перетвореннями

Задайте кiлькiсть рядкiв матрицi n=4;

Задайте кiлькiсть стовбцiв матрицi m=6;

Задайте елемент масива А[1,1]=1;

Задайте елемент масива А[1,2]=5;

Задайте елемент масива А[1,3]=45;

Задайте елемент масива А[1,4]=7;

Задайте елемент масива А[1,5]=11;

Задайте елемент масива А[1,6]=0;

Задайте елемент масива А[2,1]=65;

Задайте елемент масива А[2,2]=4;

Задайте елемент масива А[2,3]=25;

Задайте елемент масива А[2,4]=3;

Задайте елемент масива А[2,5]=5;

Задайте елемент масива А[2,6]=1;

Задайте елемент масива А[3,1]=1;

Задайте елемент масива А[3,2]=22;

Задайте елемент масива А[3,3]=5;

Задайте елемент масива А[3,4]=4;

Задайте елемент масива А[3,5]=0;

Задайте елемент масива А[3,6]=9;

Задайте елемент масива А[4,1]=7;

Задайте елемент масива А[4,2]=5;

Задайте елемент масива А[4,3]=2;

Задайте елемент масива А[4,4]=1;

Задайте елемент масива А[4,5]=4;

Задайте елемент масива А[4,6]=4;

B[1,1]=45;

B[1,2]=5;

B[1,3]=1;

B[1,4]=7;

B[1,5]=11;

B[1,6]=0;

B[2,1]=65;

B[2,2]=4;

B[2,3]=25;

B[2,4]=3;

B[2,5]=5;

B[2,6]=1;

B[3,1]=22;

B[3,2]=1;

B[3,3]=5;

B[3,4]=4;

B[3,5]=9;

B[3,6]=0;

B[4,1]=7;

B[4,2]=5;

B[4,3]=2;

B[4,4]=4;

B[4,5]=4;

B[4,6]=1;

Порівнюючи результати тестового приклада обрахованого за допомогою калькулятора та комп'ютерної програми бачимо що розходження склало 0%. Програма виконана вірно.

Список використаної літератури

1) Камминг, Стив. VBA для "чайников", 3-е издание.: Пер.с англ. – М.: Издательский дом "Вильямc", 2001.— 448c.

2) А. Васильев, А. Андреев. VBA в Office 2000. Питер,2001. – 409c.

3) Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for Application. М.: Телеком 2004.

4) Гетц К., Джилберт М. Программирование в Microsoft Office. К.: Издательская группа BHV, 1999.

5) Бондаренко Олена Олександрівна Інформатика. Visual Basic. 9 клас Бондаренко Олена Олександрівна"Аспект", 2008 р. 200 с.

6)Делявський, М.В. http://e-catalog.mk.ua/cgi-bin/irbis64r_opak72/cgiirbis_64.exe?Z21ID=&I21DBN=NGU&P21DBN=NGU&S21STN=1&S21REF=10&S21FMT=fullw&C21COM=S&S21CNR=20&S21P01=0&S21P02=0&S21P03=M=&S21COLORTERMS=0&S21STR=Основи алгоритмізації та програмування: середовище VBA: навчальний посібник для студентів економічних спеціальностей вищих навчальних закладів / За заг. ред. Р.Б. Чаповської. - Чернівці

7) Чаповська Р.Б Основи алгоритмізації та програмування: середовище VBA,2006р.

8) А. Гарнаев - Самовчитель VBA 2000р.

9) Л.А. Демидова, А.Н. Пилькин - Програмування в середовищі VBA, 2004р.

10) Слепцова Лилия Дмитриевна. Программирование на VBA в Microsoft Office 2007. Самоучитель. — М.: «Диалектика», 2007. — С. 432.

11)Стивен Буллен, Роб Боуви, Джон Грин Профессиональная разработка приложений Microsoft Office Excel. Professional Excel Development: The Definitive Guide to Developing Applications Using Microsoft Excel and VBA. — М.: «Вильямс», 2007. — С. 736.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений07:45:05 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
11:23:37 29 ноября 2015

Работы, похожие на Курсовая работа: Розвязання інженерних задач мовою програмування VBA

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(150504)
Комментарии (1836)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru