„РОЗВЯЗАННЯ ІНЖЕНЕРНИХ ЗАДАЧ МОВОЮ ПРОГРАМУВАННЯ VBA”
Зміст
1. Програмування алгоритмів циклічної структури із заданим числом повторень
Змінна алгоритму |
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%. Програма виконана вірно.
Таблиця ідентифікаторів:
Змінна алгоритму |
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), N20, M10 максимальний та мінімальний елементи і розмістити їх на місці першого та останнього
елементів рядка відповідно. Матрицю надрукувати у звичайному вигляді.
Таблиця ідентифікаторів:
Змінна алгоритму |
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 |
Текст програми
Sub Matrix()
оголошення змінних
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%. Програма виконана вірно.
! | Как писать курсовую работу Практические советы по написанию семестровых и курсовых работ. |
! | Схема написания курсовой Из каких частей состоит курсовик. С чего начать и как правильно закончить работу. |
! | Формулировка проблемы Описываем цель курсовой, что анализируем, разрабатываем, какого результата хотим добиться. |
! | План курсовой работы Нумерованным списком описывается порядок и структура будующей работы. |
! | Введение курсовой работы Что пишется в введении, какой объем вводной части? |
! | Задачи курсовой работы Правильно начинать любую работу с постановки задач, описания того что необходимо сделать. |
! | Источники информации Какими источниками следует пользоваться. Почему не стоит доверять бесплатно скачанным работа. |
! | Заключение курсовой работы Подведение итогов проведенных мероприятий, достигнута ли цель, решена ли проблема. |
! | Оригинальность текстов Каким образом можно повысить оригинальность текстов чтобы пройти проверку антиплагиатом. |
! | Оформление курсовика Требования и методические рекомендации по оформлению работы по ГОСТ. |
→ | Разновидности курсовых Какие курсовые бывают в чем их особенности и принципиальные отличия. |
→ | Отличие курсового проекта от работы Чем принципиально отличается по структуре и подходу разработка курсового проекта. |
→ | Типичные недостатки На что чаще всего обращают внимание преподаватели и какие ошибки допускают студенты. |
→ | Защита курсовой работы Как подготовиться к защите курсовой работы и как ее провести. |
→ | Доклад на защиту Как подготовить доклад чтобы он был не скучным, интересным и информативным для преподавателя. |
→ | Оценка курсовой работы Каким образом преподаватели оценивают качества подготовленного курсовика. |
Курсовая работа | Деятельность Движения Харе Кришна в свете трансформационных процессов современности |
Курсовая работа | Маркетинговая деятельность предприятия (на примере ООО СФ "Контакт Плюс") |
Курсовая работа | Политический маркетинг |
Курсовая работа | Создание и внедрение мембранного аппарата |
Курсовая работа | Социальные услуги |
Курсовая работа | Педагогические условия нравственного воспитания младших школьников |
Курсовая работа | Деятельность социального педагога по решению проблемы злоупотребления алкоголем среди школьников |
Курсовая работа | Карибский кризис |
Курсовая работа | Сахарный диабет |
Курсовая работа | Разработка оптимизированных систем аспирации процессов переработки и дробления руд в цехе среднего и мелкого дробления Стойленского ГОКа |
Курсовая работа | Несостоятельность (банкротство) юридического лица |
Курсовая работа | Формирование личности |
Курсовая работа | Кадры предприятия и производительность труда |
Курсовая работа | Экономический рост и его факторы |
Курсовая работа | Государственный бюджет и проблема его сбалансированности |
Курсовая работа | Маркетинговое исследование предпочтений потребителей продуктов питания среднеценового сегмента |
Курсовая работа | Концепция развития сети технопарков в Республике Казахстан |
Курсовая работа | Жилищно-коммунальное хозяйство |
Курсовая работа | Изучение феномена тревожности у студентов первого курса |
Курсовая работа | Эксплуатация и ремонт электроподвижного состава |
Курсовая работа | Особенности чрезвычайных ситуаций на железнодорожном транспорте |
Курсовая работа | Эффективность менеджмента и пути ее повышения |
Курсовая работа | Программное обеспечение бизнес-планирования |
Курсовая работа | Нетрадиционные уроки при преподавании технологии в школе |
Курсовая работа | Организация автотранспортного предприятия |