Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
strelkina42
27.03.2023 22:56 •
Информатика
Составить программу на паскаль: рассчитать радиус окружности, вписанной в треугольник r1= s/p и описанной вокруг треугольника r2= a*b*c/(4*s), где s - площадь, а p - полупериметр треугольника. a, b, c - стороны треугольника ( исходные данные ).
Показать ответ
Ответ:
Лизок892
02.10.2020 17:20
Находим периметр p=a+b+c, затем полупериметр
, и далее по формуле Герона площадь S.
var
a,b,c,p,s,p2,r1,r2:real;
begin
Write('Введите стороны треугольника: ');
Read(a,b,c);
p:=a+b+c; p2:=p/2;
s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
r1:=s/p; r2:=a*b*c/(4*s);
Writeln('R1=',r1,', R2=',r2)
end.
Тестовое решение:
Введите стороны треугольника: 4 6 7
R1=0.704502327470793, R2=3.50685603007684
0,0
(0 оценок)
Популярные вопросы: Информатика
alenasamok
30.09.2021 13:17
Раскодируйте заданныйтекст: 11101010 11101101 11101000 11100011 11100000...
leraaleksan
25.12.2022 20:51
Дұрыс тұжырымдама ны белгілен із ...
liza9novxp011he
09.10.2020 19:18
Даны три числа, найти максимальное из них и заменить квадратом этого числа. решить с паскаля....
PrOFy100
09.10.2020 19:18
От этого зависит моя оценка что значит ошибка инициализации (0х0175dcbb) и как устранить проблему? на windows...
Anna977497
09.10.2020 19:18
Определите, какое из указанных имен файлов удовлетворяет маске: ? hel*lo.c? *. 1) hello.c 2) hello.cpp 3) hhelolo.cpp 4) hhelolo.c...
божена2006
09.10.2020 19:18
1. найти те элементы массива, которые равны сумме двух своих соседей. первый и последний элемент имеют только по одному соседу, поэтому искомыми быть не могут. на вход...
bezrodnayamila
01.03.2022 14:53
Не найдено ни одного файла, указанного для isarcextract! как это ! обьясните...
mishanyak1999
22.06.2022 10:58
Умоляю ! решите на ваш выбор (си). информатика...
tatiana260378
19.05.2021 20:44
Возможно ли восстановить переписку в вайбере, если да то как?...
MariyaMirnaya
17.02.2023 10:40
Найти произведение 5 произвольных чисел...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a,b,c,p,s,p2,r1,r2:real;
begin
Write('Введите стороны треугольника: ');
Read(a,b,c);
p:=a+b+c; p2:=p/2;
s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
r1:=s/p; r2:=a*b*c/(4*s);
Writeln('R1=',r1,', R2=',r2)
end.
Тестовое решение:
Введите стороны треугольника: 4 6 7
R1=0.704502327470793, R2=3.50685603007684