Задача 1
Найти корни
квадратного уравнения Ах2 + Вх + С = 0 по соотношениям X1 = (-B+D)/A/2; X2 = - (B+D)/A/2, где D=(B2 -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
Вычисление расстояний от
точки прямой линии до плоскости; вычисление расстояния между плоскостями.
Расстоянием от точки до
плоскости называется длина перпендикуляра, опущенного из точки на плоскость.
Расстояние от точки М(х1, y1, z1) до плоскости 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
1.
Используя
макрорекордер, создайте макрос для задачи.
2.
Закрепите его за
элементом управления в тексте документа или рабочей книги.
В среде VBA создадим форму вида:
На нажатие кнопки
Рассчитать определим процедуру:
Private Sub
CommandButton1_Click()
Dim x, y, z,
A, B, C, D, A1, B1, C1, D1, A2, B2, C2, D2 As Double
x =
Int(TextBox1.Text)
y =
Int(TextBox2.Text)
z =
Int(TextBox3.Text)
A =
Int(TextBox4.Text)
B =
Int(TextBox5.Text)
C =
Int(TextBox6.Text)
D =
Int(TextBox7.Text)
A1 =
Int(TextBox11.Text)
B1 =
Int(TextBox10.Text)
C1 =
Int(TextBox9.Text)
D1 =
Int(TextBox8.Text)
A2 =
Int(TextBox15.Text)
B2 =
Int(TextBox14.Text)
C2 =
Int(TextBox13.Text)
D2 =
Int(TextBox12.Text)
Label9.Caption
= Str(Abs(A * x + B * y + C * z + D) / (A ^ 2 + B ^ 2 + C ^ 2) ^ 0.5)
Label10.Caption
= Str(Abs((D1 / C1 - D2 / C2) * (A1 * B2 - A2 * B1)) / ((B1 * C2 - B2 * C1) ^ 2
+ (A1 * C2 - A2 * C1) ^ 2 + (A1 * B2 - A2 * B1) ^ 2) ^ 0.5)
End Sub
В результате получим
следующее решение:
Задача 5
Определить наличие корня
функции на
интервале [x1,x2] и построить её график. Найти те значения
коэффициентов А,В при котором на заданном интервале есть корень.
При заданном значении коэффициентов А,В подобрать интервал,
содержащий корень функции.
Для нахождения интервала
пользуемся средствами Поиска решения, устанавливая следующие
параметры (дополнительное ограничение на интервал: , т.к. функция имеет именно такую
область определения):
Для нахождения
коэффициентов также пользуемся средствами Поиска решения, устанавливая
следующие параметры:
В обоих случаях после
нажатия кнопки Выполнить, появляется следующее окно, в котором нужно
только нажать кнопку ОК:
Найдём решение данной
задачи с использованием формы пользователя.
Задача 6
Реализовать задачу своего
варианта средствами VBA любого
приложения, используя стандартный модуль, форму пользователя, элементы
управления в документе, книге.
Вычисление числа
сочетаний, размещений, перестановок.
Используя элементы
управления:
Исходные данные: |
|
m= |
|
n= |
|
Результаты: |
|
Число сочетаний
|
|
Число размещений
|
|
Число перестановок
|
|
Используя форму
пользователя:
Создадим форму вида:
На нажатие кнопки
Рассчитать определим следующую процедуру:
Private Sub
CommandButton1_Click()
m =
TextBox1.Text
n =
TextBox2.Text
If m < n
Then
Label6.Caption
= Fact(n) / (Fact(m) * Fact(n - m))
Label7.Caption
= Fact(n) / Fact(n - m)
Label8.Caption
= Fact(n)
Else
response =
MsgBox("Введите n > m", vbOKOnly,
"Ошибка ввода данных")
Label6.Caption
= ""
Label7.Caption
= ""
Label8.Caption
= ""
End If
End Sub
В тексте процедуры
используется вспомогательная функция, подсчитывающая значение n! Приведём текст данной функции:
Function
Fact(n) As Long
If n = 0 Then
Fact = 1
Else
Fact = Fact(n
- 1) * n
End If
End Function
Другие работы по теме:
Импорт таблиц EXCEL в текстовый документ WORD
Вопрос 12. Импорт таблиц EXCEL в текстовый документ WORD. Microsoft Excel – мощная программа для работы с электронными таблицами, являющаяся, также как и Word, частью пакета Microsoft Office. Обладая достаточно широкими возможностями и высокой степенью интеграции с другими приложениями Office и Windows вообще, Excel стала наиболее популярной программой среди людей, постоянно имеющих дело с огромными массивами чисел.
Изучение EXCEL
Институт дистантного образования Российского университета дружбы народов Факультет: ЮРИДИЧЕСКИЙ По курсу: “Информатика” Р Е Ф Е Р А Т на тему: Изучение “Microsoft Excel ”.
Microsoft Exel
ВОПРОСЫ К ЭКЗАМЕНУ ПО ИНФОРМАТИКЕ 2 семестр Табличные процессоры. Классификация. Табличный процессор Excel. Назначение. Основные приемы работы в Excel: ведение рабочей книги.
Описание VBA
ВВЕДЕНИЕ Microsoft Excel имеет встроенный язык программирования - Visual Basic for Аpplications (VBA). Этот язык позволяет создавать приложения, выполняемые в среде Microsoft Office. Это могут быть разнообразные аналитические программы, финансовые системы, программы учета кадров, системы автоматического создания официальных писем/документов с помощью библиотеки готовых шаблонов и т.п.
Мови та системи програмування
ІНФОРМАТИКА Тема: Мови та системи програмування Однією з найпоширеніших мов з програмування серед сучасних мов високого рівня, що використовуються в ПК, є мова Visual BASIC.
Microsoft Visual Basic 5 0
Microsoft Visual Basic 5.0 Microsoft Visual Basic 5.0 - это мощная система программирования, позволяющая быстро и эффективно создавать приложения для Microsoft Windows’95 и Microsoft Windows’NT
Color Theory Essay Research Paper Color TheoryColor
Color Theory Essay, Research Paper Color Theory Color theory encompasses a multitude of definitions, concepts and design applications. All the information would fill several encyclopedias. As an introduction, here are a few basic concepts.
Words Essay Research Paper What is a
Words Essay, Research Paper What is a word? A word is defined as a speech sound, or series of them, serving to communicate meaning. People have been taught that certain words have certain meanings, some good, some bad and some both. A word is not responsible for the meaning it is intended to have, and therefore, no word is a bad word.
Information Methods Essay Research Paper The aim
Information Methods Essay, Research Paper The aim of this assignment was to show and explain the value and importance of information and the tools readily accessible to us as students. We were to investigate the individual components of Access, Excel, Word and Powerpoint, then to transform, manipulate and present the information we gathered.
Dada Essay Research Paper Dada
Dada Essay, Research Paper Dada “What the heck is dada?” I’m sure many people ask when they see or hear the word dada. In french the word means “hobbyhorse”. In a couple European languages, separated, the word means “yes, yes”. No one really agrees on how the name came about. Even the creator of this anti-trend, Romanian born, Tristan Tzara.
The Choice Essay Research Paper Abortion the
The Choice Essay, Research Paper Abortion the most personal choice a woman may ever have to make. To choose abortion would mean to terminate a fetus . To clarify the word fetus is in the Meriiam-Webester Dictionary as:”an unborn or unhatched vertabrate esp. especially after its basic structure has been laid down est. especially a developing human being in the uterus from usu. three months after pregancyoccurs”
Convergence Of The Twain Essay Research Paper
“The Convergence of the Twain” Personification is “endowing inanimate objects or abstract ideas with life or human characteristics” (Kirszner 2058). In the poem “The Convergence of the Twain” the author?s use of personification allows the reader to make a more fluid transition from the past to the present.
Basic Robotics Essay Research Paper What makes
Basic Robotics Essay, Research Paper What makes a robot? What is a robot? Well the term robot originally comes from Russia. A Czeck playwright, Karek Capek wrote a play in 1921 (translated in 1923) called “R.U.R.:Rossum’s Universal Robots.”. The word he adapted is the Czech word “robota” meaning “servitude” or “statute labour”.
The NonDesigner
’s Design Book Essay, Research Paper The Non-Designer s Design Book By Robin Williams I chose this book because I am very interested in the design of a page, whether it be an advertisement, invitation, or feature story. I learned some important principles to follow. This book was easy to read and understand.
Swearing Essay Essay Research Paper Cussing using
Swearing Essay Essay, Research Paper Cussing, using profane language, making obscene gestures, whatever its called it is swearing. Swearing has become a common expressions this day in age and used
Costa Sakellariou Essay Research Paper Costa Sakellariou
Costa Sakellariou Essay, Research Paper Costa Sakellariou Visual art can definitely be seen as a language. With every artist there is always some sort of meaning that they are trying to convey to the viewers of their work. The means of how they deliver that message is the language in which their work uses. In Costa Sakellariou?s work I especially felt there was some sort of language being spoken.
Learning Styles Essay Research Paper LEARNING STYLESPeople
Learning Styles Essay, Research Paper LEARNING STYLES People not only learn at different rates, but also in different ways. Some people want everything written down, others prefer to listen. Some prefer small group settings rather than large group discussions; others like to listen to a lecture and translate it into pictorial doodles in a notebook.
Success Essay Research Paper SuccessWhen we define
Success Essay, Research Paper Success When we define at the word success, there are many meaning to it depending on how you look at it. But when we narrow it down, we can defined it as accomplishing a certain goal.
Visual Art Essay Research Paper VISUAL ARTS
Visual Art Essay, Research Paper VISUAL ARTS “The physical impossibility of death in the mind of someone living” By Damien Hirst (photo courtesy of the saatchi collection)
The Biblical Basis For Christian Education Essay
, Research Paper The Biblical Basis For Christian Education In my opinion I feel that the biblical basis of educational ministries are four basic ideas that teaching should be seen as a light of the world, it should bring out old as well as new feelings in people, be an example to all mankind, and be followed always.
Bill Gates Essay Research Paper Bill GatesThe
Bill Gates Essay, Research Paper Bill Gates The Chairman and Chief Software Architect of Microsoft William Gates III was born in October 28, 1955. He lived in Seattle with his father who is a Seattle attorney, his mother who was a chairwoman of United Way International, and his two sisters.
William Carlos And His Poetry Essay Research
Paper William Carlos Williams The Red Wheelbarrow and The Rose Throughout my years in high school I was interested in poetry. I liked reading it and even wrote sometimes just for pleasure and fun. When I was in 11th grade my English teacher told me: the poet is the person possessing the word of the creative imagination .
Is Cobol Dead Essay Research Paper Is
Is Cobol Dead Essay, Research Paper Is COBOL dead? To be completely honest, I originally had no idea. I knew that I took it as programming class last semester, but I didn’t know how it applied to the business world. Nor, had it ever crossed my mind in the 3+ months that I used it. The fact that you asked the question made me wonder myself, so I had to do some reading.
What Does The Word Parent Mean To
You? Essay, Research Paper What does the word parent mean to you? The definition of this word is, one who begets, gives birth to, or nurtures and raises a child; a father or a mother.
Microsot Word 2000 Essay Research Paper Name
Microsot Word 2000 Essay, Research Paper Name and Type: -Microsot Word 2000 -Word Processor Producer/Maker: -Microsoft Corporation -The creator of the popular Windows operating system founded by Bill Gates.