IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Огненный Круг, Задача на Геометрию
Perfez
сообщение 24.02.2007 18:55
Сообщение #1


Бывалый
***

Группа: Модераторы
Сообщений: 231
Пол: Женский

Репутация: -  6  +


Важно:Сразу прошу вас не пишите готовую программу ,а только объясните сам алгоритм в кратце:
yes2.gif Это задача с онлайн :http://acm.timus.ru/problem.aspx?space=1&num=1490 yes2.gif
Лич Сандро проводит свои научные исследования в магии огня. Сандро стоит в центре огромного квадратного зала площадью 1000000 квадратных километров, сплошь замощённого квадратными каменными плитами со стороной один метр. По взмаху посоха вокруг Сандро возникает огненный круг радиуса R метров. Центр круга совпадает с центром зала и находится в месте соприкосновения 4-х плит. Сандро хочет посчитать, сколько плит будет испорчено огнем. Считается, что плита испорчена, если она имеет хотя бы две общие точки с кругом. На рисунке в качестве примера изображены плиты, испорченные огненным кругом радиуса 4:

Исходные данные
В единственной строке записано целое число R > 0 — радиус огненного круга. R не превосходит 10^5.
Результат
Выведите целое число — количество испорченных плит.
Примеры:
2-16
4-60

smile.gif

Сообщение отредактировано: Perfez - 5.03.2007 16:45


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Lapp
сообщение 1.03.2007 12:21
Сообщение #2


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Вот этот должен прокатить smile.gif
  While (Sqr(x)+Sqr(y)>=q) and (x>=0) do Dec(x);
Inc(z,x+1);


Попробуй, а я пока разберусь с разными версиями..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Perfez   Огненный Круг   24.02.2007 18:55
Чужак   Ну, промежуточное /графическое/ решение может выгл...   28.02.2007 2:34
Lapp   Нужно пройтись по квадратам, проверяя, есть ли у н...   28.02.2007 3:15
Perfez   огромное спасибо,Lapp. :) но существует одна пробл...   28.02.2007 8:09
Lapp   посоветуй что-нибудь Я же сказал: используй вто...   28.02.2007 8:53
Perfez   может ещё что-нибудь посоветуешь? :) ...если не на...   28.02.2007 13:52
Lapp   Сходил по ссылке, глянул. Ситуация серьезная.. :)...   28.02.2007 14:16
Perfez   3. В х кладем R (координаты) Обьясни пожалуйста...   28.02.2007 16:39
Lapp   3. В х кладем R (координаты) - Обьясни пожалуйста...   28.02.2007 22:15
Perfez   1. Обнуляем z (счетчик плиток). 2. Обнуляем y 3. ...   28.02.2007 22:34
Lapp   Все эти 8 пунктов в цикле или я не понимаю обнуле...   28.02.2007 23:18
Perfez   z:=0; Разве в Паскале,z автоматически не обнуляе...   28.02.2007 23:30
volvo   А можно мне? Смотри, что ты делаешь: For x:=0 to r...   28.02.2007 15:39
Perfez   var x,y,r:longint; z,q,t:longint; Begin ReadLn...   28.02.2007 16:15
volvo   Perfez, что-то там очень странное с тестами... Я п...   28.02.2007 23:10
volvo   Я бы не стал на это надеяться... Лучше сделать сам...   28.02.2007 23:37
Perfez   Так,так...ну не понимаю я это алгоритм... :) Ну...   1.03.2007 0:07
Lapp   Так,так...ну не понимаю я это алгоритм... :) Ну ...   1.03.2007 0:15
Lapp   Как обычно - снова обнаружил у себя ошибку.. Алго...   1.03.2007 0:35
Perfez   Я наконец-таки понял алгоритм :) :good: и смасте...   1.03.2007 9:07
Lapp   выводит неправильный результат... :no1: Наскольк...   1.03.2007 9:41
Perfez   при 4 он выводит 80,хотя он должен выводить 60... ...   1.03.2007 12:14
Lapp   Вот этот должен прокатить :) While (Sqr(x)+Sqr(y...   1.03.2007 12:21
Perfez   While (Sqr(x)+Sqr(y)>q) and not (x<0) do я н...   1.03.2007 12:25
Lapp   Да, делай как я написал в предыдущем сообщении. Н...   1.03.2007 12:40
Perfez   ню-ню... :no1: все равно,хоть и на десятом тесте н...   1.03.2007 12:55
Lapp   все равно,хоть и на десятом тесте не проходит: :)...   1.03.2007 13:08
volvo   Получаешь переполнение... Замени y,x,r:longint; н...   1.03.2007 13:12
Lapp   Я засабмитил туда этот вариант (с longint) - и все...   1.03.2007 13:23
Perfez   Я засабмитил туда этот вариант (с longint) - и вс...   1.03.2007 14:40
volvo   То есть, вызывается версия , получающая и возвраща...   1.03.2007 13:34
Lapp   Очень, кстати, странно... Смотри: .. Возможно, .....   1.03.2007 13:43


 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 22:53
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"