Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
MASCAM
13.05.2020 20:43 •
Информатика
Написать программу, распознающую по длинам сторон среди всех треугольников прямоугольный. если таковых нет, то вычислить величину угла с. (паскаль) с объяснением, если можно. заранее .
Показать ответ
Ответ:
zajkovb2
31.08.2020 18:55
//искать угол будем по теореме косинусов
Program n1;
var x,y,z:real;
function arccos(x : real) : real; {это понадобится для теор. кос.}
begin
arccos := 2 * arctan(sqrt((1 - x) / (1 + x)));
end;
procedure ygl( a,b,c: real); {процедура для удобства}
var ga: real;
begin
ga:=arccos((sqr(a) + sqr(b) - sqr(c))/(2 * a* b)) * 180 / pi; {сама теор. кос.}
writeln('угол С= ',ga:5:2);
end;
begin
write('введите сторону а: ');
readln(x);
write('введите сторону b: ');
readln(y);
write('введите сторону c: ');
readln(z);
if(x>=y+z)or(y>=x+z)or(z>=x+y)then writeln('Это не треугольник')
else if x*x+y*y=z*z then {теорема пифагора}
writeln('Это прямоугольный треугольник')
else if (x*x+y*y>z*z)and(x*x+z*z>y*y)and(z*z+y*y>x*x)
then
begin
writeln('Это остроугольный треугольник');
ygl(x,y,z); {вызываем процедуру}
end
else
begin
writeln('Это тупоугольный треугольник');
ygl(x,y,z);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aruzakova05
12.07.2020 18:46
Контрольные вопросы Как вывести на экран дополнительную панель? Для чего предназначена панель Специального управления? Какие типы документов можно создать в программе Компас?...
катя46737889
29.12.2022 21:28
Составить алгоритм блок схемы для подсчета количества всех чисел в диапазоне от 9 до 777...
igorbaburin67
25.01.2020 13:39
Алфавит древнего племени содержит 8 символов. Определите информационный вес одного символа этого алфавита....
vika030620071
28.10.2022 05:44
Составить решение к . в первый день мама сшила 3 одинаковые наволочки, а во второй - 4. всего она использовала 14 м ткани. сколько метров ткани мама использовала в первый день?...
Школьник2525
28.10.2022 05:44
Дополните предложения play, do, go. глаголы использовать в корректной форме. 1) we football every saturday. 2) i skiing last year. 3) twice a week. 4) she cycling after work....
chinyakova97p02efn
28.10.2022 05:44
1.составьте схему электролиза расплава силиката натрия 2.составьте схему электролиза водного раствора сульфата цинка буду если...
5тата282
28.10.2022 05:44
Как составить 4 предложения на тему а каком животном я мечтаю, например о кошке...
Lena2402bux
28.10.2022 05:44
Для штамповки одинаковых деталей было выделено 2 автома- та. первый автомат изготовил 160 деталей. второй автомат из- готавливал в час на 3 детали меньше, работал на 6 часов боль-...
Карина2209
28.10.2022 05:44
Придумайте названия к девизу: с справиться по силе, и наш девиз: служу россии!...
kghjg
28.10.2022 05:44
Уколи и саши было всего 8 орехов.сначала коля дал саше столько орехов, сколько было у саши, потом саша дал коле столько орехов, сколько было у коли.сколько орехов было у мальчиков...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Program n1;
var x,y,z:real;
function arccos(x : real) : real; {это понадобится для теор. кос.}
begin
arccos := 2 * arctan(sqrt((1 - x) / (1 + x)));
end;
procedure ygl( a,b,c: real); {процедура для удобства}
var ga: real;
begin
ga:=arccos((sqr(a) + sqr(b) - sqr(c))/(2 * a* b)) * 180 / pi; {сама теор. кос.}
writeln('угол С= ',ga:5:2);
end;
begin
write('введите сторону а: ');
readln(x);
write('введите сторону b: ');
readln(y);
write('введите сторону c: ');
readln(z);
if(x>=y+z)or(y>=x+z)or(z>=x+y)then writeln('Это не треугольник')
else if x*x+y*y=z*z then {теорема пифагора}
writeln('Это прямоугольный треугольник')
else if (x*x+y*y>z*z)and(x*x+z*z>y*y)and(z*z+y*y>x*x)
then
begin
writeln('Это остроугольный треугольник');
ygl(x,y,z); {вызываем процедуру}
end
else
begin
writeln('Это тупоугольный треугольник');
ygl(x,y,z);
end;
end.