Как в паскале найти углы треугольника если

Как в паскале найти углы треугольника если

175 / 172 / 40

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

Сообщений: 507

1

Найти углы треугольника по его сторонам

30.01.2010, 21:49. Показов 8763. Ответов 11

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

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



0

Puporev

Почетный модератор

64285 / 47584 / 32739

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

Сообщений: 115,182

30.01.2010, 22:00

2
Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

uses crt;
var a,b,c,p:real;
begin
clrscr;
repeat
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (abs(a-b)>c)or(abs(a+b)<c)
then writeln('Это не треугольник! Повторите ввод.');
until (abs(a-b)<c) and( abs(a+b)>c);
p:=(a+b+c)/2;
writeln('Углы равны:');
write((2*arctan(sqrt((p-b)*(p-c)/(p*(p-a)))))*(180/pi):0:1,#248,'  ');
write((2*arctan(sqrt((p-a)*(p-c)/(p*(p-b)))))*(180/pi):0:1,#248,'  ');
write((2*arctan(sqrt((p-a)*(p-b)/(p*(p-c)))))*(180/pi):0:1,#248);
readln
end.



2

175 / 172 / 40

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

Сообщений: 507

30.01.2010, 22:05

 [ТС]

3

спасибо большое,но а вопрос,так как я предложил не верно?



0

Почетный модератор

64285 / 47584 / 32739

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

Сообщений: 115,182

30.01.2010, 22:06

4

Вот формула через тангенс. Это самое удобное, т.к. только арктангенс у нас и есть.



1

Почетный модератор

64285 / 47584 / 32739

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

Сообщений: 115,182

30.01.2010, 22:07

5

pikusfikus, Тоже верно, но потом все равно нужно все приводить к тангенсу.



1

175 / 172 / 40

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

Сообщений: 507

30.01.2010, 22:11

 [ТС]

6

спасибо Вам большое за помощь и за формулу,а то я думаю откуда эти формулы



0

Почетный модератор

64285 / 47584 / 32739

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

Сообщений: 115,182

30.01.2010, 22:12

7

pikusfikus, Все из инета, все формулы. Математики их придумали на все случаи жизни.



1

175 / 172 / 40

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

Сообщений: 507

30.01.2010, 22:15

 [ТС]

8

да я просто не знал в каком направление искать ,так как такого еще в школе не учил )



0

Почетный модератор

64285 / 47584 / 32739

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

Сообщений: 115,182

30.01.2010, 22:17

9

А в школе все формулы и не проходят, их самому выводить нужно. Просто если люди уже все вывели, то проще списать.



0

pikusfikus

30.01.2010, 22:21

 [ТС]

Не по теме:

ну так я и стремлюсь к изучению :),а списать просто не интересно,интереснее вникнуть ,а в и-нете не всегда хорошее объяснение можно найти,вот я и обращаюсь на форум )



0

Почетный модератор

64285 / 47584 / 32739

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

Сообщений: 115,182

30.01.2010, 22:22

11

pikusfikus, Я имею ввиду не коды программ, а математические формулы.



1

pikusfikus

30.01.2010, 22:25

 [ТС]


    Найти углы треугольника по его сторонам

Не по теме:

да и в них тоже нужно вникнуть )



0

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

 30.01.2010, 22:25

Определить процедуру вычисления площади треугольника по его сторонам
Даны действительные числа a, b, c, d, e – стороны пятиугольника.
Найти площадь пятиугольника. …

Определить вид треугольника и его углы по длине сторон.
Зная значения длин сторон треугольника, определить его вид (разносторонний, равнобедренный,…

Линейные алгоритмы. Найти углы треугольника по данным сторонам
16. В треугольнике известны три стороны a, b и c; найти (в градусах) углы этого треугольника,…

По трем сторонам треугольника определить его вид
По длинам трех сторон треугольника определить его вид: остроугольник, прямоугольный, тупоугольный. …

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

Или воспользуйтесь поиском по форуму:

12

Источник

Помогите пожалуйста в задаче по паскалю…

Co1oNe



Знаток

(325),
закрыт



13 лет назад

Даны действительные положительные числа a,b,c. По трем сторонам с длинами a,b,c можно построить треугольник. Найти углы треугольника.

Vladimir Kochetkov

Мастер

(1778)


13 лет назад

Это ж элементарно

var s,a,b,c : real;
begin
write(“input a: “); readln(a);
write(“input b: “); readln(b);
write(“input c: “); readln(c);
s:=a+b+c;
a:=a/s*180;
b:=b/s*180;
c:=c/s*180;
writeln(“1st angle: “,a);
writeln(“2nd angle: “,b);
writeln(“3rd angle: “,c);
end.

Возможно, где-то ошибся (сильно не винить) – смысл останется понятным.

Отправитель

Мудрец

(10393)


13 лет назад

Кочетков Владимир в принципе прав наверное. (Только вместо кавычек нужно апострофы) .
Я вот потестил его примерчик. Для равносторонних треугольников углы находит правильно. Но ведь если ввести тройку пифагора, то должен получиться прямоугольный треугольник? А почему то не получается…

Источник
cos (alfa)=(sqr(b)+sqr(c)-sqr(a))/2bc
cos B=(sqr(a)+sqr(c)-sqr(b))/2ac
cos(gamma)=(sqr(a)+sqr(b)-sqr(c))/2ab

var a,b,c:real;
 
function cosinus(a,b,c:real):real;
begin
 cosinus:=(sqr(b)+sqr(c)-sqr(a))/2*b*c;
end;
 
begin
 readln(a,b,c);
 writeln(cosinus(a,b,c));
 writeln(cosinus(b,c,a));
 writeln(cosinus(c,a,b));
end.

Похожие записи/страницы:

  • Вычислить с точностью E. Проверить решение для E=0.01, 0.001, 0.0001, 0.00001, определив количество шагов, которые…
  • Составить программу, которая определяет углы треугольника со сторонами а, b, с по известным формула – Pascal(Паскаль)
  • Составить программу, которая вычисляет биссектрисы треугольника со сторонами a,b,c – Pascal(Паскаль)
  • Написать программу определения существования треугольника со сторонами а, b и с- Pascal(Паскаль)
  • Составить программу которая вычисляет периметр треугольника,если заданы координаты вершин(х1,у1),(х2,у2),(х3,у3) -…
  • Составить программу которая вычисляет периметр треугольника если заданы координаты его вершин (x1,y1),(x2,y2),(x3,y3).…
  • Дано значение угла alfa в радианах (0 < alfa < 2*pi). Определить значение этого же угла в градусах, учитывая, что 180° =…
  • Дано значение угла alfa в градусах (0 а в радианах, учитывая, что 180° = pi радианов) – Pascal(Паскаль)
Источник

Найти все углы треугольника со сторонами а, b, c.

Предусмотреть в программе перевод радианной меры угла а градусы, минуты и секунды.

Напишите на паскаль программу.

Очень срочно.

На этой странице сайта, в категории Информатика размещен ответ на вопрос
Найти все углы треугольника со сторонами а, b, c?. По уровню сложности вопрос рассчитан на учащихся
10 – 11 классов. Чтобы получить дополнительную информацию по
интересующей теме, воспользуйтесь автоматическим поиском в этой же категории,
чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы
расположена кнопка, с помощью которой можно сформулировать новый вопрос,
который наиболее полно отвечает критериям поиска. Удобный интерфейс
позволяет обсудить интересующую тему с посетителями в комментариях.

Источник

Все категории

  • Фотография и видеосъемка
  • Знания
  • Другое
  • Гороскопы, магия, гадания
  • Общество и политика
  • Образование
  • Путешествия и туризм
  • Искусство и культура
  • Города и страны
  • Строительство и ремонт
  • Работа и карьера
  • Спорт
  • Стиль и красота
  • Юридическая консультация
  • Компьютеры и интернет
  • Товары и услуги
  • Темы для взрослых
  • Семья и дом
  • Животные и растения
  • Еда и кулинария
  • Здоровье и медицина
  • Авто и мото
  • Бизнес и финансы
  • Философия, непознанное
  • Досуг и развлечения
  • Знакомства, любовь, отношения
  • Наука и техника


6

Треугольник задан длинами сторон.Найти углы треугольника в Паскале

1 ответ:



0



0

<span>var
 
a,b,c: real;
 
</span>ugol_alpha,ugol_betta,<span>ugol_gamma: real;

begin
 
write(‘введите a: ‘);
 
readln(a);
 
write(‘введите b: ‘);
 
readln(b);
 
write(‘введите c: ‘);
 
readln(c);
</span><span>if a*a+b*b-c*c=0 then writeln(‘Данные не корректны!’) else
  <span>begin 
</span></span><span>ugol_aplha :=arccos(-((sqr(a)-sqr(b)-sqr(c))/2*b*c));
ugol_betta:=arccos(-((sqr(b)-sqr(a)-sqr(c))/2*a*c));
ugol_gamma:=arccos(-((sqr(c)-sqr(a)-sqr(b))/2*a*b));
</span><span>write(‘альфа=’,ugol_alpha</span>,’  бетта=’,ugol_betta:0:2,’ гамма=’,ugol_gamma:0:2);
end;<span>
end.</span>

Читайте также

begin

 var (a, b, c) := (1.5, 2.0, -0.75);

 var x := ReadReal(‘Введите x’);

 var y := a * Exp(-Sqrt(x)) * Cos(b * x) + c;

 Println(y);

 (a, b, c) := (2, 0.7, 0.5);

 var t := ReadReal(‘Введите t’);

 var z := a * Cos(b * t * Sin(t)) + c;

 Println(z);

 (a, b) := (2, 1.2);

 z := Sqrt(a + b * Exp(Sin(x)) + 1);

 Println(z);

end.

Ну кодирование-декодирование!?

Буквой английского языка v

Язык Python
получение входных данных из файла in.txt, вывод тоже в файл out.txt

data = open(‘in.txt’, ‘r’).read()
open(‘out.txt’, ‘w’).write(‘ ‘.join([str(data.count(str(x))) for x in range(1,10)]))

можно ужать до одной строки, но тогда будет входной файл перечитан 9 раз, а это не хорошо, операции с диском достаточно затратны

Источник

Добавить комментарий