Длина катета в excel - Word и Excel - помощь в работе с программами

0 / 0 / 0

Регистрация: 03.11.2022

Сообщений: 11

Excel

08.12.2022, 18:48. Показов 653. Ответов 4

Добрый вечер друзья, помогите, пожалуйста, написать эту задачу в VBA

1.Даны длина катета, найти длину гипотенузы
2.Найти количество дней между датами.
3.Написать функцию, вставляющую подстрока в строку с заданной позицией.

за ранее благодарю

АЕ

ᴁ®

3070 / 1736 / 361

Регистрация: 13.12.2016

Сообщений: 5,938

Записей в блоге: 4

08.12.2022, 20:04

Сообщение было отмечено Medellin как решение

Решение

Medellin, обработку ошибок, проверки и красивости не делал. т.к. задание учебное.

Visual Basic

Public Sub med1()
Dim k1 As Double, k2
k1 = InputBox("Длина катета")
k2 = InputBox("Еще Длина катета")
x = Sqr(k1 * k1 + k2 * k2)
MsgBox "Длина гипотенузы = " & x, vbInformation
End Sub
 
Public Sub med2()
Dim k1 As Variant, k2
k1 = InputBox("Первая дата")
k2 = InputBox("Вторая дата")
x = DateDiff("d", k1, k2)
MsgBox "дней между датами = " & Abs(x), vbInformation
End Sub
 
Public Sub med3()
Dim k1 As Variant, k2, p
k1 = InputBox("Первая строка")
k2 = InputBox("Вторая строка")
p = InputBox("позиция")
x = Left(k1, p) & k2 & Right(k1, Len(k1) - p)
MsgBox "вставляющую подстрока в строку с заданной позицией = " & x, vbInformation
End Sub

Angry Old Man

1522 / 398 / 175

Регистрация: 26.03.2022

Сообщений: 738

08.12.2022, 20:41

Задание учебное, ввод данных во избежание ошибок и необходимости контроля правильности не делал. Если надо, можете разбить код на 3 отдельные процедуры.

Visual Basic

Option Explicit
Sub Medellin()
 
Const Cathet1 As Double = 5
Const Cathet2 As Double = 8.66
Dim Hypotenuse As Double
Hypotenuse = Sqr(Cathet1 ^ 2 + Cathet2 ^ 2)
MsgBox "Катет 1 =" + vbTab + vbTab + Format(Cathet1, "0.00") + vbCr + _
        "Катет 2 =" + vbTab + vbTab + Format(Cathet2, "0.00") + vbCr + _
        "Гипотенуза =" + vbTab + Format(Hypotenuse, "0.00"), 64, "Задача 1"
 
Const Date1 As Date = "28.02.2021"
Const Date2 As Date = "28.02.2022"
Dim Days As Long
Days = CLng(Date2 - Date1)
MsgBox "Дата 1 =" + vbTab + vbTab + CStr(Date1) + vbCr + _
        "Дата 2 =" + vbTab + vbTab + CStr(Date1) + vbCr + _
        "Дата2-Дата1(дней)=" + vbTab + CStr(Days), 64, "Задача 2"
 
Const Str1 As String = "1234567890"
Const Str2 As String = "abcdefgh"
Const N As Integer = 5
Dim NewStr As String
NewStr = InsertIn(Str1, Str2, N)
MsgBox "Строка1 =" + vbTab + """" + Str1 + """" + vbCr + _
        "Строка2 =" + vbTab + """" + Str2 + """" + vbCr + _
        "Новая строка =" + vbTab + """" + NewStr + """", 0, "Задача 3"
 
End Sub
 
Function InsertIn(s1 As String, s2 As String, i As Integer) As String
    InsertIn = Mid(s1, 1, i) + s2 + Mid(s1, i + 1)
End Function

0 / 0 / 0

Регистрация: 03.11.2022

Сообщений: 11

08.12.2022, 20:59

[ТС]

это получается нужно в UserForm прописать?…

ᴁ®

3070 / 1736 / 361

Регистрация: 13.12.2016

Сообщений: 5,938

Записей в блоге: 4

08.12.2022, 22:44

Сообщение от Medellin

это получается нужно в UserForm прописать?…

По крайней мере мой код никуда прописывать не надо. Сам спросит что вводить и даст ответ.
Ну а у коллеги код и спрашивать не будет. Он в коде все переменные определил для чего-то.
Когда просят для UserForm, то обычно говорят об этом. А я сделал именно то, что попросили, вплоть до грамматики.

IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604	08.12.2022, 22:44
5

Источник

Любой треугольник имеет шесть элементов: три стороны и три угла. На рисунке ниже показан прямоугольный треугольник, который имеет три угла (А, В и С), а также три стороны (гипотенузу, основание и высоту). Угол С всегда равен 90° (или π/2 радиан), поэтому, если известны два других элемента этого треугольника (исключая угол С), то с помощью определенных формул всегда можно вычислить остальные элементы.

Рабочую книгу, содержащую формулы расчета различных элементов прямоугольного треугольника по двум известным элементам, можно скачать с нашего сайта.
[lock]

скачать бесплатно

[/lock]

Рис. 1. Элементы прямоугольного треугольника

Вспомните, как выглядит теорема Пифагора: Высота^2+Основание^2=Гипотенуза^2. Если известны две стороны прямоугольного треугольника, всегда можно вычислить третью. Например, следующая формула вычисляет высоту прямоугольного треугольника по данным длин гипотенузы и основания: =КОРЕНЬ(Гипотенуза^2-Основание^2). В другой формуле, вычисляющей основание прямоугольного треугольника, используются
гипотенуза и высота: =КОРЕНЬ((Гипотенуза^2)-(Высота^2)). Для формулы расчета гипотенузы прямоугольного треугольника нужно задать основание и высоту: =КОРЕНЬ((Высота^2)+(Основание^2)).

Верны также приведенные ниже тригонометрические тождества:

SIN(А) = Высота/Гипотенуза
SIN(В) = Основание/Гипотенуза
COS(А) = Основание/Гипотенуза
COS(В) = Высота/Гипотенуза
TAN(А) = Высота/Гипотенуза

Все тригонометрические функции Excel подразумевают, что угол, являющийся аргументом функции, представлен в радианах. Для преобразования градусов в радианы используйте функцию РАДИАНЫ. Для обратного преобразования радиан в градусы примените функцию ГРАДУСЫ.

Если известны высота и основание, следующую формулу можно использовать для вычисления угла между гипотенузой и основанием (угол А): =ATAN(Высота/Основание). Формула, приведенная выше, возвращает значение угла в радианах. Для преобразования значения в градусы используйте следующую формулу: =ГРАДУСЫ(ATAN(Высота/Основание)). Если известны высота и основание, следующая формула может использоваться для вычисления угла между гипотенузой и высотой (угол В): =ПИ()/2-ATAN(Высота/Основание). Данная формула возвращает значение в радианах. Для преобразования значения в градусы используйте следующую формулу: =90-ГРАДУСЫ(ATAN(Высота/Основание).

На рис. 2 показана рабочая книга, которая содержит формулы для вычисления различных элементов прямоугольного треугольника.

Рис. 2. Данная рабочая книга пригодится для вычисления элементов прямоугольных треугольников

Источник

Резюме

Чтобы вычислить самую длинную сторону (гипотенузу) прямоугольного треугольника в Excel, вы можете использовать формулу, основанную на теореме Пифагора, адаптированную для использования математических операторов и функций Excel. В показанном примере формула в D5, скопированная ниже, имеет следующий вид:

=SQRT(B5^2+C5^2)

который возвращает длину гипотенузы с учетом длины стороны a и стороны b, указанной в столбцах B и C соответственно.

Объяснение

Теорема Пифагора — ключевой принцип евклидовой геометрии. В нем говорится, что квадрат самой длинной стороны прямоугольного треугольника (гипотенуза) равен сумме квадратов двух других сторон. Теорема записывается в виде следующего уравнения:

а ² + Ь ² = с ²

Когда известны любые две стороны, это уравнение можно использовать для решения третьей стороны. Когда a и b известны, длину гипотенузы можно вычислить с помощью:

Когда известны b и c, длину стороны a можно рассчитать с помощью:

Когда a и c известны, длину стороны b можно рассчитать с помощью:

Чтобы перевести приведенное выше в синтаксис формулы Excel, используйте оператор возведения в степень (^) и функцию КОРЕНЬ, как показано ниже. Теорема Пифагора может быть записана как:

=a^2+b^2=c^2 // pythagorean theorem

Приведенные ниже формулы можно использовать для решения каждой из трех сторон:

c=SQRT(a^2+b^2) // hypotenuse a=SQRT(c^2-b^2) // side a b=SQRT(c^2-a^2) // side b

Вместо оператора возведения в степень вы также можете использовать функцию POWER следующим образом:

c=SQRT(POWER(a,2)+POWER(b,2)) a=SQRT(POWER(c,2)-POWER(b,2)) b=SQRT(POWER(c,2)-POWER(a,2))

Приведенные выше формулы являются примером вложения одной функции в другую.

Источник

Построить таблицу
значений периметра и площади прямоугольного
треугольника при изменении длин его
катетов от 1см до 10см с шагом 1см.

Периметр
прямоугольного треугольника вычисляется
по формуле:

где a,b,
— катеты, c
–гипотенуза, которая вычисляется по
формуле:

Площадь прямоугольного
треугольника вычисляется по формуле:

Для решения задачи
построим шапку таблицу:

	А	В	С	D	E
1	Катеты	Гипотенуза	Периметр	Площадь
2	a	b	c
3
4

Теперь занесем
формулы. В столбец А
занесем значения катета a=1,
в столбец

В – значения
катета b
от 1до 10 с шагом 1.

	А	В	С	D	E
1	Катеты	Гипотенуза	Периметр	Площадь
2	a	b	c
3	1	1
4	1	2
5	1	3
6	1	4
7	1	5
8	1	6
9	1	7
10	1	8
11	1	9
12	1	10

В ячейку С3
запишем формулу, вычисляющую гипотенузу:
=КОРЕНЬ(А3^2+B3^2),
в ячейку D3
запишем формулу: =A3+B3+C3,
в ячейку
E3
запишем формулу:
=(1/2)*A3*B3

	А	В	С	D	E
1	Катеты	Гипотенуза	Периметр	Площадь
2	a	b	c
3	1	1	=КОРЕНЬ(А3^2+B3^2)	=A3+B3+C3	=(1/2)A3B3
4	1	2
…
12	1	10

Теперь скопируем
формулы третьей строки во все остальные
строки
(Рис. 89.). Отформатируем формат
представления чисел до 2 знаков после
запятой.

Заметим, что во
всех формулах используются относительные
адреса ячеек.

Рис. 89. Решение
задачи 2

Теперь добавим
строки, в которых катет a
будет равен 2 (Рис. 90.), не забывая копировать
в них формулы.

Рис. 90. Решение
задачи 2 с добавление данных

Так же можно
добавить строки с другими значениями
катета a.

Соседние файлы в предмете Информатика

Источник

Как при помощи формул Excel решить теорему Пифагора для прямоугольных треугольников

Рабочую книгу, содержащую формулы расчета различных элементов прямоугольного треугольника по двум известным элементам, можно скачать с нашего сайта.
[lock] скачать бесплатно [/lock]

Рис. 1. Элементы прямоугольного треугольника

Вспомните, как выглядит теорема Пифагора: Высота^2+Основание^2=Гипотенуза^2. Если известны две стороны прямоугольного треугольника, всегда можно вычислить третью. Например, следующая формула вычисляет высоту прямоугольного треугольника по данным длин гипотенузы и основания: =КОРЕНЬ(Гипотенуза^2-Основание^2) . В другой формуле, вычисляющей основание прямоугольного треугольника, используются
гипотенуза и высота: =КОРЕНЬ((Гипотенуза^2)-(Высота^2)) . Для формулы расчета гипотенузы прямоугольного треугольника нужно задать основание и высоту: =КОРЕНЬ((Высота^2)+(Основание^2)) .

Верны также приведенные ниже тригонометрические тождества:

SIN(А) = Высота/Гипотенуза
SIN(В) = Основание/Гипотенуза
COS(А) = Основание/Гипотенуза
COS(В) = Высота/Гипотенуза
TAN(А) = Высота/Гипотенуза

Если известны высота и основание, следующую формулу можно использовать для вычисления угла между гипотенузой и основанием (угол А): =ATAN(Высота/Основание) . Формула, приведенная выше, возвращает значение угла в радианах. Для преобразования значения в градусы используйте следующую формулу: =ГРАДУСЫ(ATAN(Высота/Основание)) . Если известны высота и основание, следующая формула может использоваться для вычисления угла между гипотенузой и высотой (угол В): =ПИ()/2-ATAN(Высота/Основание) . Данная формула возвращает значение в радианах. Для преобразования значения в градусы используйте следующую формулу: =90-ГРАДУСЫ(ATAN(Высота/Основание) .

Рис. 2. Данная рабочая книга пригодится для вычисления элементов прямоугольных треугольников

Расчеты в Microsoft Excel: Решение и оформление задач

Лабораторная работа №5

1. Ознакомьтесь с задачей, представленной ниже.

Вычисление элементов треугольника.Даны три стороны треугольника a, b, c. Требуется вычислить его площадь по формуле Герона , где р – полупериметр: , а также радиус вписанной окружности и радиус описанной окружности .

1. Создайте в Microsoft Excel «Чистую книгу». Переименуйте, как показано на картинке Лист1 в «Треугольник».

2. Для получения красивых заголовков используйте возможности меню Формат à Ячейки à Выравнивание.[1]Шапка таблицы получена путем объединения ячеек. Оформите границы таблицы (кнопка ). Для создания наглядных формул в столбце «вычисляемые формулы» используйте объекты Microsoft Equation 3.0 (Вставка à Объект à Microsoft Equation 3.0).

3. Постройте модель решения задачи в среде Microsoft Excel, максимально автоматизировав расчеты. Для этого в ячейке, где должен находиться результат вычислений, необходимо вести формулы. Ввод всегда начинается со знака =. Вам понадобятся стандартная функция Excel : =корень(…). Иконка активируется только после ввода в ячейке знака =.

4. Сравните полученные Вами результаты с теми, которые представлены в задании. Если Вы наблюдаете некоторые расхождения, значит формулы в вашей электронной таблице записаны ошибочно. В этом случае Ваша модель нуждается в корректировке.

5. Задайте формат ячеек с результатами вычислений Числовойс четырьмя десятичными знаками после запятой (Формат à Ячейки à Число).

6. Исследование зависимостей. Выделите D8 и выберите в меню Сервис à Зависимости формулà Влияющие ячейки. На экране протянутся синие стрелки от ячеек, содержащих длины сторон к ячейке D8. Исследуйте зависимости и влияния для других ячеек. Уберите стрелки соответствующей командой меню.

1. Сообщение об ошибочных данных. Задайте длину стороны а, равную 10. В ячейках с результатами появится сообщение об ошибке #ЧИСЛО!. Дело в том, что стороны 10, 4, 5 не образуют треугольника. При вычислении площади под корнем получается отрицательное число. Выделите ячейку D9 и проверьте зависимости. Вы наглядно увидите, за счет каких влияющих ячеек получен неверный результат. Нужно переделать таблицу. Пользователь должен получать сообщение, почему не могут быть вычислены S, R и r, а в ячейках с результатами вычислений ничего не должно выводиться.

Будем вычислять отдельно подкоренное выражение р*(р-а)*(р-b)*(р-c) и определять его знак. Если оно положительно, вычисляем S, R и r. Если же нет, то в ячейке D9 выведем текстовую строку «Это не треугольник!», а в ячейках D11 и D12 выведем пустые строки.

Скопируйте формулу из D9 в D10. Отредактируйте D10, убрав КОРЕНЬ. В ячейке останется формула =D8*(D8-B4)*(D8-B5)*(D8-B6)

В D9 разместите формулу =ЕСЛИ(D10>0;КОРЕНЬ(D10);»Это не треугольник!»)[2].

В D11 формулу =ЕСЛИ(D10>0; D9/D8;»»). Аналогично измените формулу в D12.

2. Ограничение ввода. Разрешите пользователю вводить только положительные длины сторон треугольника (меню Данные à Проверка à Параметры.

3. Предъявите работу преподавателю.

[1] Обратите внимание, в ячейках Excel буквенные значения всегда автоматически отформатированы по левому краю ячейки, а численные – по правому. Также, заметьте, разделителем десятичных разрядов в Microsoft Excel 2003 является запятая.

[2] Обратите внимание на синтаксис функции ЕСЛИ. Разделителем трех переменных является точка с запятой ;

Задание в Microsoft Excel. Вычисления с использованием стандартных функций

Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.

Коммуникативный педагогический тренинг: способы взаимодействия с разными категориями учащихся

Сертификат и скидка на обучение каждому участнику

Задание в Microsoft Excel . Вычисления с использованием стандартных функций

Создать таблицу по образцу:

3 . Высоту подсчитать по формуле:

4 . Медиану подсчитать по формулам:

5 . Биссектрису подсчитать по формулам:

6. Углы подсчитать по формулам:

При вычислении углов функция arccos дает ответ в радианах, нужно перевести ответ в градусы, например: САВ =ACOS((E2*E2+G2*G2-C2*C2)/(2*E2*G2))*180/ПИ()

Курс повышения квалификации

Дистанционное обучение как современный формат преподавания

Сейчас обучается 964 человека из 79 регионов

Курс повышения квалификации

Педагогическая деятельность в контексте профессионального стандарта педагога и ФГОС

Курс добавлен 23.11.2021
Сейчас обучается 56 человек из 28 регионов

Курс повышения квалификации

Авторская разработка онлайн-курса

Курс добавлен 02.12.2021
Сейчас обучается 78 человек из 38 регионов

Ищем педагогов в команду «Инфоурок»

Дистанционные курсы для педагогов

Развитие управляющих функций мозга ребёнка: полезные советы и упражнения для педагогов

Сертификат и скидка на обучение каждому участнику

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

5 520 514 материалов в базе

Другие материалы

07.04.2016
486
0

07.04.2016
364
0

07.04.2016
966
5

07.04.2016
913
9

07.04.2016
794
2

07.04.2016
680
1

07.04.2016
1582
0

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

Добавить в избранное

07.04.2016 975
DOCX 36.6 кбайт
3 скачивания
Оцените материал:

Настоящий материал опубликован пользователем Гнездилова Людмила Алексеевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

Автор материала

На сайте: 6 лет и 2 месяца
Подписчики: 0
Всего просмотров: 10360
Всего материалов: 6

Московский институт профессиональной
переподготовки и повышения
квалификации педагогов

Дистанционные курсы
для педагогов

663 курса от 690 рублей

Выбрать курс со скидкой

Выдаём документы
установленного образца!

Учителя о ЕГЭ: секреты успешной подготовки

Время чтения: 11 минут

Онлайн-тренинг о способах взаимодействия с разными категориями учащихся

Время чтения: 2 минуты

Полный перевод школ на дистанционное обучение не планируется

Время чтения: 1 минута

Путин поручил обучать педагогов работе с девиантным поведением

Время чтения: 1 минута

Минобрнауки учредит стипендию для студентов — победителей международных олимпиад

Время чтения: 1 минута

В Госдуме предложили доплачивать учителям за работу в классах, где выявлен ковид

Время чтения: 1 минута

В Госдуме предложили создать в школах «ящики доверия» для обращений к психологу

Время чтения: 1 минута

Подарочные сертификаты

Ответственность за разрешение любых спорных моментов, касающихся самих материалов и их содержания, берут на себя пользователи, разместившие материал на сайте. Однако администрация сайта готова оказать всяческую поддержку в решении любых вопросов, связанных с работой и содержанием сайта. Если Вы заметили, что на данном сайте незаконно используются материалы, сообщите об этом администрации сайта через форму обратной связи.

Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение администрации может не совпадать с точкой зрения авторов.

источники:

http://mydocx.ru/10-2081.html

http://infourok.ru/zadanie-v-microsoft-ecel-vichisleniya-s-ispolzovaniem-standartnih-funkciy-1015391.html

Источник