Помогите написать программу на паскале!

[bambaleo]

Вычислить количество точек графика функции лежащих внутри кольца с радиусами r1 и r2 центром в точке(x;y)
условие: использовать while и repeat

var 
  x,y,R1, R2: integer;
  koltoch: byte;

begin
  writeln('Введите внутренний радиус R1');
  readln(R1);
  writeln('Введите внешний радиус R2');
  readln(R2);
  koltoch:= 0;
  for x:= -R2 to R2 do
    for y:= -R2 to R2 do
      if (sqrt(sqr(x) + sqr(y)) > R1)
          and (sqrt(sqr(x) + sqr(y)) < R2) then
      begin
        koltoch:= koltoch + 1;
        writeln (x,' ',y);
     end;
  writeln(koltoch);
  readln
end

Нашел,но решена Forом, надо repeat

[Mad_Cat]

x:=-r2;
while x<=r2 do
begin
y:=-r2;
while y<=r2 do
begin

      if (sqrt(sqr(x) + sqr(y)) > R1)
          and (sqrt(sqr(x) + sqr(y)) < R2) then
      begin
        koltoch:= koltoch + 1;
        writeln (x,' ',y);
     end;
y:=y+dr2;
end;
x:=x+dr2;
end;

[type_Oleg]

Можно без корней и квадратов
Вместо этого -

if (sqrt(sqr(x) + sqr(y)) > R1)

вот это -

if ((x*x + y*y) > (R1*R1))

[bambaleo]

Сообщение от bambaleo

Вычислить количество точек графика функции,лежащих внутри кольца с радиусами r1 и r2 и центром в точке (x,y).

программа не работает верно(

[Stilet]

Как ты определил что не верно?

[bambaleo]

Написал в паскале программу . При любых значениях r1 и r2 она выводит 0

[Stilet]

Написал в паскале программу

Ну дык - программу в студию

[bambaleo]

Var x,y,r1,r1:integer;
 koltoch:byte;
begin
  writeln('Введите внутренний радиус-r1');
  readln(r1);
  writeln('Введите внешный радиус-r2');
  readln(r2);
  x:=-r2;
  while x<=r2 do
    begin 
    y:=-r2;
    while y<=r2 do 
      begin
      If(sqrt(sqr(x)+sqr(y))>r1) and (sqrt(sqr(x)+sqr(y))<r2) then
        begin
          koltoch:=koltoch+1;
          writeln(x,' ',y);
        end;
     y:=y+r2;
     end;
   x:=x+r2;
   end;
  writeln('Кол-во точек=',koltoch)
end.

[type_Oleg]

Во первых, как она вообще скомпилировалась без ошибок?

 Var x,y,r1,r1:integer;  //  2 раза r1

Во вторых, даже если это исправить, то странное приращение переменных x и y:

 y:=y+r2;
     end;
   x:=x+r2;

Они у вас -r2,0,r2, и все.
Наверное +1, а не + r2

[bambaleo]

Сообщение от Mad_Cat

x:=-r2;
while x<=r2 do
begin
y:=-r2;
while y<=r2 do
begin

      if (sqrt(sqr(x) + sqr(y)) > R1)
          and (sqrt(sqr(x) + sqr(y)) < R2) then
      begin
        koltoch:= koltoch + 1;
        writeln (x,' ',y);
     end;
y:=y+dr2;
end;
x:=x+dr2
end;

Это приращение я взял отсюда