|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.07.2013, 14:15 | #21 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,591
|
Подключил модуль Math, решение зачлось, то есть можно использовать модули. Код решения:
Код:
E-Mail: arigato.freelance@gmail.com
|
02.07.2013, 15:21 | #22 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Delphi так съест, а как там в паскале с этим дело?
Код:
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 02.07.2013 в 15:27. |
02.07.2013, 15:39 | #23 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Arigato, Аватар - ГЕНИАЛЬНО!!! Снимаю шляпу! позволю себе ваш код привести полностью: Цитата:
p.s. имхо, надо срочно забрасывать данное решение на acmp.ru!!! |
||
02.07.2013, 15:42 | #24 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,322
|
Про округление последней цифры, кажется, забыли (в последнем варианте)
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
02.07.2013, 15:45 | #25 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
02.07.2013, 16:07 | #26 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,591
|
Кстати, у них там на этой задаче 10 тестов, а вариантов ответов может быть 26, потому какие-то решения с ошибками могут пройти. Может даже и это без округления пройдет?
P.S. Провалилась на 4 тесте. P.P.S. Есть еще такой вариант: write(exp(1):0:min(n,16), 353602875/power(10,25-n):0:0) Но он добавляет ноль в конце, если n<17, из-за этого ноля не засчитывается. Если придумать компактный способ избавиться от этого ноля... E-Mail: arigato.freelance@gmail.com
Последний раз редактировалось Arigato; 02.07.2013 в 16:15. |
03.07.2013, 01:57 | #27 | |
Homo Interneticus
Форумчанин
Регистрация: 04.03.2011
Сообщений: 611
|
В Вконтакте попросил автора короткого решения с acmp.ru рассказать о своем варианте решения или направить в "ту степь" на что Артак мне ответил:
Цитата:
|
|
03.07.2013, 10:13 | #28 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Код:
|
|
03.07.2013, 21:23 | #29 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,591
|
Ага, а сам ведь занимался этим... Тут чисто спортивный интерес, а не образовательный
Судя по используемой памяти - были. У меня с модулем Math памяти 1428 Кб, у него - 1408. E-Mail: arigato.freelance@gmail.com
Последний раз редактировалось Arigato; 03.07.2013 в 21:27. |
03.07.2013, 23:12 | #30 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,591
|
Отличная идея! Я ее немного развил, да еще и учел то, что пробелы внутри строк тоже не считаются при подсчете длинны, вот что вышло:
Код:
E-Mail: arigato.freelance@gmail.com
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Оптимизация (сокращение) кода решения задачи #2 c acmp.ru - нахождение суммы целых чисел от 1 до N | Serge_Bliznykov | Помощь студентам | 31 | 23.08.2014 22:35 |
Оптимизация кода задачи | three_cats | Общие вопросы C/C++ | 7 | 28.09.2012 15:13 |
Написать программу, которая вычисляет приближенное значение числа e с заданной точностью | quade1992 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 08.11.2011 15:10 |
Вычисление числа e, Pi с заданной точностью | MrakSPb | Общие вопросы C/C++ | 3 | 12.05.2010 12:51 |
Оптимизация и сокращение кода (if + сдвиг) | Alex Cones | Общие вопросы Delphi | 2 | 06.04.2010 21:37 |