Курсовая работа: Составление и описание программы по заданным параметрам

Next j

Sheets(" Результат ").Cells(14 + i, 2) = cena(i)

Sheets(" Результат ").Cells(14 + i, 6) = cena(i) * koll_n(i)

Next i

'в данном цикле происходит выбор суммы наибольшего заработка и соответственно

'день с максимальным заработком становится день j (день, в который был получен максимальный доход)

For j = 1 To 4

Sheets(" Результат ").Cells(21, 2 + j) = zar(j)

If zar(j) > zarpl Then

zarpl = zar(j)

Sheets(" Результат ").Cells(23, 6) = vid

vid = розы

End If

Next

'в соответствующие ячейки выводятся заработок рабочего за неделю, день с максимальным доходом и размер дохода в этот день

Sheets("Результат").Select

Sheets("Результат").Cells(22, 1) = "Общий доход колхоза за 3 года"

Sheets("Результат").Cells(22, 6) = zar(6)

Sheets("Результат").Cells(23, 1) = "Вид цветов, принесший максимальный доход за 2 года"

Sheets(" Результат ").Cells(23, 6) = " Розы "

End Sub

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

Проверка программы на всех единицах:

Проверка на всех нулях:

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