Функции ОС по установке, исполнению и удалению приложений
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
°кой задачи выступают:
тариф на кв.м. - tarif_kvm (руб./в сутки)
стоимость пользования лифтом - lift (руб./в сутки)
тариф по отопление - tarif_otop (руб./в сутки)
тариф на газ - tarif_gaz (руб./в сутки)
тариф на воду - tarif_h2o (руб./в сутки)
количество квартир - kv (шт.)
расчетный год - year
В частности для каждой квартиры при расчете квартплаты необходимо иметь следующие исходные данные:
площадь квартиры - sq (м2)
этаж - et (номер)
число жильцов - people (шт.)
Соответственно для каждого месяца и каждой квартиры необходимо рассчитать следующее
1)Определить количество дней в расчетном месяце
2)Путем перемножения тарифов на количество жильцов и на количество дней в расчетном месяце, определяется стоимость квартплаты. Критерием пользования лифтом является этаж, на котором расположена квартира. Если этаж не первый, то взимается плата за пользование лифтом с каждого жильца
)Вывод полученных результатов. Результаты должны выводиться по месяцам, а затем по квартирам
Разработка алгоритма решения задачи
Буду ориентироваться на данные в задании рекомендации от автора методических указаний, т.е. организация вложенного цикла, где внешний цикл по месяцам года, внутренний по числу квартир. Чтобы во внутреннем цикле не повторять ввод исходных данных необходимо их ввести по условию первого захода во внутренний цикл, т.е. при подсчетах квартплаты за январь (первый месяц года).
Блок-схема алгоритма программы приведена ниже. Программный код напишем на языке программирования Visual Basic 6.0
Разработка машинной программы задачи на языке программирования
Option ExplicitSub Form_Load()_lift.Text = CSng(1.4)_tarif_gaz.Text = "50"_tarif_h2o.Text = CSng(137.88)_tarif_kvm.Text = CSng(1.1)_tarif_otop.Text = CSng(9.61)_year.Text = 2008SubSub run_Click()kv As Integer, et As Integer, people As Integer, s As String, _(1 To 12) As Integer, j As Integer, i As Integer, _As Single, tarif_gaz As Single, tarif_h2o As Single, __kvm As Single, tarif_otop As Single, Year As Integer, _As Integer, tarif As Single, sq As Single
Rem чтение исходных данных= CSng(text_lift.Text)
tarif_gaz = CSng(text_tarif_gaz.Text)_h2o = CSng(text_tarif_h2o.Text)_kvm = CSng(text_tarif_kvm.Text)_otop = CSng(text_tarif_otop.Text)= CInt(text_year.Text)
s = "Ввод исходных данных"Кнопка Расчет
With Gr
.Cols = 16
.Col = 0:.Row = 0:.Text = "№кв."
.Col =.Col + 1:.Text = "Жильцов"
.Col =.Col + 1:.Text = "Этаж"
.Col =.Col + 1:.Text = "Кв.м"
.Col =.Col + 1:.Text = "Январь": m(1) = 31
.Col =.Col + 1:.Text = "Февраль": m(2) = 28
.Col =.Col + 1:.Text = "Март": m(3) = 31
.Col =.Col + 1:.Text = "Апрель": m(4) = 30
.Col =.Col + 1:.Text = "Май": m(5) = 31
.Col =.Col + 1:.Text = "Июнь": m(6) = 30
.Col =.Col + 1:.Text = "Июль": m(7) = 31
.Col =.Col + 1:.Text = "Август": m(8) = 31
.Col =.Col + 1:.Text = "Сентябрь": m(9) = 30
.Col =.Col + 1:.Text = "Октябрь": m(10) = 31
.Col =.Col + 1:.Text = "Ноябрь": m(11) = 30
.Col =.Col + 1:.Text = "Декабрь": m(12) = 31
kv = InputBox("Количество квартир в доме", s, "12")
.Rows = kv + 1Определяем високосный год
y = Year / 4y * 4 = Year Then m(2) = m(2) + 1
For i = 1 To 12 цикл по месяцамj = 1 To kv цикл по квартирамi = 1 Then ввод исходных данных
.Row = j
.Col = 0:.Text = CStr(j)
people = CInt(InputBox("Количество жильцов в квартире " + Str(j), s, 1))
.Col =.Col + 1:.Text = CStr(people)= CInt(InputBox("Этаж квартиры " + Str(j), s, 1))
.Col =.Col + 1:.Text = CStr(et)= CSng(InputBox("Площадь квартиры " + Str(j), s, 1))
.Col =.Col + 1:.Text = CStr(sq)
Else чтение ранее введенной информации
.Row = j
.Col = 1: people = Val(.Text)
.Col =.Col + 1: et = Val(.Text)
.Col =.Col + 1: sq = CSng(.Text)If= (tarif_kvm * sq * m(i) + text_tarif_gaz + tarif_h2o) * people + tarif_otopet <> 1 Then tarif = tarif + lift * people * m(i)
.Col = i + 3:.Text = Format(tarif, "#.00")jiWith
End Sub
Разработанная экранная форма
Текстовый пример работы
Окно программы после запуска
Ввод исходных данных
И т.д.
Результаты расчета
Список использованных источников
1.
2.Меженный О. А. Microsoft Office Word 2003. Самоучитель. - Киев: Диалектика, 2004 г. - 272 стр., с ил.
.