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, который обеспечивает считывание всех элементов из исходных файлов (напомним, что по условию задания все исходные файлы имеют
Щелкнув мышью на метке Результаты (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 мы встречаемся с двумя новыми видами данных: это
type
PNode = ^TNode;
TNode = record
Data: integer;
Next: PNode;
Prev: PNode;
. . .
end;
На примере задания Dynamic2 рассмотрим особенности, связанные с использованием этих новых типов данных.
Программа-заготовка для задания Dynamic2, созданная с помощью команды меню Модули | Создать шаблон программы", кнопки или клавиатурной комбинации Shift+Ctrl+L, имеет следующий вид:
uses PT4;
begin
Task('Dynamic2');
end.
После запуска данной программы на экране появится окно задачника:
Это окно содержит в качестве исходных и результирующих данных новые элементы: динамические структуры и указатели.
Начнем с описания того, как отображается на экране
Рассмотрим в качестве примера динамическую структуру, указанную на рисунке:
P1
75 - 65 - 22 - 26 - 10 nil