Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Программная реализация алгоритма сжатия методом Хаффмана https://www.cyberforum.ru/ pascalabc/ thread768215.html
Помогите написать программу: Программная реализация алгоритма сжатия методом Хаффмана, Очень нужно!!!
Pascal ABC Разработать программу, реализующую обработку числового двумерного произвольного массива тремя методами сортировки (пузырьком, вставкой, выбором)
Помогите пожалуйста с задачой! Заранее спасибо Разработать программу, реализующую обработку числового двумерного произвольного массива тремя методами сортировки (пузырьком, вставкой, выбором).
Pascal ABC Не выводится ответ на экран
uses crt; function Factor(f:longint):longint; var n,k:longint; begin n:=1; k:=1; while n<=f do begin n:=n*k; ...
Pascal ABC Поменять значение элементов относительно побочной диагонали поменять значение элементов относительно побочной диагонали. https://www.cyberforum.ru/ pascalabc/ thread768193.html
Pascal ABC двумерный массив. Дана квадратная матрица m*m надо найти среднее арифметическое над главной диагональю и под главной диагональю и сравнить их https://www.cyberforum.ru/ pascalabc/ thread768180.html
Дана квадратная матрица m*m надо найти среднее арифметическое над главной диагональю и под главной диагональю и сравнить их.
Pascal ABC двумерный массив.Среди элементов расположенных ниже главной диагонали матрицы В(6,6) найти элементы удовлетворяющие условию b[I,j]<=k и b[I,j]>i+j и о
Среди элементов расположенных ниже главной диагонали матрицы В(6,6) найти элементы удовлетворяющие условию b<=k и b>i+j и оформить из них одномерный массив.
Найти максимальный элемент, расположенный выше побочной диагонали матрицы Pascal ABC
В матрице (5,5) найти максимальный элемент, расположенный выше побочной диагонали, вывести его на экран, а столбец в котором он расположен обнулить.
Pascal ABC двумерный массив. Дана матрица размера 5*10. Вывести количество столбцов элементы которых монотонно убывают Дана матрица размера 5*10. Вывести количество столбцов элементы которых монотонно убывают https://www.cyberforum.ru/ pascalabc/ thread768173.html
Pascal ABC Строку с наименьшей суммой увеличить на сумму диагональных элементов, если она четная и уменьшить , если нечетная https://www.cyberforum.ru/ pascalabc/ thread768169.html
Строку с наименьшей суммой увеличить на сумму диагональных элементов, если она четная и уменьшить , если нечетная uses crt; var a: array of integer; n, j, i,s,min: integer; begin ...
Pascal ABC Дано натуральное число N и последовательность из N элементов. Требуется вывести эту последовательность в обратном порядке Дано натуральное число N и последовательность из N элементов. Требуется вывести эту последовательность в обратном порядке. var b,n,i:integer; a :array of integer; begin readln(n); for i:=1... https://www.cyberforum.ru/ pascalabc/ thread768167.html
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
21.01.2013, 20:36 0

Найти радиус вписанной окружности и радиус описанной окружности

21.01.2013, 20:36. Просмотров 6079. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено maksibon как решение

Решение


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var
  a,b,c: Integer;
  p: Real;
BEGIN
Writeln('Введите длины сторон: ');
Readln(a,b,c);
If a<b+c Then
If b<a+c Then
If c<a+b Then
begin
  p:=(a+b+c)/2;
  Writeln('Радиус вписанной окр-ти = ',Sqrt(((p-a)*(p-b)*(p-c))/p):2:2);
  Writeln('Радиус описанной окр-ти= ',(a*b*c)/(4*Sqrt((p*(p-a)*(p-b)*(p-c)))):2:2);
end
Else Writeln('Треугольник не существует');
Readln
END.


Вернуться к обсуждению:
Найти радиус вписанной окружности и радиус описанной окружности
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2013, 20:36
Готовые ответы и решения:

Найти второй катет и радиус вписанной окружности
дано гипотенуза и катет прямоугольного трикутника.Знайты второй катет и радиус вписанной окружности...

Как найти радиус описанной около треугольника окружности
Два треугольника заданы координатами своих вершин. Определить радиусы окружностей, описанных возле...

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

Найти треугольник, у которого самый большой радиус описанной окружности
помогите решить в паскале n треугольников заданы длинами своих сторон. Найти треугольник, у...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.