program Project1;
{$APPTYPE CONSOLE}
{На плоскости задано кольцо с центром в точке (х0, у0) внутренним радиусом
Р1 и внешним радиусом Р2. Составить фуннкцию, которая для заданного массива
точек ХУ вычисляет количество точек, принадлежащих кольцу. Точки,
расположенные на границе кольца считать принадлежащими кольцу.}
uses
SysUtils;
var x0, y0, R1, R2: real;
function CalcCount(const x0, y0, R1, R2: real): integer;
var a: array[1..15, 1..2] of real;
n, i, j, k: integer;
R, x, y: real;
begin
write('Input the number of points: ');
readln(n);
writeln('Input the coordinates of points: ');
for i:= 1 to n do
begin
writeln(i,' point:');
j:= 1;
write('X= ');
readln(a[i, j]);
write('Y= ');
readln(a[i, j+1]);
writeln('----------------------------------');
end;
k:=0;
for i:= 1 to n do
begin
j:= 1;
x:= a[i, j];
y:= a[i, j+1];
R:= (sqrt(sqr(x0- x) + sqr(y0- y)));
if (R1<= R) and (R<= R2) then k:= k+1;
end;
CalcCount:= k;
end;
begin
write('Input x0: ');
readln(x0);
write('Input y0: ');
readln(y0);
write('Input R1: ');
readln(R1);
write('Input R2: ');
readln(R2);
writeln('----------------------------------');
writeln('The number of "good" points: ', CalcCount(x0, y0, R1, R2));
readln;
end.
Помогите пожалуйста решить задачу по Паскалю!
Заранее премного благодарен...
если R1<=Rточки<=R2 - точка входит. что тут сложного?
Сложность именно в коде, я именно в паскале слаб... Он нужен срочно... Но всё равно, за ответ спасибо.