Написание программы на языке Pascal для учета работы магазина DVD-дисков, в которой содержится база наименований товара, цен, производителей и количества дисков на складе. Разработка функций добавления элемента в базу, сортировка, поиск по названию.
Аннотация Данная работа была выполнена на языке Pascal. Паскаль (англ. mas[i 1].nm) and (mas[i].nm <> 0) then begin swap(mas[i].nm, mas[i 1].nm); swap(mas[i].vt, mas[i 1].vt); swap(mas[i].dvm, mas[i 1].dvm); swap(mas[i].no, mas[i 1].no); end; vyvod(mas); end; procedure add(var mas:array of spisok);//добавление элемента begin setlength(mas, length(mas) 1); write(Наименование диска: ); readln(mas[high(mas)].vt); write(Цена: ); readln(mas[high(mas)].nm); write(Производитель: ); readln(mas[high(mas)].dvm); write(Количество на складе: ); readln(mas[high(mas)].no); writeln; end; procedure delete(var mas:array of spisok);//удаление записи var n: integer; begin writeln(Введите номер записи для удаления); readln(n); if (n Размещено на uniartic.ru
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
