Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.84/43: Рейтинг темы: голосов - 43, средняя оценка - 4.84
103 / 1 / 0
Регистрация: 13.12.2009
Сообщений: 136

стороны треугольника

02.04.2011, 18:04. Показов 8282. Ответов 36
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Треугольник задан величинами своих углов и радиусов описанной окружности. найти стороны треугольника.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.04.2011, 18:04
Ответы с готовыми решениями:

Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т.е. имеют ли они равные площади
Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т.е. имеют ли они равные...

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

Нахождение длины стороны треугольника по теореме косинусов
Написать код в VBA для нахождения длины стороны треугольника по теореме косинусов

36
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.04.2011, 14:33
Студворк — интернет-сервис помощи студентам
У меня работает
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
03.04.2011, 14:35
пишу так:
PureBasic
1
a = 2 * R * Sin(Wa * 3.14159265358979 / 180)
и т.д. плевать, за державу обидно
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.04.2011, 14:37
может не подключил?
Миниатюры
стороны треугольника   стороны треугольника  
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
03.04.2011, 14:45
что то пытаюсь подключить, сообщение: Ошибка доступа к системному реестру
Что за ересь?
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.04.2011, 14:48
какой ексел установлен и зарегистрирован в реестре?
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
03.04.2011, 14:50
при чём тут Эксель? я это делаю в Ворде 2003, значит и Эксель 2003
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.04.2011, 15:01
а причём здесь ворд?
Ты поключаешь стороннюю библиотеку.
И если 2007 ексел(как, например у меня) был установлен позже, то видимо что-то он прописал в реестре. Все файлы стали открываться 2007. и мне пришлось вручную вносить корректировки в "типы файлов" и программы по умолчанию. Что бы .xls открывались 2003, а .xlsm - 2007
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
03.04.2011, 15:10
так дошло до того, что Нормал.дот удалил, значит Ворд у меня новенький и пытаюсь просто нажать Референсес и тут сообщение Ошибка доступа к системному реестру
Так и не понял, что делать?

Добавлено через 3 минуты
в реестре в папке Офис есть папки - 11.0, 12.0, 8.0
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.04.2011, 15:11
А какие офисы установлены?
Может почистить пора реестр?
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
03.04.2011, 15:20
короче на днях переустановлю Ворд
0
763 / 270 / 57
Регистрация: 13.12.2009
Сообщений: 1,110
04.04.2011, 03:28
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
пишу так:
PureBasic
1
a = 2 * R * Sin(Wa * 3.14159265358979 / 180)
и т.д. плевать, за державу обидно
Писать надо так, если вычисления так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Private Sub CommandButton1_Click()
Dim z As Single, w As Single, t As Single ' стороны треугольника
Dim f As Single, b As Single, g As Single 'углы
Dim R As Single ' радиус
f = Val(InputBox("Введите угол альфа", "Ввод углов", "число"))
b = Val(InputBox("Введите угол бетта", "Ввод углов", "число"))
g = Val(InputBox("Введите угол гамма", "Ввод углов", "число"))
R = Val(InputBox("Введите радиус", "Ввод радиуса описанной окружности", "число"))
 
z = 2 * R * Sin(f * WorksheetFunction.Pi / 180)
w = 2 * R * Sin(b * WorksheetFunction.Pi / 180)
t = 2 * R * Sin(g * WorksheetFunction.Pi / 180)
 
MsgBox " a = " & z & ", b = " & w & ", c = " & t
End Sub
и буквы переменных должны быть такими. Начинающие делают 70% ошибок именно
когда пишут русские буквы.
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
04.04.2011, 05:12
буквы переменных должны быть такими
сказали бы - желательно или ИМХО, а то так катигорично: буквы переменных должны быть такими
Жесть, рускими напишу не спутаю щ никогда, а вот а и а, где какое?
0
763 / 270 / 57
Регистрация: 13.12.2009
Сообщений: 1,110
04.04.2011, 05:32
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
буквы переменных должны быть такими
сказали бы - желательно или ИМХО, а то так катигорично: буквы переменных должны быть такими
Жесть, рускими напишу не спутаю щ никогда, а вот а и а, где какое?
Именно категорично, переключение с алфавита на алфавит - самое ненужное дело в начале работы.
Для Вас - это не проблема, другим не советую наступать на те же грабли.......
Когда появится опыт в программировании и поиске ошибок. пожалуйста и 255 букв из обоих алфавитов.
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
04.04.2011, 09:30
буквы переменных должны быть такими

Не по теме:

И тем не менее есть апределённые правила:
Неизвестные обозначать x, y, z
Вершины многоугольников A, B, C, D
Углы альфа, бета, гамма
Стороны a, b, c, d

0
763 / 270 / 57
Регистрация: 13.12.2009
Сообщений: 1,110
04.04.2011, 13:25
Эти правила я соблюдаю при выводе результата, но на программу они не распространяются.
Существуют еще несколько правил по созданию имен переменных.
Они также к таким программам не относятся из-за:
- краткости программы,
- слабые навыки владения ПК, редактором,
- при больших именах теряется структура операторов в программе,
- при больших именах больше вероятность ошибок.
- и т.д.
0
1713 / 580 / 76
Регистрация: 10.04.2009
Сообщений: 9,337
04.04.2011, 21:48
Цитата Сообщение от all_angarsk Посмотреть сообщение
Именно категорично, переключение с алфавита на алфавит - самое ненужное дело в начале работы.
Для Вас - это не проблема, другим не советую наступать на те же грабли.......
Когда появится опыт в программировании и поиске ошибок. пожалуйста и 255 букв из обоих алфавитов.
Это комплимент?
Вот так Dim z As Single, w As Single, t As Single и в книгах не советуют писать
Лучше уж так
PureBasic
1
2
3
Dim z As Single
Dim w As Single
Dim t As Single
Жесть фиг прикопаешся, место экономили - ерунда
А лучше так:
PureBasic
1
2
3
4
5
6
Dim z As Single
z = 4
Dim w As Single
w = 6
Dim t As Single 
t = 8
Ладно проехали, расстанемся каждый при своём мнении
0
763 / 270 / 57
Регистрация: 13.12.2009
Сообщений: 1,110
05.04.2011, 23:08
Книги не идеал и не являются аргументом, потому что автору платят за количество строк(листов).
Вот откуда эта форма записи и рассуждения.
Для нас важнее получить, как можно компактную запись, причем хорошо организованную, т.е.
подобные переменные находятся рядом.
Никогда не перемешивай этапы программы объявления и присвоение. Если подобное в книге выкинь ее.
Спасибо за дискуссию.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
05.04.2011, 23:08

По заданному значению стороны А найти площадь правильного треугольника
По заданному значению стороны А найти площадь правильного треугольника. Использовать формулу S = A^2 * (корень из 3) / 4 var ...

Функция нахождения самой длинной стороны треугольника, если он существует, иначе возвращает 0
Помогите составить функцию с именем fun3_1 для нахождения из трех произвольных чисел А, В, С, задающих длины сторон треугольника, самую...

Найти стороны треугольника
3.Треугольник задан значениями углов и радиусом заданной окружности. Найти стороны этого треугольника помогите, очень прошу, а то до...

Найти площадь треугольника две стороны которого равны a и b,а угол между этими сторонами равен y
Найти площадь треугольника две стороны которого равны a и b,а угол между этими сторонами равен y Как это сделать?

Длина стороны треугольника А, периметр равен P. длины двух других сторон равны между со6ой. Найти эти стороны
Длина стороны треугольника А, периметр равен P. длины двух других сторон равны между со6ой. Найти эти стороны


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
37
Ответ Создать тему
Новые блоги и статьи
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3)
8Observer8 18.10.2026
Содержание блога | English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .
Локальный http сервер
Argus19 17.10.2026
Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .
Копировать Windows на новый диск на UEFI
damix 17.10.2026
https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru