[lxa85]

Вопрос в том, как найти кол-во деревьев (по какой формуле?) »

Для каждого дерева узнать длину вектора Ri(O,Ti) где Ti - i'тое дерево парка O - центр парка.
В формуле получается сумма от 1 до n при условии R1<Ri<R2 .
Для уменьшения кол-ва расчетов можно взять 1/8 круга, скорректировав конечный результат.

[Habetdin]

Код:

program Park;
var
r1,r2,rez: integer;
i,o: text;
begin
assign(i,'input.txt');
assign(o,'output.txt');
reset(i);
read(i,r1,r2);
close(i);
// Как дальше?
rez:=Ri(0,

[lxa85]

Habetdin,

// Как дальше? »

А дальше я своих студентов заставляю писать математическую модель
И тогда введя все нужные обозначения, у них не должно возникнуть вопроса, а "что писать"?
Все это будет четко привязано к формулам. Только за абстракцией, к примеру, R=... будет стоять либо функция, либо простая арифметика, массив, и пр.

assign(i,'input.txt'); assign(o,'output.txt'); »

asignfile !

" rez:=Ri(0, " - вот это надо переделать в отдельную функцию. И больше ничего подсказывать не буду


P.S. Я как-то говорил, что не буду заниматься написанием программ. Мне больше интересен процесс понимания человеком того, что он пишет. Т.е. семантика языка это одно, внутренняя логика и структура программы - другое. Вот меня интересует то самое другое.

[pva]

Для экономии времени ещё можно ходить не по всему кругу, а только по его границе, потом вычести компоненту y "нижнего" круга из "верхнего". Получится имитация вычисления площади как интеграла (f2(x) - f1(x))dx

[detrin]

В школьные годы на олимпиаде была подобная задача, но с треугольником. По трем заданным точка рисуется треугольник и нужно проверить попадает ли четвертая точка в него или нет. Одноклассник очень оригинально ее решил, что мне сильно врезалось в память.
Он решил ее графически. Если сделать аналогию, то нужно нарисовать 2 окружности и залить внутреннее пространство каким-либо цветом. Ну а после нужно перебирать точки и считывать их цвет. Решение данной задачи было сделано на Бейсике, но ведь наверняка в Паскале есть подобные функции.

[emTPy]

Код:

program Park;
var
r1,r2,rez,i,j: integer;
in: text;
begin
assign(in,'input.txt');
assign(o,'output.txt');
reset(in);
read(in,r1,r2);
close(i);
rez:=0;
for i:=-r2 to r2 do
  for j:=-r2 to r2 do
    if ((i*i+j*j<r2) and(i*i+j*j>r1)) then rez:=rez+1;
writeln(rez);
end.

[Habetdin]

Вот что имеется на данный момент:

Код:

program Park;
var
r1,r2,k,x,y: integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
read(input,r1,r2);
close(input);
k:=0;
for x:=r1+1 to r2-1 do
begin
y:=sqrt(sqr(r2)-sqr(x));
if sqr(x)+sqr(y)=sqr(r2) then dack(y);
k:=k+y;
for x:=0 to r1-1 do
begin
if sqr(x)+sqr(y)=sqr(r1) then k:=k-y;
end;
end;
k:=k*4;
rewrite(output);
writeln(output,k);
close(output);
end.

Вот только ошибка в 13 строке (error 26: type mismatch) - наверное из-за типа данных integer?

[lxa85]

Habetdin, Небольшой совет, делайте отступы в блоках\условиях, так будет легче читать код. Иначе многие специалисты, просто не утрудят себя "ломанием" глаз чтобы прочитать не читабельный код. Понимаете? »

Позволю себе процитировать Drongo, т.к. у меня та же мысль звучит в более жестких формах.
Habetdin,

наверное из-за типа данных integer? »

Разумеется.
y - определен как целое, а ему хотят назначить результат с плавающей запятой. результат работы функции sqrt.

if sqr(x)+sqr(y)=sqr(r2) then dack(y);

dack(y) - вот это что такое?

begin y:=sqrt(sqr(r2)-sqr(x)); if sqr(x)+sqr(y)=sqr(r2) then dack(y); k:=k+y; for x:=0 to r1-1 do begin if sqr(x)+sqr(y)=sqr(r1) then k:=k-y; end; end; »

Ошибку не вижу, но чую она есть. Код какой-то неправильный. Не складный.
На будущее операцию возведения в квадрат проще и читабельнее писать как x*x
Всем переменным либо дать более полные и нормальные названия, либо в var прокомментировать их и дать словесное обозначение.
Что такое k - ?
К циклу так же дать комментарии. Т.к. непонятно что делаешь, и что надо проверять.

[Habetdin]

lxa85, r1,r2 - см. условие задачи; k - кол-во деревьев; x,y - оси абцисс, ординат
dack(y); - то же самое, что и y:=y-1

Код:

program Park;
var
r1,r2,k: integer;
x,y: real;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
read(input,r1,r2);
close(input);
k:=0;
for x:=r1+1 to r2-1 do
begin
y:=sqrt(r2*r2-x*x);
if x*x+y*y=r2*r2 then dack(y);
k:=k+y;
for x:=0 to r1-1 do
begin
if x*x+y*y=r1*r1 then k:=k-y;
end;
end;
k:=k*4;
rewrite(output);
writeln(output,k);
close(output);
end.

Теперь ошибка в 12 строке:

Error 97: Invalid FOR Control variable - Ошибочен тип переменной параметра цикла оператора FOR.