Площадь трапеции, точка на плоскости Опции

[Lenka86]

Здравствуйте.
Пожалуйста, помогите новичку решить 2 задачи на Pascal.

1) Найти площадь равнобедренной трапеции с основаниями a и b и углом альфа при большем основании a.
2) Определить принадлежность точки с координатами (x,y) части плоскости, лежащей между прямыми x=m, x=n, (m<n).

Всем откликнувшимся заранее спасибо.

!

В следующий раз тема с таким названием будет закрыта. Перенаименовал. Читай правила.

Сообщение отредактировано: klem4 - 16.09.2007 20:25

[Sensitive]

ну можно 2-ю решить просто...
С клавиатуры вводишь m,n. И координату Х нужной тебе точки. Далее выполняется ли условие принадлежности:

if (Xa>m) and (Xa<n) then writeln('Точка находится в области')
  else writeln('Точка не находится в области');

Xa - это координата твоей точки.

[мисс_граффити]

Площадь трапеции - в одну формулу... которую можно найти в учебнике геометрии за 7-8 класс

[klem4]

Площадь трапеции - в одну формулу... которую можно найти в учебнике геометрии за 7-8 класс

по геометрии всегда была тройка, по этому спорить боюсь, но я не нашел формулы по которой можно найти площадь трапеции зная только значения оснований и угол. Надо искать либо высоту (юзая теорему синусов для треуголника) либо диагонали. А может и еще какнить

{$N+}
function _sin(const x: single): single;
begin
  _sin := sin(x / 180 * pi);
end;

function get_height(const a, b, alpha: single): single;
begin
  get_height := (a - b) * _sin(alpha) / (2 * _sin(90 - alpha));
end;

function get_trap_square(const a, b, alpha: single): single;
begin
  get_trap_square := ((a + b) / 2) * get_height(a, b, alpha);
end;

var
  a, b, alpha: single;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  write('alpha = '); readln(alpha);

  writeln(get_trap_square(a, b, alpha):5:2);
end.

[мисс_граффити]

примерно то же, но через тангенс

[Lenka86]

Спасибо всем большое. Вы мне очень помогли .