Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задача на подсчитывание квадратов
Автор: Nfsmaster 15.09.2006 15:07
Подсчитать кол-во квадратов со стороной единица в круге с центром в начале координат и радиусом r (любой). Сделайте пожалуйста на уровне 9 класса.
Автор: lapp 15.09.2006 15:37
Цитата(Nfsmaster @ 15.09.2006 12:07) 
Подсчитать кол-во квадратов со стороной единица в круге с центром в начале координат и радиусом r (любой). Сделайте пожалуйста на уровне 9 класса.
1. Квадраты координатной сетки (то есть с вершинами в целых точках)?
2. Тебе нужен алгоритм или паскалевский код?
Если ответ на п.1 - да, то алгоритм примерно такой.
Делаем цикл по i от 1 до [r] (целая часть)
В нем суммируем [Sqrt(r^2-i^2)]
Сумму умножаем на 4 (число четвертинок круга.
Все.
Автор: Nfsmaster 15.09.2006 15:41
код паскаля напиши пожалуйста
Автор: lapp 15.09.2006 17:55
Что-то типа такого:
Код
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;
Автор: Гость 20.09.2006 20:27
Извини, а не можешь написать всю программу после begin до end?
Автор: lapp 21.09.2006 4:03
Цитата(Гость @ 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..
Автор: Nfsmaster 21.09.2006 19:42
Большое спасибо