Конструктор учебных заданий для электронного задачника Programming Taskbook - 50 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

50
5.4. Добавление нового задания
Добавим к нашей группе новое задание. Фактически это задание будет дублиро-
вать задание Begin3, однако вместо импортирования этого задания мы разработаем
его самостоятельно. Все действия по созданию нового задания удобно реализовать во
вспомогательной процедуре, которую можно назвать MakerDemo3 (таким образом,
название процедуры будет соответствовать имени создаваемого задания, хотя это и не
является обязательным):
procedure MakerDemo3;
var
a, b: real;
begin
CreateTask('Ввод и вывод данных, оператор присваивания');
TaskText('Даны стороны прямоугольника~{a} и~{b}.', 0, 2);
TaskText('Найти его площадь {S}~=~{a}\*{b} и периметр ' +
'{P}~=~2\*({a}\;+\;{b}).', 0, 4);
a := (1 + Random(100)) / 10;
b := (1 + Random(100)) / 10;
DataR('a = ', a, xLeft, 3, 4);
DataR('b = ', b, xRight, 3, 4);
ResultR('S = ', a * b, 0, 2, 4);
ResultR('P = ', 2 * (a + b), 0, 4, 4);
SetTestCount(3);
end;
Процедура MakerDemo3 включает все основные действия, используемые при
формировании нового задания:
• инициализацию нового задания (процедура CreateTask; мы указали в этой
процедуре, что данное задание должно входить в подгруппу «Ввод и вывод
данных, оператор присваивания», то есть в ту же подгруппу, что и два пре-
дыдущих задания);
• определение его формулировки (процедуры TaskText; обратите внимание на
используемые в этих процедурах управляющие последовательности);
• определение исходных (процедуры DataR) и результирующих данных (про-
цедуры ResultR);
• указание количества успешных тестовых запусков программы учащегося,
достаточных для регистрации задания как выполненного (процедура
SetTestCount; для нашего простого задания достаточно трех проведенных
подряд успешных тестовых запусков).
Необходимо также включить вызов созданной процедуры в основную процедуру
группы MakerDemo, связав его с номером 3:
procedure InitTask(num: integer);
begin
case num of
1..2: UseTask('Begin', num);
3: MakerDemo3;
end;
end;
Наконец, следует откорректировать число заданий в вызове процедуры
CreateGroup, изменив его на 3.
Запустив проект на выполнение, мы увидим в html-описании группы MakerDemo
формулировки трех заданий, а удалив из списка параметров главного приложения

Страницы