Помогите написать программу вычисления длин медиан треугольника со сторонами длиной а,b,c.
5-9 класс
|
вот формула:1/2*квадратный корень из 2*a^2+2*c^2-b^2
как то так
var a, b, c : integer;
function mediana(a, b, c : integer) : real;
begin
mediana := 0.5 * sqrt(2 * a * a + 2 * c * c - b * b);
end;
Begin
readln(a, b, c);
writeln(mediana(a,b,c));
writeln(mediana(a,c,b));
writeln(mediana(b,c,a));
End.
Другие вопросы из категории
Определить, какое количество отрицательных чисел записано в начале последовательности.
Условный оператор не использовать. ПАСКАЛЬ. НУжно без массивов и так далее.
ТЕМА ЦИКЛ
30 баллов даю
помогите плиз
технология
свяжите их гиперссылками, как показано в примере 3.1. Один из документов должен
содержать внутреннюю ссылку и "прицельную" ссылку на второй документ.
Для проверки ее работы целесообразно ввести большой фрагмент текста, либо
просто заполнить страничку каким – либо символом. Отметим, что внутренняя
ссылка не покажет своего действия, если текст в Вашем документе не выходит за
пределы видимости.
или во втором сумма цифр этого числа будет равна 9.)
Читайте также
вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.
Определение факториала:
0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.
Другими словами n!- это произведение n натуральных чисел.
секунд.
3)Составте программу вычисления площади треугольника с основанием а и высотой h. Значение a и h введите с клавиатуры.
написал программу неправильно. Ниже приведён фрагмент его программы, в котором содержится пять ошибок:
k:=1;
f:=0;
while k<n do
f:=f*k;
k:=k+1