Кнопки НАЗАД/ВПЕРЕД. Очередь и дек (DEQ). Основные действия, циклический сдвиг элементов (циклическая прокрутка)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ComCtrls;
 
type
  TForm1 = class(TForm)
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    btn1: TButton;
    btn6: TButton;
    btn7: TButton;
    lbl5: TLabel;
    StringGrid1: TStringGrid;
    lbl6: TLabel;
    lbl7: TLabel;
    btn5: TButton;
    btn8: TButton;
    btn9: TButton;
    procedure FormCreate(Sender:TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender:TObject);
    procedure btn3Click(Sender:TObject);
    procedure btn4Click(Sender:TObject);
 
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1:TForm1;
  d:integer;
 
implementation
 
{$R *.dfm}
 
type
  TData=Integer;
  TQueue=record
   a:array of TData;
   value:Integer; 
  end;
var
  gQueue:TQueue;
 
procedure Init(var aQueue:TQueue);
begin
  aQueue.a:=nil;
  aQueue.value:=0; 
end;
 
 
 
function Push(var aQueue:TQueue; const aData:TData):Boolean;
begin
  Push:=False;
  with aQueue do
    if (value < Length(a)) then begin
      Inc(value);
      a[value-1]:=aData;
      Push:=True;
    end;
end;
 
 
function Del(var aQueue:TQueue; var aData:TData):Boolean;
var
  i : Integer;
begin
  Del:=False;
  with aQueue do
    if (value > 0) then begin
      aData:=a[0];
      Dec(value);
      for i:=1 to value do a[i-1]:=a[i];
      Del:=True;
    end;
end;
 
 
procedure QueueToSg(const aQueue:TQueue; aSg:TStringGrid);
var
  i:integer;
begin
  aSg.Rows[0].Clear;
  if (aQueue.value = 0) then begin
    aSg.ColCount:=1;
    aSg.Cells[0,0]:='';
  end else begin
    aSg.ColCount:=aQueue.value;
    for i:=0 to aQueue.value-1 do
      aSg.Cells[i,0]:=IntToStr(aQueue.a[i]);
  end;
end;
 
 
 
procedure Delay(Value: Cardinal);
var
  F, N: Cardinal;
begin
  N := 0;
  while N <= (Value div 10) do
  begin
    SleepEx(1, True);
    Application.ProcessMessages;
    Inc(N);
  end;
  F := GetTickCount;
  repeat
    Application.ProcessMessages;
    N := GetTickCount;
  until (N - F >= (Value mod 10)) or (N < F);
end;
 
 
//TForm1
procedure TForm1.FormCreate(Sender:TObject);
begin
  Init(gQueue);
  d:=0;
end;
 
 
 
 
procedure TForm1.btn2Click(Sender:TObject);
var
  Len,Num:Integer;
begin
  if (not TryStrToInt(edt2.Text, Num)) then begin
   lbl7.Caption:='Çíà÷åíèå ýëåìåíòà çàäàíî íåâåðíî. Ñëåäóåò ââåñòè öåëîå ÷èñëî.';
   Exit;
  end;
  Len:=Abs(StrToInt(edt1.text));
  SetLength(gQueue.a,Len);
  if Push(gQueue, Num) then begin
    lbl7.Caption:=' î÷åðåäü äîáàâëåí ýëåìåíò : '+IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
  end else
    lbl7.Caption:='Ïåðåïîëíåíèå. Íå óäàëîñü äîáàâèòü ýëåìåíò â î÷åðåäü. Çàäàéòå ìàêñ. äëèíó î÷åðåäè...';
end;
 
 
//Èçâëå÷ ýëåìåíò èç î÷åðåäè
procedure TForm1.btn3Click(Sender:TObject);
var
  Num:Integer;
begin
  if Del(gQueue, Num) then begin
    lbl7.Caption:='Ýëåìåíò '+IntToStr(Num)+' èçâëå÷åí èç î÷åðåäè';
    edt3.Text:=IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
  end else
    lbl7.Caption:='Î÷åðåäü ïóñòà. Íå óäàëîñü âçÿòü ýëåìåíò èç î÷åðåäè.';
end;
 
//Î÷èñòèòü î÷åðåäü
procedure TForm1.btn4Click(Sender:TObject);
begin
  gQueue.value:=0;
  edt4.Text:=IntToStr(gQueue.value);
  QueueToSg(gQueue, StringGrid1);
  lbl7.Caption:='Î÷åðåäü ïóñòà.  Äîáàâüòå ýëåìåíòû î÷åðåäè âðó÷íóþ èëè àâòîìàòè÷åñêè...';
end;
 
procedure TForm1.btn6Click(Sender: TObject);
begin
  d:=d-100;
  if d<=0 then d:=0;
  lbl5.Caption:=IntToStr(d);
end;
 
procedure TForm1.btn7Click(Sender: TObject);
 
begin
  d:=d+100;
  lbl5.Caption:=IntToStr(d);
end;
 
 
procedure TForm1.btn1Click(Sender: TObject);
var
   Len,Num,i,j,k,d:Integer;
begin
  d:=StrToInt(lbl5.Caption);
  Randomize;
  gQueue.value:=0;
  edt4.Text:=IntToStr(gQueue.value);
  QueueToSg(gQueue, StringGrid1);
  Len:=Abs(StrToInt(edt1.text));
  SetLength(gQueue.a,Len);
  for j:=1 to Len do begin
  for i:=1 to Len do begin
    Num:=random(10);
  if Push(gQueue, Num) then begin
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
    lbl7.Caption:=' î÷åðåäü äîáàâëåí ýëåìåíò : '+IntToStr(Num);
    Delay(d);
  end;
  end;
  Del(gQueue, Num);
    lbl7.Caption:='Ýëåìåíò '+IntToStr(Num)+' èçâëå÷åí èç î÷åðåäè';
    edt3.Text:=IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
    Delay(d);
  end;
  for k:=1 to Len do begin
  Del(gQueue, Num);
    edt3.Text:=IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
    lbl7.Caption:='Ýëåìåíò '+IntToStr(Num)+' èçâëå÷åí èç î÷åðåäè';
    Delay(d);
end;
  lbl7.Caption:='Äîáàâüòå ýëåìåíòû î÷åðåäè âðó÷íóþ èëè àâòîìàòè÷åñêè...';
end;
 
 
procedure TForm1.btn9Click(Sender: TObject);
begin
  lbl7.Caption:='Âûõîä èç ïðîãðàììû...';
  Delay(1000);
  close;
end;
 
procedure TForm1.btn5Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.btn8Click(Sender: TObject);
begin
 
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ComCtrls;
 
type
  TForm1 = class(TForm)
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    btn1: TButton;
    btn6: TButton;
    btn7: TButton;
    lbl5: TLabel;
    StringGrid1: TStringGrid;
    lbl6: TLabel;
    lbl7: TLabel;
    btn5: TButton;
    btn8: TButton;
    btn9: TButton;
    procedure FormCreate(Sender:TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender:TObject);
    procedure btn3Click(Sender:TObject);
    procedure btn4Click(Sender:TObject);
 
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1:TForm1;
  d:integer;
  mas:array[1..100, 0..1] of integer;
  cur, ab, b:integer;
 
implementation
 
{$R *.dfm}
 
type
  TData=Integer;
  //Очередь
  TQueue=record
   a:array of TData;
   value:Integer; //Количество элементов в очереди
  end;
var
  gQueue:TQueue;
 
//Инициализация очереди
procedure Init(var aQueue:TQueue);
begin
  aQueue.a:=nil;
  aQueue.value:=0; //Первоначялно пустая
end;
 
 
//Добавление элемента в конец очереди
function Push(var aQueue:TQueue; const aData:TData):Boolean;
begin
  Push:=False;
  with aQueue do
    if (value < Length(a)) then begin
      inc(ab);
      cur:=ab;
      mas[ab, 0]:= aData;
      mas[ab, 1]:= 1;      //был 1!
      Inc(value);
      a[value-1]:=aData;
      Push:=True;
    end;
end;
 
 
 
 
//Удаление элемента из начала очереди
function Del(var aQueue:TQueue; var aData:TData):Boolean;
var
  i : Integer;
begin
  Del:=False;
  with aQueue do
    if (value > 0) then begin
      inc(cur);
      ab:=cur;
      mas[ab, 0]:= a[0];                    
      mas[ab, 1]:= 1;    //был 0!!
      aData:=a[0];
      Dec(value);
      for i:=1 to value do a[i-1]:=a[i];
      Del:=True;
    end;
end;
 
//Запись очереди в таблицу
procedure QueueToSg(const aQueue:TQueue; aSg:TStringGrid);
var
  i:integer;
begin
  aSg.Rows[0].Clear;
  if (aQueue.value = 0) then begin
    aSg.ColCount:=1;
    aSg.Cells[0,0]:='';
  end else begin
    aSg.ColCount:=aQueue.value;
    for i:=0 to aQueue.value-1 do
      aSg.Cells[i,0]:=IntToStr(aQueue.a[i]);
  end;
end;
 
 
//Delay, не загружающий процессор
procedure Delay(Value: Cardinal);
var
  F, N: Cardinal;
begin
  N := 0;
  while N <= (Value div 10) do
  begin
    SleepEx(1, True);
    Application.ProcessMessages;
    Inc(N);
  end;
  F := GetTickCount;
  repeat
    Application.ProcessMessages;
    N := GetTickCount;
  until (N - F >= (Value mod 10)) or (N < F);
end;
 
//TForm1
//Инициализация очереди, выполняется при создании формы
procedure TForm1.FormCreate(Sender:TObject);
begin
  Init(gQueue);
  d:=0;    cur:=0; ab:=0; b:= 0;
end;
 
 
 
//Добавить элемент в очередь
{procedure TForm1.btn2Click(Sender:TObject);
var
  Len,Num:Integer;
begin
  if (not TryStrToInt(edt2.Text, Num)) then begin
   lbl7.Caption:='Значение элемента задано неверно. Следует ввести целое число.';
   Exit;
  end;
  Len:=Abs(StrToInt(edt1.text));
  SetLength(gQueue.a,Len);
  if Push(gQueue, Num) then begin
    lbl7.Caption:='В очередь добавлен элемент : '+IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
  end else
    lbl7.Caption:='Переполнение. Не удалось добавить элемент в очередь. Задайте макс. длину очереди...';
end;}
 
 //Добавить элемент в очередь
procedure TForm1.btn2Click(Sender:TObject);
var
  Len,Num,Num2:Integer;
begin
  if (not TryStrToInt(edt2.Text, Num)) then begin
   lbl7.Caption:='Значение элемента задано неверно. Следует ввести целое число.';
   Exit;
  end;
  Len:=Abs(StrToInt(edt1.text));
  SetLength(gQueue.a,Len);
  if Push(gQueue, Num) then begin
    lbl7.Caption:='В очередь добавлен элемент : '+IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
  end else  begin
   if (not TryStrToInt(edt2.Text, Num)) then begin
   lbl7.Caption:='Значение элемента задано неверно. Следует ввести целое число.';
   Exit;
  end;
 
  if Del(gQueue, Num2) then begin
    lbl7.Caption:='Элемент '+IntToStr(Num2)+' извлечен из очереди';
    edt3.Text:=IntToStr(Num2);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
  end;
  Delay(700);
  if Push(gQueue, Num) then begin
    lbl7.Caption:='В очередь добавлен элемент : '+IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
  end
end;
end;
 
 
 
//Извлеч элемент из очереди
procedure TForm1.btn3Click(Sender:TObject);
var
  Num:Integer;
begin
  if Del(gQueue, Num) then begin
    lbl7.Caption:='Элемент '+IntToStr(Num)+' извлечен из очереди';
    edt3.Text:=IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
  end else
    lbl7.Caption:='Очередь пуста. Не удалось взять элемент из очереди.';
end;
 
//Очистить очередь
procedure TForm1.btn4Click(Sender:TObject);
begin
  gQueue.value:=0;
  edt4.Text:=IntToStr(gQueue.value);
  QueueToSg(gQueue, StringGrid1);
  lbl7.Caption:='Очередь пуста.  Добавьте элементы очереди вручную или автоматически...';
end;
 
 
//Задержка -100 или 0...
procedure TForm1.btn6Click(Sender: TObject);
begin
  d:=d-100;
  if d<=0 then d:=0;
  lbl5.Caption:=IntToStr(d);
end;
 
//Задержка +100
procedure TForm1.btn7Click(Sender: TObject);
 
begin
  d:=d+100;
  lbl5.Caption:=IntToStr(d);
end;
 
//Авторабота...
procedure TForm1.btn1Click(Sender: TObject);
var
   Len,Num,i,j,k,d:Integer;
begin
  d:=StrToInt(lbl5.Caption);
  Randomize;
  gQueue.value:=0;
  edt4.Text:=IntToStr(gQueue.value);
  QueueToSg(gQueue, StringGrid1);
  Len:=Abs(StrToInt(edt1.text));
  SetLength(gQueue.a,Len);
  for j:=1 to Len do begin
  for i:=1 to Len do begin
    Num:=random(10);
  if Push(gQueue, Num) then begin
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
    lbl7.Caption:='В очередь добавлен элемент : '+IntToStr(Num);
    Delay(d);
  end;
  end;
  Del(gQueue, Num);
    lbl7.Caption:='Элемент '+IntToStr(Num)+' извлечен из очереди';
    edt3.Text:=IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
    Delay(d);
  end;
  for k:=1 to Len do begin
  Del(gQueue, Num);
    edt3.Text:=IntToStr(Num);
    edt4.Text:=IntToStr(gQueue.value);
    QueueToSg(gQueue, StringGrid1);
    lbl7.Caption:='Элемент '+IntToStr(Num)+' извлечен из очереди';
    Delay(d);
end;
  lbl7.Caption:='Добавьте элементы очереди вручную или автоматически...';
end;
 
 
//Выход
procedure TForm1.btn9Click(Sender: TObject);
begin
  lbl7.Caption:='Выход из программы...';
  Delay(1000);
  close;
end;
 
 
//Кнопка назад
procedure TForm1.btn5Click(Sender: TObject);
var Num:integer;
begin
  if cur > 0 then begin
    if mas[cur, 1] = 0 then push(gQueue, mas[cur, 0])
    else del(gQueue, Num);
    dec(cur);
  end;
  QueueToSg(gQueue, StringGrid1);
end;
 
 
//Кнопка вперед
procedure TForm1.btn8Click(Sender: TObject);
var Num:integer;
begin
  if cur < ab then begin
    inc(cur);
    if mas[cur, 1] = 1 then push(gQueue, mas[cur, 0])
    else del(gQueue, Num);
  end;
  QueueToSg(gQueue, StringGrid1);
end;
 
end.

//Кнопка назад
procedure TForm1.btn5Click(Sender: TObject);
begin
  if gQueue.Value = 0 then begin
    ShowMessage('Очередь пуста. Действие отменено.');
    Exit;
  end;
  
  Cur := (gQueue.Value + Pred(Cur)) mod gQueue.Value;
  Edit5.Text := IntToiStr( gQueue.A[Cur] );
end;
 
//Кнопка вперёд
procedure TForm1.btn8Click(Sender: TObject);
begin
  if gQueue.Value = 0 then begin
    ShowMessage('Очередь пуста. Действие отменено.');
    Exit;
  end;
  
  Cur := (gQueue.Value + Succ(Cur)) mod gQueue.Value;
  Edit5.Text := IntToiStr( gQueue.A[Cur] );
end;

//Кнопка назад
procedure TForm1.btn5Click(Sender: TObject);
begin
  if gQueue.Value = 0 then begin
    ShowMessage('Очередь пуста. Действие отменено.');
    Exit;
  end;
  
  Cur := (gQueue.Value + Pred(Cur)) mod gQueue.Value;
  Edit5.Text := IntToiStr( gQueue.A[Cur] );
  Edit6.Text := IntToiStr( Cur ); //Индекс.
end;
 
//Кнопка вперёд
procedure TForm1.btn8Click(Sender: TObject);
begin
  if gQueue.Value = 0 then begin
    ShowMessage('Очередь пуста. Действие отменено.');
    Exit;
  end;
  
  Cur := (gQueue.Value + Succ(Cur)) mod gQueue.Value;
  Edit5.Text := IntToiStr( gQueue.A[Cur] );
  Edit6.Text := IntToiStr( Cur ); //Индекс.
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  
implementation
 
{$R *.dfm}
 
const
  //Величина приращения/уменьшения длины динамического массива.
  Capacity1 = 5;
  {Разность между длиной массива и количеством элементов, при которой
  принимается решение об уменьшении длины массива.}
  Capacity2 = Capacity1 * 2;
 
type
  //Основные данные элементов дека.
  TData = Integer;
  //Тип, описывающий очередь/дек.
  TDeq = record
    //Индекс конца дека. - Индекс последнего элемента в деке.
    IEnd : Integer;
    //Массив данных дека.
    Arr : array of TData;
  end;
 
var
  gDeq : TDeq;
 
//Очистка дека.
procedure Init(var aDeq : TDeq);
begin
  aDeq.IEnd := -1;
  SetLength(aDeq.Arr, 0);
end;
 
//Добавление элемента в начало дека.
procedure PushB(var aDeq : TDeq; const aData : TData);
var
  i : Integer;
begin
  {Если массив уже полностью заполнен, то для того, чтобы продолжить
  добавлять в него элементы мы должны увеличить размер массива.}
  if aDeq.IEnd = High(aDeq.Arr) then
    SetLength(aDeq.Arr, Length(aDeq.Arr) + Capacity1); //Или так: SetLength(aDeq.Arr, aDeq.IEnd + 1 + Capacity1);
  //Сдвигаем элементы с индексами 0..IEnd на позиции: 1..(IEnd+1).
  for i := aDeq.IEnd downto 0 do aDeq.Arr[i + 1] := aDeq.Arr[i];
  //Индекс последнего элемента становится на 1 больше.
  Inc(aDeq.IEnd);
  //Добавляем новый элемент в начало массива.
  aDeq.Arr[0] := aData;
end;
 
{Изъятие элемента из начала дека.
Если дек непустой, то из начала дека изымается элемент и фукнция
возвращает значение True. Иначе, если дек пуст, то операция отменяется
и функция возвращает значение False.}
function PopB(var aDeq : TDeq; var aData : TData) : Boolean;
var
  i : Integer;
begin
  Result := False;
  if aDeq.IEnd = -1 then Exit;
 
  //Берём первый элемент дека.
  aData := aDeq.Arr[0];
  //Сдвигаем элементы с индексами 1..IEnd на позиции: 0..(IEnd-1).
  for i := 0 to aDeq.IEnd - 1 do aDeq.Arr[i] := aDeq.Arr[i + 1];
  //Количество элементов теперь стало на 1 меньше.
  Dec(aDeq.IEnd);
  {Если количество элементов в массиве уменьшилось на столько, что разность
  между количеством элементов и длиной массива достигла велечины Capacity2,
  то уменьшаем размер динамического массива на величину Capacity1.}
  if High(aDeq.Arr) - aDeq.IEnd = Capacity2 then
    SetLength(aDeq.Arr, Length(aDeq.Arr) - Capacity1);
  Result := True;
end;
 
//Добавление элемента в конец дека.
procedure PushE(var aDeq : TDeq; const aData : TData);
begin
  {Если массив уже полностью заполнен, то для того, чтобы продолжить
  добавлять в него элементы мы должны увеличить размер массива.}
  if aDeq.IEnd = High(aDeq.Arr) then
    SetLength(aDeq.Arr, Length(aDeq.Arr) + Capacity1); //Или так: SetLength(aDeq.Arr, aDeq.IEnd + 1 + Capacity1);
  //Индекс последнего элемента становится на 1 больше.
  Inc(aDeq.IEnd);
  //Добавляем новый элемент в конец массива.
  aDeq.Arr[aDeq.IEnd] := aData;
end;
 
{Изъятие элемента из конца дека.
Если дек непустой, то из конца дека изымается элемент и фукнция
возвращает значение True. Иначе, если дек пуст, то операция отменяется
и функция возвращает значение False.}
function PopE(var aDeq : TDeq; var aData : TData) : Boolean;
begin
  Result := False;
  if aDeq.IEnd = -1 then Exit;
 
  //Берём последний элемент дека.
  aData := aDeq.Arr[aDeq.IEnd];
  //Количество элементов теперь стало на 1 меньше.
  Dec(aDeq.IEnd);
  {Если количество элементов в массиве уменьшилось на столько, что разность
  между количеством элементов и длиной массива достигла велечины Capacity2,
  то уменьшаем размер динамического массива на величину Capacity1.}
  if High(aDeq.Arr) - aDeq.IEnd = Capacity2 then
    SetLength(aDeq.Arr, Length(aDeq.Arr) - Capacity1);
  Result := True;
end;
 
//Запиь элементов дека в экземпляр типа TStringGrid.
procedure DeqToSg(const aDeq : TDeq; aSg : TStringGrid);
var
  i : Integer;
begin
  {Очистка таблицы и установка её размеров в соотвествии с количеством
  элементов в деке.}
  aSg.Rows[0].Clear;
  aSg.ColCount := aDeq.IEnd + 1;
  //Запись элементов дека в таблицу.
  for i := 0 to aDeq.IEnd do
    aSg.Cells[i, 0] := IntToStr(aDeq.Arr[i]);
end;
 
//Добавление элемента в начало дека.
procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
  Data : TData;
begin
  S := Edit1.Text;
  if not TryStrToInt(S, Data) then begin
    MessageBox(Handle, 'Элемент не задан или задан неверно. Действие отменено.'
      ,'Отмена!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  PushB(gDeq, Data);
  DeqToSg(gDeq, StringGrid1);
end;
 
//Добавление элемента в конец дека.
procedure TForm1.Button2Click(Sender: TObject);
var
  S : String;
  Data : TData;
begin
  S := Edit1.Text;
  if not TryStrToInt(S, Data) then begin
    MessageBox(Handle, 'Элемент не задан или задан неверно. Действие отменено.'
      ,'Отмена!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  PushE(gDeq, Data);
  DeqToSg(gDeq, StringGrid1);
end;
 
//Взять элемент из начала дека.
procedure TForm1.Button3Click(Sender: TObject);
var
  Data : TData;
begin
  if PopB(gDeq, Data) then begin
    Edit2.Text := IntToStr(Data);
    DeqToSg(gDeq, StringGrid1);
  end else begin
    Edit2.Text := '';
    MessageBox(Handle, 'Дек пуст!'
      ,'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
  end;
end;
 
//Взять элемент из конца дека.
procedure TForm1.Button4Click(Sender: TObject);
var
  Data : TData;
begin
  if PopE(gDeq, Data) then begin
    Edit2.Text := IntToStr(Data);
    DeqToSg(gDeq, StringGrid1);
  end else begin
    Edit2.Text := '';
    MessageBox(Handle, 'Дек пуст!'
      ,'Внимание!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
  end;
end;
 
//Прокрутить вперёд.
procedure TForm1.Button5Click(Sender: TObject);
var
  S : String;
  Data : TData;
  Scr, Cnt, i : Integer;
begin
  S := Edit3.Text;
  if not TryStrToInt(S, Scr) then begin
    MessageBox(Handle, 'Значение не задано или задано неверно. Действие отменено.'
      ,'Отмена!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Количество элементов в деке.
  Cnt := gDeq.IEnd + 1;
  //Определяем количество позиций прокрутки с учётом цикличности по Cnt.
  if Cnt <> 0 then
    Scr := Scr mod Cnt
  else
    Scr := 0;
  if Scr >= 0 then begin
    for i := 1 to Abs(Scr) do
      if PopB(gDeq, Data) then PushE(gDeq, Data);
  end else
    for i := 1 to Abs(Scr) do
      if PopE(gDeq, Data) then PushB(gDeq, Data);
  DeqToSg(gDeq, StringGrid1);
end;
 
//Прокрутить назад.
procedure TForm1.Button6Click(Sender: TObject);
var
  S : String;
  Data : TData;
  Scr, Cnt, i : Integer;
begin
  S := Edit3.Text;
  if not TryStrToInt(S, Scr) then begin
    MessageBox(Handle, 'Значение не задано или задано неверно. Действие отменено.'
      ,'Отмена!', MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Количество элементов в деке.
  Cnt := gDeq.IEnd + 1;
  //Определяем количество позиций прокрутки с учётом цикличности по Cnt.
  if Cnt <> 0 then
    Scr := Scr mod Cnt
  else
    Scr := 0;
  if Scr >= 0 then begin
    for i := 1 to Abs(Scr) do
      if PopE(gDeq, Data) then PushB(gDeq, Data);
  end else
    for i := 1 to Abs(Scr) do
      if PopB(gDeq, Data) then PushE(gDeq, Data);
  DeqToSg(gDeq, StringGrid1);
end;
 
initialization
  //Начальная инициализация дека.
  Init(gDeq);
 
end.