Консультации Портала - Консультация #178920

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 178920

05.06.2010, 17:46

0.00 руб.

0 1 1

Компьютеры Программирование

Здравствуйте! Цитирую сообщение моей однокурстцы -
Мое имя Светлана. Я студентка 3-го курса экономического отделения по специальности «Менеджмент организации» Удмуртского государственного университета.
Обращаюсь к Вам за помощью. Очень надеюсь, что вы войдете в мое положение, поймете и поможете. Дело в том, что я вынуждена совместно с учебой еще и работать… И у меня совсем нет времени решить некоторые задания по дисциплине «Информационные технологии в экономике». Да и ко всему этому я не очень-то понимаю, что от меня требуется в этих заданиях и как их решить… Очень нуждаюсь в вашей помощи…

Пожалуйста, помогите решить эти задания.
Вот их содержание:
1. Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до А минут в месяц – по В руб., а разговоры сверх установленной нормы оплачиваются из расчета С руб. за минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

Есть некоторые правила к выполнению:
1. В работе необходимо выполнить алгоритмические задачи с использованием базовых типов данных и основных операторов языка программирования VBA.
2. Темы задач: простые вычислительные алгоритмы, работа с переменными типа строка, работа с одномерным массивом, работа с двумерным массивом, работа с переменными типа запись.
3. Задачи на проверку представить в виде файлов Word либо Excel, с кодом программы, выполненном в среде VBA соответствующего компонента Office (желательно в Excel) .
4. В программах обязательно наличие комментариев, поясняющих основные алгоритмические шаги.
Заранее благодарю. Светлана

Обсуждение

Неизвестный

05.06.2010, 18:20

общий

это ответ

Здравствуйте, Ананьев Рудольф Олегович.
Данный код следует выполнять строго в Excel, т.к. используется его встроенная функция InputBox, которая позволяет контролировать соответствие типа введенного выражения.
Во вложении уже готовый файл Excel.

Код:

Sub ОплатаРазговоров()
Const Норма As Integer = 100 ' норма разговоров в месяц (А в задании)
Const Тариф_норма As Currency = 1.13 ' тариф за минуту (В в задании)
Const Тариф_сверх_нормы As Currency = 2.2  ' тариф сверх нормы (С в задании)

Dim Количество_минут As Integer ' сколько минут выговорено в месяц
Dim Сумма_оплаты As Currency ' сумма для оплаты
' для ввода количества минут используется встроенная функция InputBox. Её версия в Excel имеет еще один аргумент Type. Значение 1 показывает, что должно быть введено число
Количество_минут = Application.InputBox(prompt:="Введите общее время разговоров в месяц в минутах", Title:="Расчет оплаты за телефон", Default:=0, Type:=1)
If Количество_минут = 0 Then Exit Sub ' ничего не введено, значит выход из расчета
Сумма_оплаты = IIf(Количество_минут < Норма, Количество_минут * Тариф_норма, Норма * Тариф_норма + (Количество_минут - Норма) * Тариф_сверх_нормы) ' расчет стоимости
MsgBox prompt:="За текущий месяц Вы должны заплатить " & Сумма_оплаты & " рублей.", Buttons:=vbOKOnly, Title:="Сумма оплаты" ' вывод сообщения с суммой к оплате
End Sub

Прикрепленные файлы:

178920-261899.xls

скачать (23.00 кБ)

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.