В программной строке

В программной строке

ResultDlg. Label1. Caption: = 'Ваш результат: '+IntToStr (Ball);

свойствуCaption компонентаLabel1, установленного в формеResultDIg, присваивается текст 'Ваш результат: ' и число набранных баллов. Функция lntToStr(Ba! l) (начальные буквы от слов Integer to string — целое в строку) переводит целое число, находящееся в переменной ball, в формат строки. Команда ResultDlg. ShowModal; демонстрирует формуРезультаты.

Исполните программу. В обычном языке Паскаль для создания такой программы необходимо написать не менее 1500 строк и затратить на это недели и месяцы упорного труда. Овладев языком Delphi, такую программу можно создать за 30 минут.

Заключение

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

Приложение «Школьный тест» имеет модульную структуру, поэтому оно может дополняться новыми формами, такими, как «Ввод ФИО тестируемого», «Пароль», «Содержание изучаемой темы», «Вывод результатов на печать» и др.

⇐ Предыдущая 1 2 3 4 5 6 7 8910 Следующая ⇒