Консультация № 154505
15.12.2008, 21:33
0.00 руб.
0 0 0
Задачка:
О каждом из n поставщиков, 3 <= n <= 20, известно: название фирмы и название поставляемого товара. Одна фирма может поставлять несколько товаров. Составить список фирм-монополистов, то есть фирм, поставляющих уникальные товары. В результирующем списке для каждой фирмы указать только уникальные товары. Список фирм упорядочить по убыванию количества поставляемых товаров. Исходные данные и полученные результаты вывести в различные окна списка. Для решения задачи составить следующие подпрограммы:
 процедуру ввода массива исходных данных;
 процедуру вывода массива в окно списка;
 метод формирования строки для вывода информации;
 процедуру формирования списка фирм-монополистов;
 процедуру сортировки списка монополистов.
Примечание. Для решения задачи использовать следующую структуру:
Private Structure Поставщик
Public НазваниеФирмы As String
Public НазваниеТовара As String
Public Function ФормированиеСтроки() As String
End Structure


Приложение:
Пожалуйста пишите в Visul Basic 2005

Обсуждение

Форма ответа