Вопрос по информатике:
Бесконечная клеточная страница состоит из квадратных клеток. Сторона каждой клетки равна k единиц. Радиус круга равен r единиц. Нужно определить, сколько клеток входит в круг (и те, которые входят полностью в круг, и те, которые пересекаются окружностью).
k и r - натуральные
Вход 1 5 Выход 88
Вход 3 7 Выход 32
Вход 4 5 Выход 12
Написать желательно на Delphi 7, но и на pascal abc сойдёт.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.02.2015 01:26
- Информатика
- remove_red_eye 3289
- thumb_up 5
Ответы и объяснения 1
begin
write('размер клетки k = '); readln(k);
write('радиус круга r = '); readln(r);
n:=r div k;
if ((r mod k)>0) then inc(n);
m:=0; p:=n-1;
for i:=1 to n-1 do
begin
if Ceil(sqrt(r*r-k*i*k*i))<=p*k then
begin
p:=p-1;
m:=m+n-i;
end;
end;
m:=4*n*n-4*m;
writeln(m);
end.
размер клетки k = 1
радиус круга r = 5
88
размер клетки k = 3
радиус круга r = 7
32
размер клетки k = 4
радиус круга r = 5
12
- 22.02.2015 22:52
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.