Лабораторные работы на тему Написать программу вычисления корней уравнения и рисования графика функции: -b*sin(х) +d*cos(x) = -4 в зависимости от заданных значений b и d.

Остался всего один шаг
Внесите свои контактные данные и переходите в кабинет для просмотра предложений авторов
Введите номер телефона
Укажите имя
Укажите адрес электронной почты
Укажите корректный адрес электронной почты
Номер заказа
397 131
Создан
13.04.2015
Автор работы
lady.zudinowa
Цена
800 p.
Выполнен
29.04.2015
Рейтинг автора
10
Примечание
Уважаемые студенты, для выполнения практического задания вам необходимо:

1. Запустить Microsoft Word или Microsoft Excel

2. Комбинацией клавиш Alt+F11 запустить редактор Visual Basic или создать и отредактировать макрос.

3. Разработать алгоритм решения задачи

4. По разработанному алгоритму написать программу

5. Проверить работоспособность программы, запуская макрос или используя элементы управления Visual Basic

6. Сохранить созданный файл и прислать преподавателю
Задание 1.2. Составить программу вычисления функции y =12 a 2 +7 a при любом значении « a ».
Пример выполнения задания.
Private Sub cmdButton1_2_Click() 'Выполнение задания 1.2
'Служебная информация для ввода значения "а"
Const BoxTitle = "Ввод данных"
'Определение переменных
Dim sA As String 'Строковая переменная для ввода значения "а"
Dim rA As Double 'переменная "а"
Dim rY As Double 'переменная "у" типа Double
Dim sY As String 'переменная типа String для вывода результата
'Ввод значения переменной "а" требует контроля вводимого значения
sA = InputBox("Введите значение переменной a" & Chr(13) & "(Десятичные отделяются знаком запятая)", BoxTitle)
On Error Resume Next 'активация механизма обработки ошибки
rA = CDbl(sA) 'преобразование из типа string в тип Double
'проверка сообщения об ошибке
If Err.Number <> 0 Then 'если произошла ошибка
MsgBox ("Введены неверные данные") 'Сообщение об ошибке
Else 'если нет ошибки, то произвести вычисления
rY = (12 * (rA ^ 2)) + (7 * rA) 'вычисление
sY = CStr(rY) 'преобразование результата из типа Double в String
MsgBox ("Результат вычисления: y = " & sY) 'показать результат вычисления
End If

End Sub
Подробнее
Этот заказ уже выполнил наш автор. Напишем и Вам уникальную работу!
Быстрая оценка работыБесплатно
Оценим Вашу работу за 10 минут
Бесплатно
Для оценки заполните поля
Укажите тему работы
Укажите предмет
Укажите срок сдачи
Отправить работу на оценку
Последние отзывы об авторе lady.zudinowa
Кирилл
Огромное спасибо автору! Работа сделана в срок и без нареканий. Качество на высшем уровне!
...
2015-01-22 09:51:02
Андрей
Огромное спасибо! Вы меня спасли! Работа сдана на отлично!
...
2015-01-25 08:34:02
Максим
Спасибо Вам большое! Работа выполнена на все 100%!
...
2015-01-25 15:34:03