Архив: Сделать лабораторную по программированию (PascalABC.NET).
Бюджет
По договоренности
Создан: 7 лет назад
Закрыт
- Описание
- Программа должна иметь интерфейс на основе формы (FormsABC). Выводить содержимое очереди в ListBox.
При реализации очереди предусмотреть возможность:
а) добавления в конец очереди;
б) удаление элемента из начала очереди;
в) возможность редактирования первого и последнего элементов очереди.
Организовать очередь дисциплин: хранить название дисциплины и количество часов (Пользователь вводит информацию).
В файле прикреплена часть программы, желательно, использовать эти наработки. Если быть точнее, то не работает кнопка изменения первого элемента в очереди.
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.
- Категория
Похожие проекты
$143
0
2
Oпpocы (1013pyб/чaс) Заходитe на сaйт: gonsù....
11 месяцев назад
$21
0
7
Необходимо написать статью Тема: Организация производства работ при капремонте объекта жилого назначения....
1 год назад
$44
74
13
Трипланарная транспортная задача. Решение методом симплекс + Гомори. Генерация исходных данных. Вывод результатов в файл. Вывод промежуточных результатов в файл (на малых задачах для проверки правильности) Реализация - консольное приложение С++. Есть прототип в Excel поиском решения (приложен)....
1 год назад
17
0
48
0
Приглашаю на занятия belly dance в Анталье . Онлайн и оффлайн тренировки....
1 год назад
39
0
Мы ищем преподавателей английского языка для нашей онлайн школы. Если вас заинтересовала данная вакансия, отправьте своё резюме на почту: Translation-solution@hotmail....
1 год назад
56
1
Мы ищем преподавателей английского языка для нашей онлайн школы. Если вас заинтересовала данная вакансия, отправьте своё резюме на почту: Translation-solution@hotmail....
1 год назад
46
0
Мы ищем преподавателей английского языка для нашей онлайн школы. Если вас заинтересовала данная вакансия, отправьте своё резюме на почту: Translation-solution@hotmail....
1 год назад
$33
50
0
17
0
Нам не важно, есть ли у вас опыт репетиторства и преподавания языка. Наше приложение любят за юмор и особенный стиль подачи материала (сейчас это около 60 млн пользователей в AppStore и GooglePlay). Мы используем отрывки из популярных сериалов/фильмов и мемы, чтобы учить людей английскому, испанскому.......
1 год назад
47
1
Необходимо подготовить ряд документов для прохождения практики по специальности Юриспруденция, ЧелГу - лекцию на тему Процессуальное осуществление закупок, презентацию по лекции, паспорт компетенций, фонд оценочных средств, интерактивную игру. Срок - желательно неделя, оплата по договоренности, через......
1 год назад
96
3
$33
158
14
$625
140
7
В нашем проекте собраны обучающие курсы востребованых профессий, вы можете попробовать и оценить их функциональность....
1 год назад
127
2
$1000
91
0
Приглашаем активных девушек и женщин на работу в международную социальную сеть. Если Вы девушка, у Вас есть телефон, стабильный интернет и 3 свободных часа в сутки - Вы можете монетизировать это. Ваша задача - вести общение с пользователями международной социальной сети посредством вебкамеры. Условия......
1 год назад
196
7
Компания «Все Сдал» приглашает к сотрудничеству специалистов по написанию студенческих работ. Требуются специалисты по всем дисциплинам. Форма работы удаленная, график свободный, оплата сдельная. За более подробной информацией обращайтесь https://vk. com/id666729457, vsezdal@gmail....
2 года назад
104
3
Многопрофильная компания «Птолемей», занимающаяся оказанием услуг в сфере написания контрольных, курсовых, дипломных и пр. работ, приглашает к удаленному сотрудничеству, на постоянной основе авторов выше указанных работ по различным дисциплинам, резюме или ваши вопросы направляйте по электронному адресу......
2 года назад
$3
165
2
Нужно написать программу на C++ для 1 курса, с легко читаемым кодом и добавинь не много комментариев для понимания. , программу нужно выполнить в течении часа, а если можно раньше....
3 года назад
82
2
Задача Тема: «Анализ проблемы и перспектив развития малых и средних пред-приятий аграрно-промышленного комплекса». Теоретические основы развития отраслевых предприятий малой и средней мощности аграрно-технического комплекса. Понятия и роль предприятий малой и средней мощности в эконо-мике страны. Современное......
3 года назад
$5
216
5
Перетащите