Составьте программу вычисления длины наибольшей медианы треугольника

@Burning Angel · Регистрация: 07.12.2014

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

Площадь равнобедренного треугольника равна S, величина угла при основании F. Составьте программу вычисления длины наибольшей медианы треугольника

@Puporev · 21.12.2014, 17:32

Pascal

uses crt;
var s,f,f1,a,b,ma,mb:real;
begin
repeat
write('Площадь треугольника S=');
readln(s);
until s>0;
repeat
write('Угол при основании(в градусах) F=');
readln(f);
until(f>0)and(f<90);
f1:=f*pi/180;
b:=sqrt(s/sin(f1)/cos(f1));{боковая сторона}
a:=2*b*cos(f1);{основание}
ma:=sqrt(4*b*b-a*a)/2;{медиана к основанию}
mb:=sqrt(2*a*a+b*b)/2;{медиана к боковой стороне}
writeln('Медиана к основанию=',ma:0:2,' медиана к боковой стороне=',mb:0:2);
if f=60 then write('Все медианы равны')
else
 begin
  write('Наибольшая медиана=');
  if ma>mb then write(ma:0:2) else write(mb:0:2);
 end;
end.

@Burning Angel 0 / 0 / 0 Регистрация: 07.12.2014 Сообщений: 17
		1
	Составьте программу вычисления длины наибольшей медианы треугольника 21.12.2014, 12:51. Показов 1786. Ответов 1 Метки нет (Все метки) Площадь равнобедренного треугольника равна S, величина угла при основании F. Составьте программу вычисления длины наибольшей медианы треугольника 0

	21.12.2014, 17:32

Составьте программу вычисления длины наибольшей медианы треугольника

Решение