Задача на подсчитывание квадратов Опции

[Nfsmaster]

Подсчитать кол-во квадратов со стороной единица в круге с центром в начале координат и радиусом r (любой). Сделайте пожалуйста на уровне 9 класса.

[Lapp]

Подсчитать кол-во квадратов со стороной единица в круге с центром в начале координат и радиусом r (любой). Сделайте пожалуйста на уровне 9 класса.

1. Квадраты координатной сетки (то есть с вершинами в целых точках)?
2. Тебе нужен алгоритм или паскалевский код?

Если ответ на п.1 - да, то алгоритм примерно такой.

Делаем цикл по i от 1 до [r] (целая часть)
В нем суммируем [Sqrt(r^2-i^2)]
Сумму умножаем на 4 (число четвертинок круга.
Все.

[Nfsmaster]

код паскаля напиши пожалуйста

[Lapp]

Что-то типа такого:

Код

  s:=0;
  for i:=1 to Trunc(r) do s:=s+Trunc(Sqrt(r*r-i*i));
  s:=s*4;

[Гость]

Извини, а не можешь написать всю программу после begin до end?

[Lapp]

Извини, а не можешь написать всю программу после begin до end?

Кто сказал, что не могу?

Код

  Write('Radius r= ');ReadLn(r);
  s:=0;
  for i:=1 to Trunc(r) do s:=s+Trunc(Sqrt(r*r-i*i));
  s:=s*4;
  WriteLn('Total squares: ',s);

Вот тебе от begin и до end..

[Nfsmaster]

Большое спасибо