Описание языка PascalABC.NET полностью

write(f[4], a);

end;

for i := 1 to 4 do

Close(f[i]);

end.

Мы получим все еще неверное, но вполне понятное" решение: первые три элемента результирующего файла совпадают с контрольными (то есть "правильными"), а прочие элементы отсутствуют:

Приведем, наконец, верное решение задания File48:

uses PT4;

var

i, a: integer;

s: string;

f: array [1..4] of file of integer;

begin

Task('File48');

for i := 1 to 4 do

begin

read(s);

Assign(f[i], s);

if i < 4 then Reset(f[i])

else Rewrite(f[i]);

end;

whilenot Eof(f[1]) do

for i := 1 to 3 do

begin

read(f[i], a);

write(f[4], a);

end;

for i := 1 to 4 do

Close(f[i]);

end.

От предыдущего варианта данное решение отличается добавлением заголовка цикла while not Eof(f[1]) do, который обеспечивает считывание всех элементов из исходных файлов (напомним, что по условию задания все исходные файлы имеют одинаковый размер) и запись их в результирующий файл в нужном порядке. После запуска этого варианта мы получим сообщение Верное решение. Тест номер 1 (из 5)", а после пяти подобных запусков -- сообщение "Задание выполнено!":

Щелкнув мышью на метке Результаты (F2)", расположенной в правом верхнем углу окна задачника, или нажав клавишу F2, мы можем вывести на экран окно результатов, в котором будет перечислены все наши попытки решения задачи:

File48 a08/09 12:43 Ознакомительный запуск.

File48 a08/09 12:50 Введены не все требуемые исходные данные.

File48 a08/09 12:52 Результирующий файл не найден.

File48 a08/09 12:53 Error System.IO.FileNotFoundException.

File48 a08/09 12:57 Ошибочное решение.--3

File48 a08/09 13:06 Задание выполнено!

Для закрытия окна результатов достаточно нажать клавишу Esc. Окно результатов можно отобразить на экране и после закрытия окна задачника и возврата в среду PascalABC.NET. Для этого надо использовать команду меню Модули | Просмотреть результаты", кнопку или клавиатурную комбинацию Shift+Ctrl+R.

В заданиях группы Dynamic мы встречаемся с двумя новыми видами данных: это динамические структуры, реализованные в виде цепочек связанных друг с другом записей типа TNode, и указатели типа PNode на записи TNode: PNode = ^TNode. Типы TNode и PNode не являются стандартными типами языка Паскаль; они определены в задачнике Programming Taskbook следующим образом (приводятся только те поля записи TNode, которые используются при выполнении заданий группы Dynamic):

type

PNode = ^TNode;

TNode = record

Data: integer;

Next: PNode;

Prev: PNode;

. . .

end;

На примере задания Dynamic2 рассмотрим особенности, связанные с использованием этих новых типов данных.

Программа-заготовка для задания Dynamic2, созданная с помощью команды меню Модули | Создать шаблон программы", кнопки или клавиатурной комбинации Shift+Ctrl+L, имеет следующий вид:

uses PT4;

begin

Task('Dynamic2');

end.

После запуска данной программы на экране появится окно задачника:

Это окно содержит в качестве исходных и результирующих данных новые элементы: динамические структуры и указатели.

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

Рассмотрим в качестве примера динамическую структуру, указанную на рисунке:

P1

75 - 65 - 22 - 26 - 10 nil