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

UptoLike

ВУЗ: 

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

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

Рубрика: 

15
Примером задания, в котором необходимо использовать данную процедуру, мо-
жет служить задание Series10. В этом задании дается набор из N целых чисел и требу-
ется вывести True, если данный набор содержит положительные числа, и False в про-
тивном случае. Ясно, что если при считывании элементов набора будет обнаружено
положительное число, то можно сразу выводить значение True и завершать выполне-
ние задания. Однако если при подготовке задания не указать минимально необходи-
мое число исходных данных с помощью процедуры SetRequiredDataCount, то по
умолчанию будет считаться, что для решения необходимо прочесть все исходные
данные, и приведенный выше правильный вариант решения будет расценен как оши-
бочный (при этом будет выведено сообщение «Введены не все требуемые исходные
данные»).
Если заданное с помощью процедуры SetRequiredDataCount количество требуе-
мых исходных данных меньше их общего количества, то программа учащегося не
обязана считывать все исходные данные: достаточно прочесть только требуемые. Од-
нако если программа прочтет все данные и выведет правильный ответ, это также бу-
дет считаться верным вариантом решения.
procedure SetTestCount(N: integer);
Процедура определяет количество N успешных тестовых испытаний программы
учащегося, необходимое для того, чтобы задание было зачтено как выполненное. По
умолчанию количество тестовых испытаний полагается равным 5. Значение N должно
находиться в пределах от 2 до 9; при указании других вариантов параметра N выво-
дится сообщение об ошибке.
После каждого успешного тестового испытания в окне задачника выводится со-
общение (на зеленом фоне), в котором указывается номер испытания и общее число
тестов, необходимых для выполнения данного задания, например: «Верное решение.
Тест номер 2 (из 5)». Если при очередном тестовом испытании программы ею будет
получено ошибочное решение, то счетчик успешных тестов будет сброшен в 0, и тес-
тирование (после исправления обнаруженной ошибки) придется начинать заново.
function Center(I, N, W, B: integer): integer;
Вспомогательная функция, которая позволяет размещать по центру экранной
строки набор из N элементов данных одинаковой ширины. Эта функция возвращает
горизонтальную координату, начиная с которой следует выводить I-й элемент набора
(I меняется от 1 до N) при условии, что ширина каждого элемента равна W позициям,
а между элементами надо указывать B пробелов. Функция Center обычно использует-
ся в качестве параметра X в процедурах групп Data и Result при выводе однотипных
наборов данных (в частности, элементов массива).
В качестве примера приведем фрагмент, обеспечивающий формирование и вы-
вод в разделе исходных данных массива вещественных чисел:
n := 2 + Random(9);
DataN('N = ', n, 0, 2, 1);
for i := 1 to n do
begin
a[i] := 9.99 * Random;
DataR('', a[i], Center(i, n, 4, 2), 4, 4);
end;
Вначале (во второй строке области исходных данных) выводится размер N мас-
сива, определяемый с помощью датчика случайных чисел и принимающий значения в

Страницы