Здравствуйте.
Пожалуйста, помогите новичку решить 2 задачи на Pascal.
1) Найти площадь равнобедренной трапеции с основаниями a и b и углом альфа при большем основании a.
2) Определить принадлежность точки с координатами (x,y) части плоскости, лежащей между прямыми x=m, x=n, (m<n).
Всем откликнувшимся заранее спасибо.
! | В следующий раз тема с таким названием будет закрыта. Перенаименовал. Читай правила. |
ну можно 2-ю решить просто...
С клавиатуры вводишь m,n. И координату Х нужной тебе точки. Далее выполняется ли условие принадлежности:
if (Xa>m) and (Xa<n) then writeln('Точка находится в области')
else writeln('Точка не находится в области');
Площадь трапеции - в одну формулу... которую можно найти в учебнике геометрии за 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.
примерно то же, но через тангенс
Спасибо всем большое. Вы мне очень помогли .