Файл: Курсовая работа по дисциплине Информатика.docx

For j = 1 To 6

money_day(j) = 0 ' Обнуление суммы (Можно пропустить, так как

данные уже обнулялись!)

For i = 1 To 3

money_day(j) = money_day(j) + money_day(i, j)

' Подсчет заработанного по каждому виду деталей за каждый день

' одномерный массив из пяти значений с именем money_day

' суммируются столбцы двумерного массива (матрицы) с именем money_day(3, 6)

Next i

Next j

'Вывод результатов расчетов 'на листе с надписью "Результат" и именем "Лист2"

For j = 1 To 6

Лист3.Cells(23, j + 2) = money_day(j)

' выводится одномерный массив money_day из пяти заработков за каждый день в строку 23, начиная со столбца 3 (j + 2)

Next j

'Выполнение расчетов, 'которые проводились на листе Excel по формулам

doh = 0 ' Обнуление суммы (Можно пропустить, так как данные уже

обнулялись!) For i = 1 To 3

all_money= all_money+ doh_n(i)

' Подсчет заработанного по всему производству

' Суммируется одномерный массива с именем zar

Next i

'Вывод результатов расчетов 'на листе с надписью "Результат" и именем "Лист2"

Лист3.Cells(24, 2) = all_money

' выводится значение суммы заработанной по всему производству ' в строку 24, столбец 2

' Находим наибольший заработок за неделю и название детали, которая его принесла:

max_money_week = money_week (i)

' Будем считать, что значение наибольшего заработка

' находится в первом элементе массива с именем zar max_type= name_type(i)

' Будем считать, что название детали, которая принесла наибольший заработок находится в первом элементе массива с именем name_detali

For i = 2 To 3

If max_money_week < money_week (i) Then

' Сравнение последующих элементов одномерного массива с именем

zar

' со значением первого элемента

all_money= money_week (i)

max_type= name_type(i)

' Максимальным становится просматриваемый элемент

' одномерного массива с именем name_type

End If Next i

'Вывод результатов расчетов

'на листе с надписью "Результат" и именем "Лист3"

Лист3.Cells(25, 1) = "Наибольший заработок за неделю составил, руб."

Лист3.Cells(25, 2) = max_money_week

Лист3.Cells(26, 1) = "Этот заработок принесла деталь"

Лист3.Cells(26, 2) = max_type

End Sub

6. Описание входных данных и результат вычислений

по варианту задания 4 .

Рис.3 Исходные данные на листе с надписью «Нач_д»

Рис.4 Решение 4-го варианта задания курсовой работы.

Рис.5 Результаты работы программы на листе «р_2»

7. Проверка

При 0

При 1

При произвольных данных

8. ЛИТЕРАТУРА

Гусева О.Л. Практикум по Visual Basic. – М.: Финансы и статистика, 2007.
Единая система программной документации. – М.: Государственный Комитет СССР по стандартам, 1982.
Еремин А.И., Иванов В.И. Практикум по алгоритмизации и программированию / ВИСИ. – СПб., 1997.
Иванов М.Н., Суворов С.В. Информатика. Часть 2.

Программирование. – М.: МГИУ, 2004.

Информатика: Базовый курс / С.В. Симонович и др. – СПб.: Питер, 2004.
Кирюхин С.Н., Шиманская А.О., Рубан А.С., Доронкин В.Ю., Зубрицкая Н.В. Практические и лабораторные работы по информатике. Раздел III. Основы алгоритмизации и программирования. / ВИТИ. – СПб., 2010.
Максимова А.П. Информатика. Учебно-практический курс. – Минск: ТетраСистемс, 2004.
Можаев А.С., Алексеев А.О., Громов В.Н. Автоматизированное логико-вероятностное моделирование технических систем. (Руководство пользователя ПК АСМ версия 5.0) / ВИТУ. – СПб., 1999.
Можаев А.С., Громов В.Н. Теоретические основы общего логиковероятностного метода автоматизированного моделирования систем. / ВИТУ. – СПб., 2000.
Пол Мак-Федрис. Моя первая книга о VBA. – М.: Эксмо, 2005. 11. Потеев, М.И. Информационные технологии в образовании. Введение в специальность: Учебное пособие. – СПб., 2004.

Рудникова Л.В. Microsoft Office для студентов. – СПб.: БХВ - Петербург, 2005.
Соколова И.Ю., Кабанов Г.П.Качество подготовки специалистов в техническом вузе и технологии обучения. – Томск: Изд-во ТПУ, 2003.
Соловьева Л.Ф. Компьютерные технологии для преподавателя. 2-е изд. – СПб.: БХВ - Петербург, 2008.