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

[type_Oleg]

Ну так найдите 10 различий, то есть одно.

y:=y+dr2;
end;
x:=x+dr2
end;

а у вас :

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

[Stilet]

Нипоял... А функция где?

y:=y+r2;

А это что? Ты с первой же итерации выпрыгиваешь за пределы окружности... Или точнее у тебя всего одна точка в окружность попадает - (0;0)

[bambaleo]

Что за dr2 имел ввиду Mad_Cat

[type_Oleg]

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

Что за dr2 имел ввиду Mad_Cat

Да наверное 1. У тебя же был цикл for, где x,y приращивались с шагом 1.
Он наверное не обратил внимание, что у тебя все переменные целые, написал в общем виде - шаг dr2 назвал.

Что-то ты в своей задаче сам не разберешься.

[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;

Я же написал, что этот код не работает.
и что за функцию нужно вводить?

[type_Oleg]

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

и что за функцию нужно вводить?

Вот эту -

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

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

А ты просто считал количество точек из квадрата (-r2,-r2)-(r2,r2) , попадающих в кольцо.

PS А то что код не работает - просто тупо замени dr2 - на 1. И будет работать так же, как твой код с for

[bambaleo]

Спасибо. Разобрался. Все работает.