Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 11.05.2012
Сообщений: 11

Нахождение стороны треугольника через теорему синусов 'см. картинку'

23.10.2013, 23:31. Показов 2353. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам


Не могу понять что не так. Примерно должно получится 177.

источник:http://ru.wikipedia.org/wiki/%... 0.BC.D0.B8

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program project1;
uses Math;
var AF,AC,ACB:double;              //даны
   D {sin CFA},CFA,FAC, CF:double; // ищем
begin
  AF:=150;
  AC:=167;
 
  ACB:=51;
 
  D:=(AC/AF) * sin(ACB);
 
  if D>1 then writeln('not exist') else
  if D=1 then writeln('90') else
  if D<1 then begin
        CFA:=arcsin(D);
        if abs(CFA)>90 then CFA:=180 - CFA;
        FAC:=180 - CFA - ACB;
 
        CF:=AF*(sin(FAC)/sin(ACB));
 
  {Выводим ответ}
  writeln(CF:0:2);
  end;
  Readln;
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.10.2013, 23:31
Ответы с готовыми решениями:

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

Процедура: определить наибольший острый угол треугольника со сторонами a, b, c (используя теорему синусов)
Определить наибольший острый угол треугольника со сторонами a,b,c используя теорему синусов. Использовать процедуру

Вычисление стороны треугольника по теореме синусов
даны углы треугольника и радиус описанной окружности 1. надо написать процедуру-функцию, которая вычисляет сторону треугольника а , по...

2
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
24.10.2013, 09:13
Все аргументы тригонометрических функций вводятся в радианах, и значения получаются в радианах.
Pascal
1
ACB:=51*3.14/180; {радиан}
https://www.cyberforum.ru/cgi-bin/latex.cgi?deg*\pi /180=rad
0
Почетный модератор
 Аватар для Puporev
64316 / 47612 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
24.10.2013, 10:57
Pascal
1
ACB:=51*pi/180;
Паскаль сам знает чему равно pi
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.10.2013, 10:57
Помогаю со студенческими работами здесь

Найти стороны треугольника (по теореме синусов)
Очень нужна помощь. Задача на C++. Треугольник задан величинами своих углов и радиусом описанной окружности. Найти стороны треугольника...

Вычисление стороны треугольника по теореме синусов
даны углы треугольника и радиус описанной окружности 1. надо написать процедуру-функцию, которая вычисляет сторону треугольника а , по...

Нахождение самой короткой стороны треугольника
Помогите перевести в код ABC а то с С++ вообще не знаком. Задание било такое Напишите программу для нахождения самой короткой стороны...

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru