лежат ли точки в окружности

[powergrean]

Дан файл PRIM.dat в котором записаны координаты точек x, y,...xn, yn. Найти лежат ли точки в окружности с центром О(а,b) и радиусом R.
З.Ы. Заранее благодарю!

[p51x]

Ну если вопрос "жизни и смерти", то фриланс вас спасет.
Цена? Сроки?

[Grag]

За небольшое вознаграждение...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[Ketchup]

Вот, прошу. Работает правильно, только я не уверена, что нужно было прямо в программе вводить файл

Uses crt;
var
 f: file of integer;
 a,b,R,x,y,xi,yi:integer;
 Res:Real;
 k:boolean;
Begin
 clrscr;
 Write('Vvedite koordinaty X centra kryga: '); ReadLn(a);
 Write('Vvedite koordinaty Y centra kryga: '); ReadLn(b);
 Write('Vvedite radiys R kryga: ');ReadLn(R);
 Assign(f,'Prim.dat');
 Rewrite(f);
 WriteLn('Vvodim fajl:');
 Repeat
  Write('Vvedite X to4ki:'); ReadLn(xi); Write(f,xi);
  Write('Vvedite Y to4ki:'); ReadLn(yi); Write(f,yi);
  WriteLn('Xotite ew4o? Esli net nazmite N');
 until (readkey='N')or(readkey='n');
 close(f); reset(f);
 While not eof(f) do
  begin
   Read(f,x);
   Read(f,y);
   Res:=sqrt(sqr(x-a)+sqr(y-b));
   if Res<=R then
   begin
    WriteLn('To4ka(',x,',',y,') lezit v okryznosti.');
    k:=true;
   end;
  end;
 if k=false then
  WriteLn('V fajle net to4ki, kotoraja lezit v okryznosti.');
 close(f);
 ReadLn;
End.

[Stilet]

я не уверена

Не страшно. Когда стоит вопрос смерти и... смерти любая соломинка столбом покажется. Тем паче задача решена.