Огненный Круг - Форум «Всё о Паскале»

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

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

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

Огненный Круг, Задача на Геометрию

Опции

Lapp	1.03.2007 13:41 Сообщение #21
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159	Цитата(Perfez @ 1.03.2007 9:07) выводит неправильный результат... Насколько неправильный? Пока я замечаю только, что строое неравентво в условии while нужно заменить на нестрогое... Это может дать некоторое количество лишних плиток.. Позже гляну поточнее и попробую (если проблема останется). -------------------- я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой

Perfez	1.03.2007 16:14 Сообщение #22
Бывалый Группа: Пользователи Сообщений: 231 Пол: Женский Репутация: 6	при 4 он выводит 80,хотя он должен выводить 60... ни этот вариант: While (Sqr(x)+Sqr(y)>q) and (x<0) do ни этот вариант: While (Sqr(x)+Sqr(y)>=q) and (x<=0) do ни этот вариант: While (Sqr(x)+Sqr(y)>q) and (x<=0) do и ни этот вариант: While (Sqr(x)+Sqr(y)>=q) and (x<0) do не катят...

Lapp	1.03.2007 16:21 Сообщение #23
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159	Вот этот должен прокатить While (Sqr(x)+Sqr(y)>=q) and (x>=0) do Dec(x); Inc(z,x+1); Попробуй, а я пока разберусь с разными версиями.. -------------------- я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой

Perfez	1.03.2007 16:25 Сообщение #24
Бывалый Группа: Пользователи Сообщений: 231 Пол: Женский Репутация: 6	While (Sqr(x)+Sqr(y)>q) and not (x<0) do я нашёл свою ошибку,хотя она ничего не меняет... на этот раз при 4 он выводит 48...

Lapp	1.03.2007 16:40 Сообщение #25
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159	Да, делай как я написал в предыдущем сообщении. Надо было просто аккуратно разобраться с номерами квадратов и координатами углов (у N-ного квадрата мы проверяем левый нижний угол, то есть с координатой N-1 по х). Так что в этой версии все, вроде, должно быть правильно. Можно подойти и по-другому (номер квадрата считать по левому углу, то есть начинать с нулевого), но смысл тот же.. Тяжело с такими тонкостями разбираться "устно", без программы.. И вынеси же возведение у в квадрат и вычитание за пределы внутреннего цикла! p:=q-Sqr(y); While (Sqr(x)>=p) and (x>=0) do Dec(x); Inc(z,x+1); PS Обрати внимание на знак второго неравенства - оно у тебя был перевернуто.. -------------------- я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой

Perfez	1.03.2007 16:55 Сообщение #26
Бывалый Группа: Пользователи Сообщений: 231 Пол: Женский Репутация: 6	ню-ню... все равно,хоть и на десятом тесте не проходит: Добавлено через 2 мин. 1490.pas ( 212 байт ) Кол-во скачиваний: 461 Добавлено через 2 мин. Цитата PS Обрати внимание на знак второго неравенства - оно у тебя был перевернуто.. = Цитата(Perfez @ 1.03.2007 13:25) While (Sqr(x)+Sqr(y)>q) and not (x<0) do я нашёл свою ошибку,хотя она ничего не меняет... на этот раз при 4 он выводит 48...

Lapp	1.03.2007 17:08 Сообщение #27
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159	Цитата(Perfez @ 1.03.2007 12:55) все равно,хоть и на десятом тесте не проходит: Это, кажется, уже проходили: Цитата(volvo @ 28.02.2007 23:10) ... проходит 9 тестов как положено, на 10-м выдает неправильный результат, хотя должно работать... Ничего не понимаю... Смотри (выше), что сделал volvo для исправления этой ошибки.. -------------------- я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой

volvo	1.03.2007 17:12 Сообщение #28
Гость	Получаешь переполнение... Замени y,x,r:longint; на y,x,r:Int64; , и все будет в порядке...

Lapp	1.03.2007 17:23 Сообщение #29
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159	Я засабмитил туда этот вариант (с longint) - и все прошло... 1551178 15:22:04 1 Mar 2007 Lapp 1490 Pascal Accepted 0.015 112 KB Добавлено через 5 мин. Вот код - скрываю спойлером, согласно просьбе автора темы Спойлер (Показать/Скрыть) var y,x,r:longint; q,p,z:int64; Begin ReadLn®; z:=0; y:=0; x:=r; q:=Sqr®; Repeat p:=q-Sqr(y); While (Sqr(x)>=p) and (x>=0) do Dec(x); Inc(z,x+1); y:=y+1; Until y>r; z:=z*4; WriteLn(z); End. -------------------- я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой

volvo	1.03.2007 17:34 Сообщение #30
Гость	Цитата(Lapp) Я засабмитил туда этот вариант (с longint) - и все прошло... Очень, кстати, странно... Смотри: Цитата(RTL.pdf) 29.9.479 sqr Synopsis: Calculate the square of a value. Declaration: function sqr(l: LongInt) : LongInt function sqr(l: Int64) : Int64 function sqr(l: QWord) : QWord function sqr(d: ValReal) : ValReal Visibility: default Description: Sqr returns the square of its argument X. Errors: None. То есть, вызывается версия , получающая и возвращающая LongInt... Смотрим дальше: Цитата(REF.pdf) Table 3.2: Predefined integer types Type Range Size in bytes Byte 0 .. 255 1 Shortint -128 .. 127 1 Smallint -32768 .. 32767 2 Word 0 .. 65535 2 Integer either smallint, longint or int64 size 2,4 or 8 Cardinal either word, longword or qword size 2,4 or 8 Longint -2147483648 .. 2147483647 4 Longword 0..4294967295 4 Int64 -9223372036854775808 .. 9223372036854775807 8 QWord 0 .. 18446744073709551615 8 , из чего следует, что при R > 46340 результат в LongInt не поместится... Сбой налицо... Возможно, тебе просто повезло, и значения больше приведенного мной не передавались для теста твоей программе... После смены типа на Int64 программа будет работать с любыми заявленными в задании значениями...

Lapp	1.03.2007 17:43 Сообщение #31
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159	Цитата(volvo @ 1.03.2007 13:34) Очень, кстати, странно... Смотри: .. Возможно, .. значения больше приведенного мной не передавались для теста твоей программе... Действительно странно.. По условию - размер зала миллион на миллион метров.. Но я не думаю, что там случайным образом выбираются тесты. Кроме того, я прогнал еще раз - снова Ок. Похоже на ошибку. Надо бы глянуть на условия на этом сайте.. Есть там что-то по синтаксису и т.п.? -------------------- я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой

Perfez	1.03.2007 18:40 Сообщение #32
Бывалый Группа: Пользователи Сообщений: 231 Пол: Женский Репутация: 6	Цитата(Lapp @ 1.03.2007 14:23) Я засабмитил туда этот вариант (с longint) - и все прошло... 1551178 15:22:04 1 Mar 2007 Lapp 1490 Pascal Accepted 0.015 112 KB Добавлено через 5 мин. Вот код - скрываю спойлером, согласно просьбе автора темы Спойлер (Показать/Скрыть) var y,x,r:longint; q,p,z:int64; Begin ReadLn®; z:=0; y:=0; x:=r; q:=Sqr®; Repeat p:=q-Sqr(y); While (Sqr(x)>=p) and (x>=0) do Dec(x); Inc(z,x+1); y:=y+1; Until y>r; z:=z4; WriteLn(z); End. в чём различия? я сойду с ума... var y,x,r:longint; q,z,p:int64; Begin ReadLn®; z:=0; y:=0; x:=r; q:=Sqr®; Repeat p:=q-Sqr(y); While (Sqr(x)>=p) and (x>=0) do Dec(x); Inc(z,x+1); y:=y+1; Until y>r; z:=z4; WriteLn(z); End. Добавлено через 16 мин. вот абсолютно правильный вариант: 1490.pas ( 202 байт ) Кол-во скачиваний: 514 спасибо огромное volvo и Lapp ,но я до сих пор не понимаю в чём различие моего и Lapp-овского вариантов... это невозможно объяснить...

« Предыдущая тема · Задачи · Следующая тема »

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

Пользователей: 0