Нужна помощь в написании програмки на с++

[Jondeer]

Здравствуйте!!!!! Нужна помощь в написании програмки на с++!!! К ней есть процедурки написанные на Borland Studio 2005!! Помогите слепить это все в програмки для обычьного компилятора!!!!

Задача: Если все точки плоскости, заданные своими координатами, попадают в круг радиусом R и центром в начале координат, определить их среднюю абциссу и ординату, иначе распечатать номера точек, не попавших в заданый круг!!!
НУЖНО ЧТОБЫ ОНА БЫЛА В ПРОЦЕДУРАХ И ФУНКЦИЯХ!!!!
Помогите пожалуйста, завтра здавать!!!

Процедурки на Borland Studio 2005:

int num_rows(char* file_name)
{
char s[81];
FILE* file;
file=fopen(file_name, "r");
int i=0;
while( !feof(file))
{
fscanf(file, "%s", &s);
i++;
}
fclose(file);
return i/2;
}

void input_array(char* file_name, float **a, int N)
{
FILE* file;
file=fopen(file_name, "r");
int i=0;
while( !feof(file))
{
fscanf(file, "%f %f", &a[0][i], &a[1][i]);
i++;
}
fclose(file);
}

void kord(char*file_name,float bad_x, float bad_y,int n)
{
FILE *fap;
fap=fopen(file_name,"a");
fprintf(fap,"%d)%4.2f %4.2f\n", n, bad_x, bad_y);
fclose (fap);
}





int ischis(float r, float **A, int n)
{
float abc, ord;
int k=0;
abc=ord=0;
for (int i=0; i <n; i++) {
if( A[0][i]*A[0][i] + A[1][i]*A[1][i] <= r*r )
{
abc+=A[0][i];
ord+=A[1][i];
} else {
kord("badder.txt",A[0][i],A[1][i],i );
k++;
}
}
printf("Abc: %4.2f\n", abc/(n-k));
printf("Ord: %4.2f\n", ord/(n-k));
return k;
}

moderator: Используйте тег <CODE>

[Игорь007]

Ты б паподробнее описал свои процедурки?
Например в input_array передаеться параметр N. Тогда зачем его передовать, если он нигде не используется.

[Jondeer]

Дело в том, что процедурки писал не я! Я вот щас пытаюсь сам написать да вот не знаю как среднюю абциссу и ординату найти!!!!

[Игорь007]

А что значит плоскасть? Ведь она не ограничеваеться каардинатами, она бесконечна.
Быть может ты имееш ввиду просто огранниченную область. Если так, то эта область должна
иметь определенную форму, потому что описать произвольную область каардинатами будет проблемотично.
В твоем случае какая область? Прямоугольная?

[Jondeer]

Здесь окружность радиусом R! А описывается она так!!! ((X*X+Y*Y)<=(R*R))

[Игорь007]

Это точки проверяються.
А каардинаты значит никакой принадлежности к плоскасти не имеют.
То есть просто вводишь несколько каардинат, и проверяеш их, находяться ли они в круге.

Тогда средние значения можно получить только как срееднее арифметическое. По другому я незнаю как.

[Jondeer]

Понятно!!!А как будет выглядеть выражение, что ордината равна сумме координат по оси ох делённой на количество точек???????

[Игорь007]

Как-то сомнительно. Может нужно найти центр плоскости?

[Jondeer]

ЭЭЭ!!! Вобще препод сказал что задачка довольно простая!!!!
А ты знаешь как найти центр плоскости!!!! Да и зачем его находить???

[Olympian]

Центра плоскости не существует,т.к. она бесконечна.
Если нужно найти сред. арифм. координат по оси Х, если мы знаем координаты точек - то просто в цикле ищем сумму всех координат по оси х и делим на кол-во точек.Нечто такое

for i := 1 to PointNum do
  Sum := Sum + Points[i].x;
Sum := Sum - PointNum;