W Cat - Описание языка PascalABC.NET

fori := 1 to3 do

begin

read(f[i], a);

write(f[4], a);

end;

fori := 1 to4 do

Close(f[i]);

end.

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

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

usesPT4;

var

i, a: integer;

s: string;

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

begin

Task('File48');

fori := 1 to4 do

begin

read(s);

Assign(f[i], s);

ifi < 4 thenReset(f[i])

elseRewrite(f[i]);

end;

while notEof(f[1]) do

fori := 1 to3 do

begin

read(f[i], a);

write(f[4], a);

end;

fori := 1 to4 do

Close(f[i]);

end.

От предыдущего варианта данное решение отличается добавлением заголовка цикла while notEof(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, имеет следующий вид:

usesPT4;

begin

Task('Dynamic2');

end.

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

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

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

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

P 1

75 - 65 - 22 - 26 - 10 nil

Этот текст означает, что структура состоит из 5 элементов, причем ее первый элемент имеет поле Data, равное 75, и связан с помощью своего поля Next со вторым элементом, поле Data которого равно 65, и так далее до последнего, пятого элемента, поле Data которого равно 10, а поле Next равно nil, что является признаком завершения структуры. Таким образом, текст, описывающий данную динамическую структуру, является максимально упрощенным вариантом следующей схемы:

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

Как получить доступ к этой существующей динамической структуре? Здесь также уместна аналогия с файлами. Для доступа к внешнему файлу необходимо знать его имя , и в любом задании на обработку файлов имена исходных файлов входят в набор исходных данных. Для доступа к данным, размещенным в динамической памяти, необходимо знать их адрес , и поэтому в любом задании на обработку динамических структур в набор исходных данных входят указатели , содержащие адреса этих структур.

Из текста, описывающего динамическую структуру, видно, что на ее первый элемент указывает указатель с именем P 1, который также содержится в наборе исходных данных. Описание этого указателя имеет вид

P 1= ptr

Здесь текст P 1= является комментарием и выделяется, как обычный комментарий, светло-серым цветом, а текст ptr означает, что этот элемент исходных данных является указателем , который надо ввести в программу с помощью процедуры ввода read.