Question

Написать на Pascal
программу.
Даны основания и высота равнобедренной трапеции.
Найти её периметр

Answer 1

Программа на скрине, чтобы найти периметр нужно знать все стороны у нас есть основания, но нет боковых сторон мы их находим через треугольники у которого один катет равен высоте а другой находится так 
(b-a)/2 я так имею право сделать так как это равнобедренная трапеция и так мы знаем два катета нам нужно найти гипотенузу которая и является боковой стороной для этого мы $\sqrt{ (\frac{b-a}{2})^{2} + h^{2} }$ так мы нашли боковую сторону теперь мы можем найти периметр. 

Пример: 
вводимые значения
малое основание 4
большее основание 10
высота 4
____________________
Вывод P= 24 

решение 10-4=6 => 6/2=3 и так один катет равен 3 другой равен высоте то есть 4 сейчас действует теорема пифагора, но я её здесь применять не буду так как это египетский треугольник потому что одни катет 3 а другой 4 значит гипотенуза будет равна 5, осталось найти периметр 4+10+2*5=24

Answer 2

Program Trapecia;
  Var  h, a, b, c: real;
begin  
  writeln('Введите значение высоты'); 
  readln(h);   
  writeln('Введите значение основания трапеции 1'); 
  readln(a); 
  writeln('Введите значение основания трапеции 2'); 
  readln(b); 
  if a>b then   
    c:=sqrt(sqr((a-b)/2)+sqr(h)) 
  else   
     c:=sqrt(sqr((b-a)/2)+sqr(h));     
   writeln('Периметр трапеции равен ',a+b+2*c);
end.