Основы работы с редакторами MS Word, MS Excel и Visual Basic

Задача 1

 

Найти корни квадратного уравнения Ах² + Вх + С = 0 по соотношениям X1 = (-B+D)/A/2; X2 = - (B+D)/A/2, где D=(B² -4AC)^0.5

Лист Excel:

Таблица word (использованием макросов):

Коэффициент А=
Коэффициент В=
Коэффициент С=
Дискриминант D=
Корень Х1=
Корень Х2=

Таблица Word (использование меню Таблица à Формула, при изменении входных данных для обновления результатов необходимо в контекстном меню результатов выбрать строку Обновить поле)

Коэффициент А=	5
Коэффициент В=	10
Коэффициент С=	-4
Дискриминант D=	180
Корень Х1=	-2,342
Корень Х2=	0,342

Формулы сокращенного умножения:

Гиперссылки на файл , место в документе, электронную почту.

Задача – Вычисление параметров треугольника

Исходные данные:
Сторона А=	4
Сторона B=	6
Сторона C=	5
Результаты:
Косинус угла	0,75
Косинус угла	0,12
Косинус угла	0,56
Периметр	15
Площадь	9,922

Задача 2

 

Создайте ведомость любого содержания с помощью таблиц редактора Word. (ведомость на выдачу заработной платы.)

 

Минимальный оклад	Отчисления в фонды	Подоходный налог
132	1	13
Фамилия	Год рожден.	Разряд	Начислить	В фонды	Налоги	К выдаче
Репка	2004	12	1584	15,84	205,92	1362,24
Бабка	1948	11	1452	14,52	188,76	1248,72
Дедка	1940	17	2244	22,44	291,72	1929,84
Внучка	1980	15	1980	19,8	257,4	1702,8
Жучка	1999	8	1056	10,56	15,84	1029,6
Мышка	2003	3	396	3,96	51,48	340,56

Задача 3

 

Запишите макрорекордером код любой операции форматирования текста.

 

 или меню Сервис à Макрос… à Макросы à Макрос1 à Выполнить.

 

Задача 4

Вычисление расстояний от точки прямой линии до плоскости; вычисление расстояния между плоскостями.

Расстоянием от точки до плоскости называется длина перпендикуляра, опущенного из точки на плоскость. Расстояние от точки М(х₁, y₁, z₁) до плоскости Ax + By + Cz + D = 0 вычисляется по формуле

Расстояние между плоскостями  и  можно определить как расстояние между прямыми, лежащими в этих плоскостях и заданными своими направляющими векторами ,  и точками, через которые они проходят ,  соответственно. Известно, что прямая лежит на плоскости тогда и только тогда, когда

.

Координаты точек можно взять такими:

.

Расстояние между прямыми находят по формуле

.

С учётом того, что известны уравнения плоскостей (коэффициенты), получим следующий вид формулы:

Решим поставленную задачу.

В таблицах Word.

Исходные данные:
Координаты точки М:	x	y	z
	1	0	4	1,5
Коэффициенты в уравнении плоскости π:	A	B	C	D
	4	2	3	1
Коэффициенты в уравнении плоскости π1:	-3	2	4	4
Коэффициенты в уравнении плоскости π2:	-2	1	3	0
Результаты:
Расстояние от точки М до плоскости π:	3,16
Расстояние между плоскостями π1 и π2:	0,41

В таблицах Excel.

Создайте функцию пользователя для Мастера Функций

В редакторе Visual Basic создадим модуль с функциями:

Dim m(3), p(4), p1(4), p2(4) As Double

Function RastMPi(m, p) As Double

RastMPi = Abs(p(1) * m(1) + p(2) * m(2) + p(3) * m(3) + p(4)) / ((p(1)) ^ 2 + (p(2)) ^ 2 + (p(3)) ^ 2) ^ 0.5

End Function

Function RastP1P2(p1, p2) As Double

RastP1P2 = Abs((p1(4) / p1(3) - p2(4) / p2(3)) * (p1(1) * p2(2) - p2(1) * p1(2))) / ((p1(2) * p2(3) - p2(2) * p1(3)) ^ 2 + (p1(1) * p2(3) - p2(1) * p1(3)) ^ 2 + (p1(1) * p2(2) - p2(1) * p1(2)) ^ 2) ^ 0.5

End Function