Геометрические задачи

21K

20 октября 2006 года

2 / / 20.10.2006

Задали задачки по програмированию на паскале, среди них оказались задачи связанные с геометрией :(
Помогите плиз...

1. На плоскости задана окружность с центром в т.О(x0,y0) радиуса R. Составьте программу, определяющую, принадлежит ли заданная точка Z(x,y) множеству таких точек на плоскости, что касательные, проведенные из этой точек к данной окружности, образуют между собой угол F.

2. Длина основания равнобедренного треугольника равна A, величина угла при вершине F. Составьте программу вычисления длины наибольшей высоты треугольника.

Подписаться на вопросНеобходима регистрация

По порядку

Сначала полезные

Сначала решения

5 ответов

0 спам

12K

20 октября 2006 года

rjx

55 / / 11.03.2006

[QUOTE=Fieldy]
1. На плоскости задана окружность с центром в т.О(x0,y0) радиуса R. Составьте программу, определяющую, принадлежит ли заданная точка Z(x,y) множеству таких точек на плоскости, что касательные, проведенные из этой точек к данной окружности, образуют между собой угол F.
[/QUOTE]

Свернуть исходник

Код:

const eps = 0.001; // точность

var x0, y0, x, y, R, F, a: real;

function arcsin(x: real): real;

begin

    if abs(x) > 1 then arcsin := 0

        else arcsin := arctan( x / sqrt((1 - sqr(x))) ) / pi * 180.0

end;

function angle(x0, y0, x, y, R: real): real;

var l: real;

begin

    l := sqrt( sqr(x-x0)+sqr(y-y0) );

    angle := 2 * arcsin(R/l)

end;

begin

    readln(x0, y0, x, y, R, F);

    a := angle(x0, y0, x, y, R);

    if abs(a-F) < eps then

        writeln('yes')

    else

        writeln('no')

end.

[QUOTE=Fieldy]
2. Длина основания равнобедренного треугольника равна A, величина угла при вершине F. Составьте программу вычисления длины наибольшей высоты треугольника.
[/QUOTE]

Код: