Polymorph

В завершение темы обучающих программ на Turbo Pascal’е — еще подборка из шести представителей семейства. Каждая из них в принципе повторяет основные подходы к разработке, продемонстрированные в предыдущих публикациях на эту тему, однако в каждой также имеются свои «изюминки». Встречайте:

Бегущая строка

Звездное небо

Переливающаяся разными цветами надпись

Рисование псевдографикой

Падающий текст

Расстановка ударений в тексте

Ну и, конечно, архив со всеми шестью упомянутыми обучалками и их «спецэффектами». «Звездное небо» и «Падающий текст» лучше увидеть в действии. Мне нравится. «Расстановка ударений» тоже ничего.

Polymorph Turbo Pascal Turbo Pascal, Обучалка

В продолжение темы обучалок — теперь уже “полноценная” обучалка с учебными материалами и контролем знаний, только сделанная в текстовом режиме.

Особенности:

• ТЕКСТОВЫЙ режим работы с использованием псевдографики и элементами цветовых эффектов;
• объектно-ориентированное программирование;
• работа с файлами и принтером;
• подключаемые модули;
• прямой доступ к видеопамяти;
• обучение (демонстрация на экране текстового файла с учебными материалами, возможность быстрой и медленной прокрутки содержимого файла вперед и назад);
• контроль знаний (тестовые задания, в которых реализована интуитивно понятная возможность выделения слов в предложении и выбор вариантов ответа в меню);
• при работе программы используется типизированный файл данных (в нем просто так никто не подсмотрит правильные ответы), также прилагается конвертер заданий из текстового файла в файл данных программы.

Скриншоты:

Заставка при запуске

Главное меню

Обучающий режим

Выбор и выделение слов в предложении

Контроль правильности выделения слов

Выбор варианта ответа из меню

В целом для этой обучалки справедливы те же замечания, что и для предыдущей (за исключением того, что теперь уже программа работает в текстовом режиме, а не в графическом).

Скачать программу с исходниками.

А здесь — та же обучалка, только со встроенным редактором тестовых заданий. Редактор запускается выбором соответствующего пункта в главном меню. Чтобы туда не лезли сами студенты/учащиеся, на входе в редактор запрашивается пароль. Пароль по умолчанию — “123″ без кавычек. Изменить пароль можно, войдя в редактор. Вообще для хранения пароля используется файлик p.psw, только файл это типизированный и совсем уж просто его редактировать не получится, хотя в большинстве случаев подсмотреть пароль можно, открыв файл в любом текстовом редакторе/просмотрщике, исключив первый байт/символ и визуально отсеяв разного рода мусор, попадающий туда при сохранении строки в 255 байт.

Такая защита, конечно, смешна, но если вдруг понадобится, совсем не трудно модифицировать программу для хранения пароля не в открытом виде, а подвергнув его любому преобразованию (например, самое простое — хранить его в виде набора чисел, соответствующих кодам символов). Если будут обуревать параноидальные настроения, тогда можно и свою хэш-функцию написать.

Polymorph Turbo Pascal Turbo Pascal, Обучалка

Наткнулся в архивных завалах на несколько любопытных (для студентов) вещей, когда-то написанных на Turbo Pascal’е с целью получения дополнительного заработка…

Первая из этих вещей — “обучалка”, программа для контроля знаний по культуре речи. То есть не совсем полноценная обучалка, а просто проверялка. Но проверялка по меркам Turbo Pascal и студенческого программирования достаточно навороченная:

• ГРАФИЧЕСКИЙ режим работы, анимация элементов интерфейса;
• объектно-ориентированное программирование;
• работа с файлами и принтером;
• подключаемые модули;
• реализация текстового ввода ответов в графическом режиме;
• при работе программы используется типизированный файл данных (в нем просто так никто не подсмотрит правильные ответы), также прилагается конвертер заданий из текстового файла в файл данных программы.

Скриншоты:

Заставка при запуске

Главное меню

Проверка знаний

Результаты контроля

Скачать архив с программой и исходниками.

Будет полезно изучающим Turbo Pascal, а также если просто нужно сдать обучалку для зачета. С минимальными переделками или даже без них программа может быть адаптирована для проверки знаний по любому предмету и любой теме. Требуется лишь исправить содержимое текстовых файлов; при исправлении тестовых заданий еще потребуется отконвертировать текстовый файл заданий в типизированный файл, который использует программа. Заморочка с конвертированием — только в целях хотя бы условной безопасности: чтобы особо умные студенты не подглядывали правильные ответы, просто открыв на просмотр файл данных программы. Кто захочет — пусть сделает еще и шифрование файла данных.

ЗЫ. Напоминаю: для корректного оборажения кириллицы нужно прописать в файле autoexec.nt запуск русификатора (например, keyrus или аналогичного; можно также использовать встроенный в WinXP kb16 с параметром ru). Вообще если вы работаете с графикой в Турбо Паскале, то русификатор скорее всего у вас уже будет прописан, и вы в курсе, как это делается.

ЗЗЫ. В операционных системах Windows x64 (64-битных) программа не запустится (точно так же, как не запустится и сама инструментальная оболочка Turbo Pascal), ибо в этих системах не поддерживаются старые 16-разрядные приложения под DOS. Выход — использовать виртуальную машину (например, VirtualBox) с виртуальной 32-разрядной операционной системой, умеющей работать с 16-разрядными DOS-приложениями (Windows XP x86 или более старая Windows, вплоть до “голого” DOS). Еще можно найти 32-разрядный компилятор Паскаля, который бы умел использовать графику (иначе говоря, имел бы свои подключаемые модули взамен используемых Турбо Паскалем) и перекомпилировать в нем программу и ее модули. Модули Турбо Паскаля от рождения такие же 16-разрядные, как и вся инструментальная оболочка. Поэтому нужно либо их также пересобирать (перекомпилировать) в 32-bit, либо использовать аналогичные модули от другого разработчика (если вдруг они есть). 64-разрядные компиляторы для Паскаля мне лично не попадались, но если вдруг и они в природе существуют, то вполне можно использовать. Ну и если все это кажется слишком сложным, то проще всего на время учебы пользоваться старой доброй Windows XP x86 (32 bit), потому что проблемы с необходимостью запускать старые досовские программы будут возникать регулярно.

Polymorph Turbo Pascal Turbo Pascal, Обучалка