Задан треугольник АВС длинами своих сторон. Определить его медианы

@4итер · Регистрация: 16.10.2011

Author24 — интернет-сервис помощи студентам

Написать процедуру/функцию, предусмотреть передачу параметров процедуру/функцию в теле программы

Задан треугольник АВС длинами своих сторон. Определить его медианы (медиана,проведенная к стороне А равна 0.5(2в²+2с²-а²).

@4итер · 22.03.2012, 16:55 **[ТС]**

помогите пожалуйста, очень надо разобраться.

@КонецСвета · 22.03.2012, 19:40

чуть что, проверяй с калькулятором =)

Pascal

uses crt;
var a,b,c,ma,mb,mc: real;
 
function Mediana (x,y,z: real): real;
var m: real;
begin
m:=0.5*((2*sqr(y))+(2*sqr(z))-sqr(x));
Mediana:=m;
end;
 
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
writeln('Медиана к стороне А =', Mediana (a,b,c):0:1);
writeln('Медиана к стороне B =', Mediana (b,c,a):0:1);
writeln('Медиана к стороне C =', Mediana (c,a,b):0:1);
readkey
end.

@4итер 1 / 1 / 0 Регистрация: 16.10.2011 Сообщений: 68
		1
	Задан треугольник АВС длинами своих сторон. Определить его медианы 11.03.2012, 17:20. Показов 5819. Ответов 2 Метки нет (Все метки) Написать процедуру/функцию, предусмотреть передачу параметров процедуру/функцию в теле программы Задан треугольник АВС длинами своих сторон. Определить его медианы (медиана,проведенная к стороне А равна 0.5(2в²+2с²-а²). 0

@4итер 1 / 1 / 0 Регистрация: 16.10.2011 Сообщений: 68
	22.03.2012, 16:55 [ТС]	2
	помогите пожалуйста, очень надо разобраться. 0

	22.03.2012, 19:40

Задан треугольник АВС длинами своих сторон. Определить его медианы

Решение