Важно, процедуры в паскале

[KitFolly]

Помогите пожалуйста с программой, очень надо.
Информатика Задана окружность (x-a)^2+(y-b)^2=R^2 и точки Р(р1,р2) F(f1,f2), M(m1,m2). Выяснить и напечатать сколько точек лежит внутри окружности. Оформить в виде процедуры.

[Zer0]

В чем проблема? Не умеете писать процедуры или не понимаете алгоритма решения?

[KitFolly]

Скорее не знаю как записать процедуру

[Utkin]

Находим координаты центра окружности. Затем выясняем расстояния между центром и указанными точками. Если расстояние меньше или равно радиусу, значит точка лежит внутри окружности. Иначе нет.

[KitFolly]

Program p1;
Uses crt;
Var
x,y,a,b,P,F,M,R: real;
Begin
Clrscr;
R:=4;
write ('x=');
read (x);
write ('y=');
read (y);
write ('a=');
read (a);
write ('b=');
read (b);
if (y<=x) and (x<=1) and (y>=0)
then
writeln ('P принадлежит окружности ')
else
writeln ('P не принадлежит окружности ');
Readkey;
End.
Типа того? я правильно поняла?

[Zer0]

var .....
    count:integer;

procedure CountPoints(p1,p2,f1,f2,m1,m2,x,y,r:real; var count:integer);
begin
count:=0;
if (sqr(p1-a)+sqr(p2-b)<sqr(r)) then inc(count);
if (sqr(f1-a)+sqr(f2-b)<sqr(r)) then inc(count);
if (sqr(m1-a)+sqr(m2-b)<sqr(r)) then inc(count);
end;

begin
//здесь нужно ввести точки и параметры x,y,R
CountPoints(p1,p2,f1,f2,m1,m2,a,b,r,count);
writeln ('Vnutri okrujnosti ',count,' tochek');
end.

2 Utkin, можно и так, но можно обойтись без лишних расчетов - просто подставить координаты точки в формулу окружности и проверить, чтобы левая часть была меньше правой (не помню когда именно, но это еще в школе проходилось)

[KitFolly]

спасибо за помощь)

[KitFolly]

Помогите программа готова не знаю как записать предпоследнюю строку выдает 0 точек или 3 хотя по координатам должно 2 принадлежать
writeln ('P, F, M не принадлежит окружности ');
if sqr(x-a)+sqr(y-b)<sqr(R)
then
writeln ('P, F, M принадлежит окружности ');



begin
writeln('Vvedtie koordinaty tochki p:');
readln(x, y);
writeln('Vvedtie koordinaty tochki f:');
readln(x, y);
writeln('Vvedtie koordinaty tochki m:');
readln(x, y);
n:=0;
if (sqr(x-a)<=2) and (sqr(y-b)<=2) and (x<=y) then n:=n+1;

writeln('Kolichestvo tochek = ', n);

[Mad_Cat]

writeln('Vvedtie koordinaty tochki p:');
readln(x, y);
n:=0;
if (sqr(x-a)<=2) and (sqr(y-b)<=2) and (x<=y) then n:=n+1;
writeln('Vvedtie koordinaty tochki f:');
readln(x, y);
if (sqr(x-a)<=2) and (sqr(y-b)<=2) and (x<=y) then n:=n+1;
writeln('Vvedtie koordinaty tochki m:');
readln(x, y);
if (sqr(x-a)<=2) and (sqr(y-b)<=2) and (x<=y) then n:=n+1;

writeln('Kolichestvo tochek = ', n);

[KitFolly]

все равно не дает результата которого хотелось бы 0 точек
посмотрите программу и исправьте меня если что то не правильно

Program l1;
Uses crt;
Var
a,b,x,y,p1,p2,f1,f2,m1,m2,p,f,m,R: real;
n:integer;
Begin
Clrscr;
a:=3;
b:=4;
R:=2;
write ('x=');
read (x);
write ('y=');
read (y);
write ('p1=');
read (p1);
write ('p2=');
read (p2);
write ('f1=');
read (f1);
write ('f2=');
read (f2);
write ('m1=');
read (m1);
write ('m2=');
read (m2);
writeln ('P, F, M íå ïðèíàäëåæàò îêðóæíîñòè ');
if sqr(x-a)+sqr(y-b)<sqr(R)
then
writeln ('P, F, M ïðèíàäëåæàò îêðóæíîñòè ');
begin
writeln('Vvedtie koordinaty tochki p:');
readln(x, y);
n:=0;
if (sqr(x-a)<=2) and (sqr(y-b)<=2) and (x<=y) then n:=n+1;
writeln('Vvedtie koordinaty tochki f:');
readln(x, y);
if (sqr(x-a)<=2) and (sqr(y-b)<=2) and (x<=y) then n:=n+1;
writeln('Vvedtie koordinaty tochki m:');
readln(x, y);
if (sqr(x-a)<=2) and (sqr(y-b)<=2) and (x<=y) then n:=n+1;
writeln('Kolichestvo tochek = ', n);
end;
end.