Программа должна иметь интерфейс на основе формы (FormsABC). Выводить содержимое очереди в ListBox. 

При реализации очереди предусмотреть возможность: 
а) добавления в конец очереди; 
б) удаление элемента из начала очереди; 
в) возможность редактирования первого и последнего элементов очереди. 

Организовать очередь дисциплин: хранить название дисциплины и количество часов (Пользователь вводит информацию). 

В файле прикреплена часть программы, желательно, использовать эти наработки. Если быть точнее, то не работает кнопка изменения первого элемента в очереди.
[code]&#65279;uses
  formsABC;
type
  stack = ^Tstack;
  Tstack = record
    next: stack;
    name: string;
    h, i: integer;
  end;
var
  head, tail, tmp, tm: stack;
  L: listbox;
  bt, bt1, bt2, bt3: button;
  f: field;
  hour: integerfield;
  s: array of string;
  a, i: integer;
procedure add(head: stack; name: string; h: integer; tail: stack);
begin
  new(tmp);
  L.Items.Add(name + ' - ' + inttostr(h));
  tmp^.name := name;
  tmp^.h := h;
  tmp^.next := nil; 
  if head <> nil then
  begin
    tail^.next := tmp;
    tail := tmp;   
  end
  else
  begin
    head := tmp;
    tail := tmp;   
  end;
end;
procedure addy;
begin
  add(head, f.text, hour.Value, tail);
end;
procedure dell(head: stack);
begin
  if head <> nil then
  begin
    tmp := head;
    head := head^.next;
    dispose(tmp);
  end;
end;
procedure delly;
begin
  dell(head);
  L.Items.RemoveAt(0);
end;
procedure add1(head: stack; name: string; h: integer; tail: stack);
begin
  new(tm);
  tm^.name := name;
  tm^.h := h;
  tm^.next := nil; 
  if head <> nil then
  begin
    tail^.next := tm;
    tail := tm;   
  end
  else
  begin
    head := tm;
    tail := tm;   
  end;
  L.Items.Add(name + ' - ' + inttostr(h));
end;
procedure add2;
begin
  add1(head, f.text, hour.Value, tail);
end;
procedure editf1;
begin
  delly;
  add2;
end;
procedure dele(var head: stack);
begin
  if head <> nil then
  begin
  tmp := head;
  head := tmp^.next;
  Dispose(tmp);
  end;
end;
procedure del;
begin
  dele(head);
  l.Items.RemoveAt(l.Items.Count - 1)
end;
procedure editl1;
begin
  del;
  addy;
end;
begin
  L := new ListBox();
  bt := new Button('Добавить');
  emptyline;
  f := new Field('Название дисциплины');
  hour := new IntegerField('Кол-во часов');
  emptyline;
  bt1 := new Button('Удалить');
  bt3 := new Button('Изменить первый элемент');
  bt2 := new Button('Изменить последний элемент');
  bt.Click += addy;
  bt1.Click += delly;
  bt2.Click += editl1;
  bt3.Click += editf1;
end.[/code]

Программа должна иметь интерфейс на основе формы (FormsABC). Выводить содержимое очереди в ListBox. 

При реализации очереди предусмотреть возможность: 
а) добавления в конец очереди; 
б) удаление элемента из начала очереди; 
в) возможность редактирования первого и последнего элементов очереди. 

Организовать очередь дисциплин: хранить название дисциплины и количество часов (Пользователь вводит информацию). 

В файле прикреплена часть программы, желательно, использовать эти наработки. Если быть точнее, то не работает кнопка изменения первого элемента в очереди.
<code>﻿uses
</code>  formsABC;
type
  stack = ^Tstack;
  Tstack = record
    next: stack;
    name: string;
    h, i: integer;
  end;
var
  head, tail, tmp, tm: stack;
  L: listbox;
  bt, bt1, bt2, bt3: button;
  f: field;
  hour: integerfield;
  s: array of string;
  a, i: integer;
procedure add(head: stack; name: string; h: integer; tail: stack);
begin
  new(tmp);
  L.Items.Add(name + ' - ' + inttostr(h));
  tmp^.name := name;
  tmp^.h := h;
  tmp^.next := nil; 
  if head   begin
    tail^.next := tmp;
    tail := tmp;   
  end
  else
  begin
    head := tmp;
    tail := tmp;   
  end;
end;
procedure addy;
begin
  add(head, f.text, hour.Value, tail);
end;
procedure dell(head: stack);
begin
  if head   begin
    tmp := head;
    head := head^.next;
    dispose(tmp);
  end;
end;
procedure delly;
begin
  dell(head);
  L.Items.RemoveAt(0);
end;
procedure add1(head: stack; name: string; h: integer; tail: stack);
begin
  new(tm);
  tm^.name := name;
  tm^.h := h;
  tm^.next := nil; 
  if head   begin
    tail^.next := tm;
    tail := tm;   
  end
  else
  begin
    head := tm;
    tail := tm;   
  end;
  L.Items.Add(name + ' - ' + inttostr(h));
end;
procedure add2;
begin
  add1(head, f.text, hour.Value, tail);
end;
procedure editf1;
begin
  delly;
  add2;
end;
procedure dele(var head: stack);
begin
  if head   begin
  tmp := head;
  head := tmp^.next;
  Dispose(tmp);
  end;
end;
procedure del;
begin
  dele(head);
  l.Items.RemoveAt(l.Items.Count - 1)
end;
procedure editl1;
begin
  del;
  addy;
end;
begin
  L := new ListBox();
  bt := new Button('Добавить');
  emptyline;
  f := new Field('Название дисциплины');
  hour := new IntegerField('Кол-во часов');
  emptyline;
  bt1 := new Button('Удалить');
  bt3 := new Button('Изменить первый элемент');
  bt2 := new Button('Изменить последний элемент');
  bt.Click += addy;
  bt1.Click += delly;
  bt2.Click += editl1;
  bt3.Click += editf1;
end.

Гость guest_15438408619079

Сделать лабораторную по программированию (PascalABC.NET).