с C++ на Pascal первести.

[TLV]

Можете перевести с C++на Паскаль

/////////////////////////////////////////////////////////////////////////////////////
//На плоскости заданы множество точек А и множество окружностей В. Найдите две такие 
//различные точки из А, что проходящая через них прямая пересекается с максимальным 
//количеством окружностей из В. 
/////////////////////////////////////////////////////////////////////////////////////
#include <complex>
#include <functional>
#include <iostream>
#include <set>
/////////////////////////////////////////////////////////////////////////////////////
typedef double                 T_coord;
typedef std::complex<T_coord>  T_point;
/////////////////////////////////////////////////////////////////////////////////////
struct T_less_for_points : public std::binary_function<T_point, T_point, bool> 
{    
    bool operator() (T_point A, T_point B)
    {
        return A.real() == B.real() ? A.imag() < B.imag() : A.real() < B.real();
    }
};
/////////////////////////////////////////////////////////////////////////////////////
typedef std::set<T_point, T_less_for_points>  T_points;
/////////////////////////////////////////////////////////////////////////////////////
T_point  vect(T_point  A, T_point  B)
{
    return B - A;
}
/////////////////////////////////////////////////////////////////////////////////////
struct T_circle
{
    T_point  center_;
    T_coord  radius_;    
    //-------------------------------------------------------------------------------
    T_circle
        (
            T_point  center = 0, 
            T_coord  radius = 0
        ) : center_(center), radius_(radius)
    {}
    //-------------------------------------------------------------------------------
    bool  intersects_line(T_point  A, T_point  B) const
    {
        T_point  AB = vect(A, B);
        T_point  AC = vect(A, center_);
        //Окнужность пересекает прямую AB, если в треугольнике ABC, где C - центр окружности,
        //длина h высоты , опущенной на сторону AB, не больше радиуса данной окружности.
        //h найдем, разделив удвоенную площадь треугольника ABC на длину отрезка AB.
        //Удвоенную площадь треугольника ABC найдем как модуль определителя векторов AB и AC.
        //Итак, пересекает, если h <= R, т.е.
        //2 * S / abs(AB) <= R
        return  abs(AB.real() * AC.imag() - AB.imag() * AC.real()) / abs(AB) <= radius_;
    }
};
/////////////////////////////////////////////////////////////////////////////////////
struct T_less_for_circles : public std::binary_function<T_circle, T_circle, bool> 
{    
    bool operator() (T_circle A, T_circle B)
    {        
        return A.center_ == B.center_ 
                   ? A.radius_ < B.radius_ 
                   : T_less_for_points().operator () (A.center_, B.center_);
    }
};
/////////////////////////////////////////////////////////////////////////////////////
typedef std::set<T_circle, T_less_for_circles>  T_circles;
/////////////////////////////////////////////////////////////////////////////////////
T_circles  input_circles()
{
    std::cout << std::endl;
    int  n;
    do
    {
        std::cout << "Введите количество окружностей >= 1: ";
        std::cin >> n;
    }while(n < 1);
    
    std::cout << "Введите координаты центра и радиусы "             
              << n
              << " окружностей:"
              << std::endl;
 
    T_circles  circles;
 
    do
    {        
        std::cout << std::endl
                  << std::endl            
                  << "X"
                  << circles.size() + 1
                  << " = ";
        T_coord x = 0;
        std::cin >> x;
 
        std::cout << "Y"
                  << circles.size() + 1
                  << " = ";
        T_coord y = 0;
        std::cin >> y;
 
        std::cout << std::endl
                  << "R"
                  << circles.size() + 1
                  << " = ";
        T_coord r = 0;
        std::cin >> r;
        
        circles.insert(T_circle(T_point(x, y), r));
    }while(circles.size() < n);
    return  circles;
}
/////////////////////////////////////////////////////////////////////////////////////

Или перевести на КуМИР
заранее спасибо. Помогите пожалуйста

[TLV]

Продолжение программы

T_points  input_points()
{
    std::cout << std::endl;
    int  n;
    do
    {
        std::cout << "Введите количество точек >= 2: ";
        std::cin >> n;
    }
    while(n < 2);             
    
    std::cout << "Введите координаты "             
              << n
              << " точек:"
              << std::endl;
 
    T_points  points;
 
    do
    {        
        std::cout << std::endl
                  << std::endl            
                  << "X"
                  << points.size() + 1
                  << " = ";
        T_coord x = 0;
        std::cin >> x;
 
        std::cout << "Y"
                  << points.size() + 1
                  << " = ";
        T_coord y = 0;
        std::cin >> y;
        
        points.insert(T_point(x, y));
    }while(points.size() < n);
    return  points;
}
/////////////////////////////////////////////////////////////////////////////////////
void  get_line_intersected_max_circles
    (
        const T_circles&  circles,
        const T_points&   points,
        T_point&          A,
        T_point&          B, 
        int&              circles_count_max
    )
{
    circles_count_max = 0;
    //Перебираем все пары множества точек.
    for(T_points::const_iterator  point_it_A = points.begin(); point_it_A != points.end();
        ++ point_it_A)
    {
        for(T_points::const_iterator  point_it_B = point_it_A; point_it_B != points.end();
            ++ point_it_B)
        {
            if(point_it_B == point_it_A)
            {
                continue;
            }
            int circles_count_cur = 0;
            //Перебираем все окружности, и подсчитываем сколько из них пересекает 
            //прямая, проходящая через точки *point_it_A и *point_it_B.
            for(T_circles::const_iterator  circle_it = circles.begin();             
                circle_it != circles.end(); ++circle_it)
            {
                if(circle_it->intersects_line(*point_it_A, *point_it_B))
                {
                    ++circles_count_cur;
                }
            }
            if(circles_count_max == 0
               || circles_count_cur > circles_count_max)
            {
                circles_count_max = circles_count_cur;
                A = *point_it_A;
                B = *point_it_B;
            }
        }
    }
}
/////////////////////////////////////////////////////////////////////////////////////
int main()
{
    std::locale::global(std::locale(""));
    T_circles  circles  = input_circles  ();
    T_points   points   = input_points   ();
    T_point  A;
    T_point  B;
    int circles_count_max = 0;
    get_line_intersected_max_circles(circles, points, A, B, circles_count_max);
    std::cout << "Прямая, проведенная через точки "
              << A
              << " и "
              << B
              << std::endl
              << " пересекает максимально возможное количество окружностей: "
              << circles_count_max
              << std::endl;

[was3110]

Да, могу, обращайтесь

[TLV]

was3110написал в icq

[was3110]

контакт видел...

[TLV]

Помогите пожалуйста переписать(

[TLV]

Об оплате договоримся