Pascal (Есть решение просто оформить!!!) найти высоту и площадь равнобедренной трапеции,...

Question

Pascal (Есть решение просто оформить!!!) найти высоту и площадь равнобедренной трапеции, если известно одно основание, а другое в 3 раза больше заданного угла при основании 45 градусов.

---

Answer 1

Если угол равен 45°, то высота равна отрезку с (рис. в задании).
с = (b-a)/2 = (3a-a)/2 = a; h=a;
Тогда S = (a+b)×h/2 = (a+3a)×a/2 = 2a²

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadReal('Длина меньшего основания:');
  Writeln('Высота трапеции h=',a,', площадь S=',2*a*a)
end.

Пример
Длина меньшего основания: 6.17
Высота трапеции h=6.17, площадь S=76.1378

Comments

Ого, впервые увидел ReadReal , спасибо, буду пользоваться :)

Answer 2

Var S,a,b,h,c : real;
begin
    Write('Введи меньшее основание трапеции : ');
    Read(a);
    b := a*3;
    c := (b-a)/2;
    h := c;
    S := (a+b)/2 * h;
    Write('Высота трапеции равна : ', h , '. Площадь трапеции равна : ' , S, '.');
end.