function Check(a:deq):boolean;
begin
if a.data=nil then result:=True//если массив пуст, то true
else result:=false;//иначе false
end;
B) Создание дека из одного элемента (нулевого)
procedure CreateDeq(var a:deq);
begin
setlength(a.data,11);
a.data[0]:=nul;//выделение памяти с запасом, нулевой эл-т
a.begl:=0;a.endl:=0;; //инедксы начала и конца устанавливаем на ноль
end;
C) Добавление элемента в дек
procedure Add(var a:deq; r:tstruct); //добавление в начало
begin
if check(a) then //если дек пустой, то создаем и записываем
begin createDeq(a); a.data[a.begl]:=r; end// в первый эл-т данные
else //если не пустой, то
begin //если в конце есть запас памяти, то добавляем в конец
if a.endl+1 < length(a.data) then begin inc(a.endl);a.data[a.endl]:=r;end
else
begin//если нет запаса в конце
if a.endl+1=length(a.data) then begin
inc(a.endl);setlength(a.data,a.endl+1); //то выделяем новую память
a.data[a.endl]:=r;//и вводим данные в конечный элемент
end;
end;
end;
end;
D) Обработка (получение) первого элемента с его удалением
function Get(var a:deq):tstruct; //обработка первого эл-та с удалением
var r:tstruct; i: byte; //буфер
begin
if check(a) then result:=nul//если дек пуст - возвращаем нулевой элемент
else //иначе
if a.begl=a.endl then //если начало и конец совпадают
begin r:=a.data[a.begl];//считываем данные
setlength(a.data,0); result:=r;end//обнуляем массив и выводим данные
else //если не совпадают
begin r:=a.data[a.begl];//считываем данные
for i:=a.begl+1 to a.endl do //сдвигаем элементы в начало
a.data[i-1]:=a.data[i]; dec(a.endl); //уменьшаем индекс конечного
setlength(a.data,a.endl+1); //выделяем на один элемент меньше памяти
result:=r; end;//выводим данные
end;
E) Смена направления
procedure ChangeDir(var a:deq);
var i:byte; buf:tstruct;//вспомогательный индекс, буффер данных
begin
for i:=0 to (a.endl-a.begl)div 2 do//от первого элемента до середины
begin
buf:=a.data[a.begl+i];//заносим в буфер данные первого
a.data[a.begl+i]:=a.data[a.endl-i];//вводим в первый данные последнего
a.data[a.endl-i]:=buf;//вводим в последний данные первого и т.д.
end;
end;
F) Вывод в лог файл
procedure addlog(s:string; a:deq);
var i:byte; F:textFile;//вспомогательный индекс, файловая переменая
begin
assignfile (f, 'log.txt'); //подключаем лог файл
try if fileexists('log.txt') then //если лог файл существует - дописать
append(f) else Rewrite(F); //иначе создать
try
try
WriteLn(F,DateTimeToStr(Now) + ': ');//дата, время
writeln (f,s);//заголовок лог файла
if check(a) then writeln (f,'Дек пуст.')//если пуст, то выводим соотв.
else begin//если нет
i:=a.begl;//вспомогательный индекс на начало
while i<=a.endl do //пока дек не закончился
begin
with a.data[i]do//выводим данные
begin
writeln(f, 'Наименование заказа: ', Title);
writeln(f, 'Часы поступления: ', Hours);
writeln(f, 'Минуты поступления: ', Minutes);
writeln(f, 'Секунды поступления: ', Seconds);
end;
writeln(f);inc(i);//переход на новую строку и к следующему элементу
end;
end;
except writeln ('Eror writing log file.');end;//вывод в случае ошибки записи
finally writeln(f); CloseFile (f); end;//обязательно закрыть файл
except Writeln ('Eror opening log file.');end;//вывод в случае ошибки чтения
end;
Часть 2
Условие: Создать приложение, позволяющее выбрать и выполнить следующие действия над деком. Без прямого обращения к элементам списка/массива):
- очистить дек;
- добавить элементы из текстового файла;
- добавить один элемент, на основе данных введенных в интерактивном режиме (с клавиатуры или с формы);
- обработать (удалить) N элементов дека; например:
- поменять направление (голова ßà хвост);
- фильтр: разделить дек на два: с удовлетворяющими и с не удовлетворяющими условию, указанному в ЛР 12 элементами.
Все операции выполнять с текущего конца-головы и после каждой операции выводить содержимое дека в лог-файл (тоже начиная с текущего конца-головы), при добавлении элемента предусмотреть его коррекцию в соответствии с условием из ЛР 12.
Условие поиска/корректировки из ЛР12:
Условия поиска:
Некоторое обслуживающее предприятие хранит сведения о заказах: наименование заказа и время (часы, минуты, секунды) его поступления. Вывести заказы, которые произошли с 15 ч 20 мин 35 сек до 18 ч 50 мин 10 с.
Корректировка:
Время поступления: часы 0-23, минуты и секунды 0-59.
Формат входного текстового файла