помогите!Задачка с координатами Опции

[Серый]

Помогите все кто сможет !особенно прошу админов саита! Задали курсовую задачку(это в десятом то классе >:() ну  в общем слушаите
Пусть дан круг радиусом r, с  диаметром в точке C ,с декартовыми координатами x© и y©  и дан квадрат со стороной a; верхний левый угол квадрата в точке x(P) и y(P), а его стороны параллельны осям координат. Написать программу вычисляющую кол-во точек с координатами типа integer находящихся внутри фигуры образованной пересечением круга и квадрата.
С клавы вводится радиус r; сторона квадрата a; точка C(x©;y©) и точка P(x(P);y(P)); при ограничениях
r(0..30); x©>50; y©<100; a[0..50]; x(P)>0; y(P)<100;
Помогите заранее ОГРОМНОЕ СПАСИБО!!!!!!!!!!! ;D :D

[trminator]

Код

program tochki;
var cx, cy, px, py, r, a : integer;
   i, j, N              : integer;
   x, y                 : integer;
begin N:=0;
 Write('Square (x, y, a): '); ReadLn(px, py, a);
 Write('Round  (x, y, r): '); ReadLn(cx, cy, r);
 for i:=px to px+a do       {Тестируем все точки квадрата}
     for j:=py to py-a do
       if sqr(i-cx)+sqr(j-cy)<=sqr(r) {(x-a)^2+(y-B)^2=r^2 - ур-е окружности}
          then inc(N);
 WriteLn(N)
end.

===================
Что-то вроде этого...

Сообщение отредактировано: volvo - 17.12.2004 11:38