Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Площадь трапеции, точка на плоскости

Автор: Lenka86 16.09.2007 19:38

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

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

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

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


Автор: Sensitive 16.09.2007 20:15

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

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


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

Автор: мисс_граффити 16.09.2007 20:57

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

Автор: klem4 16.09.2007 22:08

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


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


{$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.

Автор: мисс_граффити 16.09.2007 22:42

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

Автор: Lenka86 17.09.2007 0:53

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