[emTPy]

for x:=r1+1 to r2-1 do
Должен быть целочисленным

Код:

var
r1,r2,k,x,y,rez: integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
read(input,r1,r2);
close(input);
rez:=0;
{*Делаем перебор всех точек начиная от [-r2,r2](верхнийй левый угол) и 
заканчивая [r2,-r2](нижний правый угол)*}
for x:=-r2 to r2 do
  for y:=-r2 to r2 do
{*Для каждой точки проверяем *}
    if ((x*x+y*y<r2){*Лежит ли она внутри окружность радиуса r2 И*} 
and (x*x+y*y>r1){*вне окружности радиуса r1*}) then rez:=rez+1;{*если да прибавляем 1 к количесву деревьев*}
writeln(output,rez);
close(output);
end.

[detrin]

Теперь ошибка в 12 строке: Цитата: Error 97: Invalid FOR Control variable - Ошибочен тип переменной параметра цикла оператора FOR. »

Имхо, скобки нужны: "for x:=(r1+1) to (r2-1) do"

[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:=-r2 to r2 do
for y:=-r2 to r2 do
if ((x*x+y*y<r2) and (x*x+y*y>r1)) then k:=k+1;
rewrite(output);
writeln(output,k);
close(output);
end.

Выходной файл не создается, да и простой вывод на экран k не работает

[lxa85]

Habetdin,

if ((x*x+y*y<r2) and (x*x+y*y>r1)) then k:=k+1; »

найди 2 ошибки.

да и простой вывод на экран k не работает »

это как?
readln; в конце программы поставь, чтобы вывод k посмотреть.
переменными r1, r2 тоже можно для начала задаться в ручную.

Отладчик что говорит по ходу выполнения программы?
Какая вообще среда программирования?

[Habetdin]

lxa85, Turbo Pascal
Вот что сейчас:

Код:

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

Но результат почему-то неверный, при r1=1 и r2=3 k должно быть 20, а получается 4

[lxa85]

Habetdin,

Habetdin, Цитата Habetdin:if ((x*x+y*y<r2) and (x*x+y*y>r1)) then k:=k+1; » найди 2 ошибки. »

Вся твоя программа, по сути, состоит из этого условия. Все что выше и ниже, не более чем обрамление, и ничего интересного не представляет. Т.е. про это вообще сейчас можно забыть, и не смотреть.

[Habetdin]

lxa85,

if (x*x+y*y<r2) and (x*x+y*y>r1) then k:=k+1; »

Как я понял, 1 ошибка устранена (в синтаксисе команды?)?

[lxa85]

Как я понял, 1 ошибка устранена? »

Нет!
Конструкции

Код:

if (x*x+y*y<r2) and (x*x+y*y>r1) then
    k:=k+1;

и

Код:

if (x*x+y*y<r2) and (x*x+y*y>r1) then k:=k+1;

совершенно идентичны.
if <условие> then <оператор, действие> ;
Ищи ошибку дальше.
Если не найдешь, утром буду сильно ругаться.
( С приведением наглядного материала и разносом по всем статьям. )
Я предупредил.

[Habetdin]

lxa85, э... я скобки лишние убрал

С приведением наглядного материала и разносом по всем статьям. »

Паскаль неделю назад начал изучать по очень старой книжке

[Drongo]

э... я скобки лишние убрал »

Вряд ли там скобки, так как скобки могут быть управляющими, например, ((a + b) + (c + d )) + (e + f) Сначала выполнится сложение в скобках ((a + b) + (c + d )), потом в (e + f).

lxa85, Я думаю ты строг сильно, одно дело понимать что ищем, а другое дело, не знать и при этом искать ошибку.