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

Question

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

Comments

сразу бы и формулу написали как это считать чтоб люди по педивикиям не бегали.

Answer 1

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

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

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

Comments

Нет комментарии не удаляются, а то бы нам не открыли возможность добавлять комментарии к старым вопросам, чтоб можно было прокомментировать неточности ответа и принять вместо полного переписывания ответа. Так что комментарии сохраняются. возможно правда не все

---

Как всегда спасибо Алвико за дельные заметки

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.

Comments

Оптимизация при сложных вычислениях - это отдельная тема и не касается школьных задач

---

Данного случая все равно не касается

---

тут даже циклов нет

---

Если формулы большие и сложные их и так поделят на строки и тп.

---

Причем все это к заданию? Хотите просто поболтать - пишите личку