Найти медианы треугольника, сторонами которого являются медианы исходного треугольника - Pascal ABC (15009)

Узнай цену своей работы

Формулировка задачи:

А, B, C - значения длин сторон некоторого треугольника. Пользуясь вспомогательной программой найти медианы треугольника, сторонами которого являются медианы исходного треугольника.

Решение задачи: «Найти медианы треугольника, сторонами которого являются медианы исходного треугольника»

textual
Листинг программы
function med(a,b,c:real):real;
begin
med:=sqrt(2*b*b+2*c*c-a*a)/2;
end;
var a,b,c,ma,mb,mc:real;
begin
repeat
writeln('Введите стороны треугольника');
readln(a,b,c);
if(a<=0)or(b<=0) or(c<=0)or(a>=b+c)or(b>=a+c)or(c>=a+b)then
writeln('Эти числа не могут быть сторонами треугольника');
until (a>0)and(b>0)and(c>0)and(a<b+c)and(b<a+c)and(c<a+b);
ma:=med(a,b,c);
mb:=med(b,a,c);
mc:=med(c,a,b);
writeln('Длины сторон треугольника, образованного медианами');
writeln(ma:0:2,' ',mb:0:2,' ',mc:0:2);
ma:=med(ma,mb,mc);
mb:=med(mb,ma,mc);
mc:=med(mc,ma,mb);
writeln('Длины медиан нового треугольника');
writeln(ma:0:2,' ',mb:0:2,' ',mc:0:2);
end.

Объяснение кода листинга программы

  1. Создается функция med с тремя параметрами типа real, которая вычисляет медиану треугольника по заданным сторонам.
  2. Создается переменная a, которая представляет собой первую сторону треугольника.
  3. Создается переменная b, которая представляет собой вторую сторону треугольника.
  4. Создается переменная c, которая представляет собой третью сторону треугольника.
  5. Вычисляется медиана треугольника по заданным сторонам и сохраняется в переменную ma.
  6. Вычисляется медиана треугольника по заданным сторонам и сохраняется в переменную mb.
  7. Вычисляется медиана треугольника по заданным сторонам и сохраняется в переменную mc.
  8. Выводится сообщение о том, что введенные стороны треугольника не могут быть использованы для создания треугольника.
  9. Выполняется цикл, в котором пользователю предлагается ввести стороны треугольника.
  10. Проверяется, являются ли введенные стороны треугольника допустимыми.
  11. Если все стороны введены корректно, то вычисляются медианы треугольника и сохраняются в переменные ma, mb и mc.
  12. Выводится сообщение с длинами сторон треугольника, образованного медианами.
  13. Вычисляется новая медиана треугольника, используя предыдущие медианы и сохраняется в переменную ma.
  14. Вычисляется новая медиана треугольника, используя предыдущие медианы и сохраняется в переменную mb.
  15. Вычисляется новая медиана треугольника, используя предыдущие медианы и сохраняется в переменную mc.
  16. Выводится сообщение с длинами медиан нового треугольника.
  17. Выполняется цикл, в котором обновляются медианы треугольника.
  18. Конец программы.

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы