да хорошо бы. я некоторые успел скачать, хотел проверить тексты программ, но … с сайта Полные тексты программ - здесь. = их удалили. все тексты удалили.
Это вопрос не ко мне - я форумом не командую. Как я и обещал, все книги будут выложены здесь. Я своё обещание держу, но всё разом я выложить не могу.
Пока так. Заходите в эту тему, новинки будут.
Спасибо за интерес к моим книгам!
То не форум а официальный сайт.
И, на сколько я помню, эти файлы удалили потому что антивирусники находили там какие-то вирусы и помечали весь официальный сайт паскаля как вредоносный. Удалили целиком, не разбираясь, потому что спешили - но в итоге никто так и не доразобрался.
Разве до вас эта информация никак не доходила? По моему как раз только вы можете этим делом заняться.
Впервые об этом слышу.
При установке паскаля Avira тоже удаляет неблагонадёжные файлы. На что среагируют другие антивирусники, я не знаю. Единственный путь - удалять все экзешники. Но там могут остаться библиотеки и прочая подозрительная нечисть.
Кто и чем проверяет сайт, я не знаю, но почему-то подозрительные установочные файлы проверку проходят.
Если Вы заметили, я выкладываю исходники на файлообменнике, так что сайт может спать спокойно.
Если ещё будут претензии ко мне, я могу и книги убрать с сайта.
Я бы сделал проще - заархивировал исполняемые файлы и dll с паролем и написал бы его тут. Антивирусники пропускают запароленные архивы.
2 лайка
Хороший совет! Например, игры лучше было бы выкладывать в исполняемом виде, а не в исходниках.
Безусловно, выход всегда есть. Как говаривал Семён Семёныч Горбунков: Будем искать!
Во третьем номере Смекайлик:
-
Знакомит с журналом “Квант”
-
Смешивает растворы с помощью квадрата Пирсона
-
Защищается от дурака
-
Ищет слова с помощью регулярных выражений. А именно: слова-мамы, слова-гуигнгнмы, слова-геенны и длинные слова, начинающиеся с коротких.
-
Решает числобусы новым способом - с помощью множеств.
-
потчует всякой полезной, бесполезной и занимательной информацией. Вы узнаете, например, что такое дирндл и почему нужно изучать баварское наречие, чтобы полюбить русский язык.
54 страницы о программировании на Паскале-2015 и Си-шарпе.
Задание на сообразительность: беспощадно режем квадраты. СПЕЦИАЛЬНО ДЛЯ Catcher, чтобы он беспощадно резал не только правду, но и беззлобные геометрические фигуры.
Смекайлик качайте и мозги прокачайте отсюда и здесь:
В ДОГОНКУ и В ОПРОС
Папа кодер,
Мама блогер,
Сынок юзер,
Дочка с пузом.
- Верите ли вы в искусственный интеллект?
- Верите ли вы, что этот стишок написал ИИ?
- Верите ли вы, что вы верите?
- Верите ли вы, что ИИ вам верит?
- Верите ли вы, что слово Write значит «врите» и понуждает программистов ко лжи.
- Верите ли вы, что евреи говорят на иврите?
1 лайк
Лиха беда Begin!
Решаем Beginные задачи и развиваем соображалку здесь:
Пора освежевать знания – скоро в школу!
Программировать учиться всегда пригодится!
Алгоритмы и трут всё перетруд!
Запас знаний карман не тянет.
Регексы и линки решай без запинки.
Структуры данных и алгоритмы не осилишь без пол-литры.
Скажите ЧИЗ →
Сейчас вылетит программа!
Задачу из первой части можно решить перебором на компьютере гораздо проще не задействуя никакие среды программирования, а просто введя вот такую команду в стандартную командную строку bash, правда у меня это было в одну строку, но для удобства восприятия я добавил табуляцию и разбил на строки:
for a in {1..9}; do
for b in {1..9}; do
for c in {1..9}; do
for d in {0..9}; do
if ((100*$a$b$c$d/$c$d==$b$c$d*100)); then
echo "$a$b$c$d:$c$d=$b$c$d"
fi
done
done
done
done
Умножение на 100 здесь нужно поскольку bash работает только с целочисленной арифметикой, без него получается три лишних варианта:
3125:25=125
7148:48=148
8153:53=153
8235:35=235
Вторая задача ещё проще, а iconv тут понадобился только из-за кодировки исходного файла. Ну серьёзно, кто хранит текст в UTF-16?
$ iconv -f utf16 makarov_frc.txt | egrep '(.)\1(.)\2'
ГЕЕННА
ВАКУУММЕТР
МАССООБМЕН
ВАКУУММЕТРИЯ
МЕТАЛЛООПТИКА
ВОЕННООБЯЗАННАЯ
ВОЕННООБЯЗАННЫЙ
КРИСТАЛЛООПТИКА
МЕТАЛЛООБРАБОТКА
ПАРААГГЛЮТИНАЦИЯ
ТЕЛЕГАММААППАРАТ
МИЦЕЛЛООБРАЗОВАНИЕ
КРИСТАЛЛООБРАЗОВАНИЕ
$ iconv -f utf16 makarov_frc.txt | egrep '(.)\1(.)\2(.)\3'
ТЕЛЕГАММААППАРАТ
Третья задача ничем не отличается от второй, только тут проблема c форматом уже другая, в конце каждой строки мусорный байт 0x13, который надо учесть:
$ egrep '^(.*)\1\s$' EnDictionary_frc.txt
COCO
DODO
GAGA
MAMA
PAPA
BONBON
BULBUL
CANCAN
DUMDUM
MURMUR
MUUMUU
TARTAR
TESTES
BERIBERI
CHOWCHOW
FROUFROU
HOTSHOTS
Третья задача тоже решается в одну строку, но вывод слишком длинный, чтобы его приводить полностью:
$ tr -d \\r < EnDictionary_frc.txt | sort | egrep -z '\s(.*)\s\1'
Для следующей задачи делаем так:
$ iconv -f utf16 makarov_frc.txt | egrep '[БВГДЖЗКЛМНПРСТФХЦЧШЩ]{6}'
АДЪЮНКТСТВО
Как-то странно Вы решаете задачи. Сначала вы дискутировали с RAlex, что нужно решать задачи просто и понятно. А здесь я вижу какие-то извращения.
Зачем нужно занимательные задачи решать таким способом, что BASHку сносит?
Лично для пользы от такого решения никакой. Может, кому-нибудь повезёт больше.
Лучше бы решать на PascalABC.NET, чтобы не забивать себе голову другими ЯП, которых у меня в голове и так полно.
Радует Ваша активность и находчивость. Требую продолжения банкета!
Почему странно-то? Гораздо проще ввести одну коротенькую строчку в терминал, чем писать эпохальную программу на несколько сотен строк.
Ну ладно, первая получилась не очень короткой, но тоже вполне наглядной.
Не совсем. Я говорил о том, что при объяснении школьникам темы делимости чисел полезнее использовать математическое разложение числа на цифры (div и mod). А здесь не школьники.
Но с другой стороны, ничего сложного и непонятного не вижу.
В первой задаче просто идёт перебор всех возможных значений A, B, C и D, а затем проверяется равенство 100*ABCD/CD=BCD*100 и если оно верно, то эти самые ABCD выводятся командой echo.
В остальных задачах используется команда egrep, которая аналогична grep, но использует расширенные регекспы. Для неё исходные файлы предварительно подготавливаются. Команда iconv конвертирует кодировку (в данном случае из utf-16 в utf-8), tr -d \\r вырезает из файла мусорные \r. то есть байты с кодом 0x0D
Так что в этом сложного?
А теперь представим, что у нас Windows и никакого bash там нет. Ну не все в мире закостенелые линуксоиды…
1 лайк
По-моему, с раскраской куба в три цвета, так чтобы видеть за раз не более двух цветов в журнале ответ неверный. Рассуждаем так:
Поскольку на кубе есть все три цвета, а вершин где все они сходятся нет, то неизбежно существует хотя бы одна вершина, в которой сходится одна грань одного цвета и две грани другого цвета.
Грань третьего цвета может быть только противоположной грани первого цвета, поскольку если бы она была смежна с первым цветом, то ей пришлось бы быть смежной и со вторым, а это невозможно по условию.
Так же, грани смежные с гранью первого цвета, не могут быть сами первого цвета, иначе первый цвет опять окажется смежным и со вторым и с третьим, а такого быть не может.
Следовательно, все грани смежные с первоцветной имеют второй цвет, то есть образуют пояс вокруг неё. Поскольку две грани, не входящие в пояс, симметричны относительно друг друга, для трёх заданных цветов всего может быть только три вариации, где пояс окрашен в один цвет, а остальные две грани в два других.
Например, если заданы цвета: красный, желтый и зелёный, то эти способы таковы:
- Красный пояс, остальные две грани: желтая и зелёная.
- Желтый пояс, остальные две грани: красная и зелёная.
- Зелёный пояс, остальные две грани: красная и желтая.
Раскраска куба - напишите программу, которая доказывает Ваши выводы.
Зачем мне писать программу, если я уже решил задачу чисто логикой, без компьютера? Прочитайте мои рассуждения, найдите ошибку, если есть, если нет, признайте их верными и исправьте у себя. Можете воспринимать эти рассуждения как код для исполнителя “мозг” на русском языке, если вам так легче.
@RAlex, в Microsoft уже довольно давно поняли, что cmd и powershell никуда не годятся и добавили и bash тоже, оставив две первые для совместимости со старыми скриптами. А в более ранние версии можно доустановить mingw32, cygwin, gnuwin или andlinux, но это всё уже не по теме, так что спасибо админу, остальной флуд в болталке.
книга Основы визуального программирования на Юнити
Юнити – это почти Си-шарп
Си-шарп – это почти PascalABC.NET
Визуальное программирование – это наглядно. К сожалению, в PascalABC.NET такого нет, но, глядя на, возможно, да.
Юнити – хороший игровой движок, но чересчур мудрёный и сложный. Если кто решится – книга ему в помощь!
Визуально это буквально здесь:
1 лайк
а в смекайлике3 на странице 14 написано, что решение единственное, да и программа выводит Квант
ABCD : CD = BCD 3125:125 = 25
несоответствие чисел в две и три цифры и на ответе - картинке странно все написано: CD 125 а BCD 25
поменял вывод ‘ABCD : CD = BCD {0}:{2} = {1}’ ответ все равно один ABCD : CD = BCD 3125:25 = 125
Если бы мы наверняка знали, что решение единственное, то дальнейший перебор нам бы не понадобился. Но поскольку сомнения остаются, то мы доводим перебор до конца. … однако выше нашлись 4 варианта.
Решение действительно единственное, остальные “решения” возникли из-за того, что bash считает только целые числа. Если ввести в калькулятор остальные три “решения”, будет видно, что в результате получается дробное число. Именно чтобы их убрать, я и добавил умножение на 100 и слева и справа. А эти лишние решения будут, если это умножение убрать.
Если есть желание найти остальные “решения”, то / надо заменить на div
@Valery, так я жду. Верно ли что вариантов раскраски кубика в три цвета так, чтобы одновременно видеть не более двух всего три, а не шесть? Если неверно, то где я ошибся?
понятно. ну так надо было их не публиковать. а то по условию задачи они вроде как подходят.
там умножение
Всё познаётся в сравнении
Как известно, давление невинных пластиковых пузырей – лучшее интеллектуальное развлечение и психическое успокоение (релакс).
В связи с ухудшившейся (не смог ни правильно написать, ни произнести с первого раза) экологической ситуацией в мире и повсюду, давить следует виртуальные пузыри на экране компьютера. Для этого и писаны эти 2 программы.
Они внешне как бы одинаковые, но одна написана не спеша на Юнити,
а вторая второпях на PascalABC.NET.
Визуально программа PascalABC.NET явно обошла конкурента на 2 круга. Сравнение исходников добавляет ещё пару кругов в пользу и на системе программирования PascalABC.NET. Тут всё короче, понятнее и разумнее. Значит ли это, что? – Вовсе нет! Но давилки и прочие малоподвижные игры не надо и не стоит писать на Юнити. Получится занудно и весьма худшего наглядного на экране качества.
И наоборот!
Сравнивать Unity vs PascalABC.NET методом (х)лопания здесь:
Цени уют и
ЛОПАЙ, ЧТО ДАЮТ
Чехов. Жалобная книга
В этой жалостной до юмора книге ещё много интересного и полезного для пытливого естественного ума.
Читайте книги и не жалуйтесь в книги и на книги!
1 лайк
Институт математики, механики и компьютерных наук ЮФУ, 2005–2021