Type num=double; { в этом месте можно сменить тип на иной }
function Legal(a,b,c:num):boolean; { возвращает True, если из отрезков длиной a,b,c можно построить треугольник } begin Legal:=(a+b>c) and (a+c>b) and (b+c>a) end;
function Med(a,b,c:num):num; { возвращает длину медианы, проведенную к стороне а } begin Med:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/2 end;
procedure Med3(a,b,c:num; var m1,m2,m3:num); { возвращает длины m1,m2,m3 всех медиан треугольника, построенного из отрезков длиной a,b,c. При этом m1- длина медианы, проведенной к стороне а, m2- дилна медианы,проведенной к стороне b и т.д. Если треугольник построить нельзя, m1=m2=m3=0 } begin if Legal(a,b,c) then begin m1:=Med(a,b,c); m2:=Med(b,a,c); m3:=Med(c,a,b) end else begin m1:=0; m2:=0; m3:=0 end end;
{ основная программа } var a,b,c,m1,m2,m3:num; begin Write('Введите длины сторон треугольника: '); Readln(a,b,c); Med3(a,b,c,m1,m2,m3); if m1>0 then begin Med3(m1,m2,m3,m1,m2,m3); if m1>0 then Writeln('Длины медиан: ',m1,', ',m2,', ',m3) else Writeln('Из полученных медиан нельзя построить треугольник.') end else Writeln('Невозможно построить треугольник с такими сторонами.') end.
<em><u>Тестовое решение:</u></em> Введите длины сторон треугольника: 14.3 18.9 8.6 Длины медиан: 10.725, 14.175, 6.45
Сон Паскаль итальянский музыкант, приехавший в Казахстан из Лондона Его шуточные интерпретации мировых хитов вроде «Englishman in Shymkent» в дуэте с Ануаром Нурпеисовым завоевали большое внимание и одобрение казахстанской публики. Премьера клипа была представлена не только казахстанскому зрителю, также она прошла и в шотландском городе Эдинбурге.До приезда в Казахстан Паскаль работал в Италии. Затем жил в Англии и только потом попал в Казахстан по приглашению малоизвестной девушки, которая оказалась на его концерте. Сон и не думал задерживаться здесь, лишь хотел открыть для себя новую страну.<span>Сегодня музыкант уже записывает новые песни в дуэтах с известными казахстанскими исполнителями.</span>
Если это Exel, тогда в формуле просто заменятся сами ечейки, а формула останется прежней.(советую проверить на любой формуле, т.к. Word бывает разных версий и настроек, но должно быть как я и описал) Т.е. было допустим =sum(C1:C3) а после копирования =sum(E2:E4)