Question

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

Answer 1

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.

Answer 2

Программа на скрине, чтобы найти периметр нужно знать все стороны у нас есть основания, но нет боковых сторон мы их находим через треугольники у которого один катет равен высоте а другой находится так 
(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 3

Для вычисления периметра равнобедренной трапеции на языке программирования Pascal, вам нужно знать значения её оснований (a и b) и высоту (h). Периметр трапеции можно найти, сложив длины всех её сторон. В случае равнобедренной трапеции, две боковые стороны равны, а основания различаются. Периметр P можно выразить следующим образом:

P = a + b + 2 * c,

где "a" и "b" - длины оснований, "c" - длина боковой стороны трапеции.

Длина боковой стороны трапеции "c" может быть найдена с использованием теоремы Пифагора, так как трапеция разделяется на два прямоугольных треугольника. Таким образом:

c = sqrt(h^2 + ((b - a) / 2)^2).

Теперь мы можем написать программу на Pascal для нахождения периметра равнобедренной трапеции:

program CalculateTrapezoidPerimeter;

var
  a, b, h, c, P: real;

begin
  writeln('Введите длину первого основания a: ');
  readln(a);

writeln('Введите длину второго основания b: ');
  readln(b);

writeln('Введите высоту h: ');
  readln(h);

c := sqrt(h * h + ((b - a) / 2) * ((b - a) / 2));
  P := a + b + 2 * c;

writeln('Периметр равнобедренной трапеции: ', P:0:2);
end.

Просто скопируйте этот код в вашу среду программирования Pascal, и программа попросит вас ввести значения оснований (a и b) и высоту (h) равнобедренной трапеции. После ввода значений, она вычислит и выведет периметр трапеции.