Студопедия  
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Написать функцию для вычисления корней квадратного уравнения , где коэффициенты a, b и с задаются пользователем.

Читайте также:
  1. A) такие уравнения, которые имеют одни и те же корни.
  2. I. Параметры абзацазадаются командойФормат→Абзац
  3. а) найти уравнения прямых регрессии, построить их графики на одном чертеже с эмпирическими линиями регрессии и дать экономическую интерпретацию полученных уравнений;
  4. Алгоритм 2. Расчет параметров уравнения парной линейной регрессии
  5. Алгоритм вычисления количества элементов массива удовлетворяющих условию
  6. Алгоритм вычисления КРК Спирмена.
  7. Арифметические вычисления
  8. В Казахстане какой банк выполняют функцию главного эмиссионного центра?
  9. В конце написать общий вывод по каждой группе коэффициентов с оценкой финансового состояния предприятия в целом.
  10. В социально-экономической сфере рынок осуществляет функцию

 

1. Создайте новый документ Excel и сохраните его под именем «Лабораторная работа_4_2».

2. Откройте редактор VB с помощью команды меню Разработчик-> Visual Basic

3. Стираем все, что есть в окне редактора и набираем код:

Function KorenX1(a, b, c)

d=b*b-4*a*c

if D>0 then

KorenX1=(-b+sqr(d))/(2*a)

else

if D=0 then

KorenX1=-b/(2*a)

else

KorenX1= val("Корней нет")

endif

endif

End Function

 

Function KorenX2(a, b, c)

d=b*b-4*a*c

if D>0 then

KorenX2=(-b-sqr(d))/(2*a)

else

if D=0 then

KorenX2=-b/(2*a)

else

KorenX2= val("Корней нет")

endif

endif

End Function

4. Сохранить файл программы.

5. Закрыть окно редактора.

6. На листе Excel в столбцах A, B, C ввести значения коэффициентов a =1, b=2, c=1.

7. В столбце D рассчитать по функции KorenX1 значение корня X1 квадратного уравнения вида ax2+bx+c=0. Для этого введите «=KorenX1(A2;B2;C2)».

8. В столбце E рассчитать по функции KorenX2 значение корня X2 квадратного уравнения вида ax2+bx+c=0. Для этого введите «=KorenX2(A2;B2;C2)».

9. Сохранить файл.

10. Поменяйте значения коэффициентов и рассчитайте снова.

Самостоятельно

1.Написать функцию, рассчитывающую значение функции

2. Написать функцию для вычисления значений функции

3. Даны три стороны a, b, c, удовлетворяющие аксиомам треугольника. Если треугольник равносторонний, то найти его площадь. Если треугольник равнобедренный, то найти периметр и угол между равными сторонами, во всех остальных случаях вывести сообщение «треугольник не является равносторонним или равнобедренным.



Дата добавления: 2015-01-05; просмотров: 8 | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2019 год. (0.011 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав