Полная версия: Задача на подсчитывание квадратов
Подсчитать кол-во квадратов со стороной единица в круге с центром в начале координат и радиусом r (любой). Сделайте пожалуйста на уровне 9 класса.
Цитата(Nfsmaster @ 15.09.2006 12:07) 
Подсчитать кол-во квадратов со стороной единица в круге с центром в начале координат и радиусом r (любой). Сделайте пожалуйста на уровне 9 класса.
1. Квадраты координатной сетки (то есть с вершинами в целых точках)?
2. Тебе нужен алгоритм или паскалевский код?
Если ответ на п.1 - да, то алгоритм примерно такой.
Делаем цикл по i от 1 до [r] (целая часть)
В нем суммируем [Sqrt(r^2-i^2)]
Сумму умножаем на 4 (число четвертинок круга.
Все.
код паскаля напиши пожалуйста
Что-то типа такого:
Код
s:=0;
for i:=1 to Trunc(r) do s:=s+Trunc(Sqrt(r*r-i*i));
s:=s*4;
for i:=1 to Trunc(r) do s:=s+Trunc(Sqrt(r*r-i*i));
s:=s*4;
Извини, а не можешь написать всю программу после begin до end?
Цитата(Гость @ 20.09.2006 17:27)
Извини, а не можешь написать всю программу после 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);
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..
Большое спасибо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.