Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ianezlo
31.01.2020 00:50 •
Информатика
Составить программу на паскаль: рассчитать радиус окружности, вписанной в треугольник r1= s/p и описанной вокруг треугольника r2= a*b*c/(4*s), где s - площадь, а p - полупериметр треугольника. a, b, c - стороны треугольника ( исходные данные ).
Показать ответ
Ответ:
netznanie
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 оценок)
Популярные вопросы: Информатика
ирка137
01.02.2023 06:17
Написать программу нахождения суммы натуральных чисел оканчивающихся на 7, среди чисел введённых пользователем, признак окончания ввода чисел ввод числа 0.(используем цикл repeat)...
dolback
02.05.2020 12:04
Сделать доклад на тему графический редактор: paint...
Анара2000
16.05.2021 08:40
Написать программу, которая подсчитывает количество элементов и их сумму, которые кратны k, но не кратны m. (язык программирования - паскаль)...
zzzzzzya2017
16.05.2021 08:40
Нужна программа вывода трехмерного массива в паскале!...
0689433382
07.04.2022 13:35
Дан массив из N действительных чисел.Подсчитать ,сколько в нем отрицательных,положительных и нулевых эдементов для сделайте так,чтобы самому ничего не добавлять копировать и вставить)...
Лера12435
15.02.2021 01:48
Разбор слова по составу трескучий...
gyukk
30.12.2020 03:41
Спростити вираз (3х-1)(3х+1)-4х^...
LolKek006
30.12.2020 03:41
Көлемі 18,75 л керосиннің салмағын есепте. Керосин тығыздығы 710 кг/м^3 тез жауабы керек...
kazymbietova71
24.11.2022 12:37
За 10 хв з розчину платинової солі струмом силою 5 А виділилося 1,517 г Рt. Визначити еквівалентну масу платини....
tanyaraeva2017
02.01.2022 00:04
4. Қай мамандықты таңдасаңыз әрсалада жұмыс істей аласыз?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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