Тема 12. Программа «Автоматизированная информационная система на желез­нодорожном вокзале».

Информационная система содержит сведения об отправлении поездов дальнего следования. Для каждого поезда указывается: номер, станция назначения, время отправления.

Программа должна обеспечивать выбор с помощью меню и выполнение одной из следующих функций:

• первоначальный ввод данных в информационную систему (с клавиатуры или из файла);

• вывод сведений по всем поездам;

• вывод сведений по поезду с запрошенным номером;

• вывод сведений по тем поездам, которые следуют до запрошенной станции назначения.

Тема 13. В течение пяти дней (рабочая неделя) рабочий изготавливает детали семи различных типов. Известно количество изготовленных им деталей за каж­дый день и стоимость изготовления одной детали каждого типа (стоимость изготовления детали не меняется).

Написать программу, которая вводит данные, выполняет расчет и выво­дит на экран:

• исходные данные в виде таблицы, где перечислены наименования де­талей, стоимость изготовления, количество деталей, изготовленных за каждый день;

• количество деталей каждого типа, изготовленных за неделю;

• заработок за каждый день;

• день с наибольшим заработком.

Тема 14 Спортивный магазин продавал в течение года 7 моделей роликовых коньков по цене, устанавливаемой в начале каждого месяца. Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран: • исходные данные в виде таблицы, где перечислены модели роликовых коньков, цены на них в каждом месяце, количество проданных роликовых коньков одной модели в течение каждого месяца; • доход от продажи каждой модели коньков за год; • доход от продажи всех моделей коньков за каждый месяц; • общий доход от продажи всех моделей коньков за год; • наименование модели коньков, принесшей наименьший доход за первые 6 месяцев.

ТЕМА 15 Обувной магазин в течение месяца (30 дней) продавал обувь 20 наименований в 3 отделах (детская обувь, женская обувь, мужская обувь). Цена не меняется. Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:

• исходные данные в виде таблицы, где перечислены все наименования обуви, цена обуви, количество проданных пар обуви за день, отдел в котором продавалась обувь данного наименования (женская обувь, детская обувь, мужская обувь); • количество пар обуви, проданных в отделе «детская обувь» за первые 10 дней; • доход за каждый день по отделу «детская обувь»; • общий доход за месяц по отделу «детская обувь»; • наименование обуви, продажа которой принесла наименьший доход во второй декаде.

ТЕМА 16 Магазин учебной литературы в течение 3 месяцев продавал учебники по английскому, немецкому и французскому языкам нескольких авторов. Всего продавалось 7 учебников каждого наименования. Цена на учебники устанавливалась в начале каждого месяца и не менялась в течение месяца. Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран: исходные данные в виде таблицы, где перечислены ФИО авторов учебников, иностранный язык, по которому написан учебник, цена учебника за месяц, количество учебников автора, проданных в каждом месяце; количество учебников немецкого языка, проданных за 3 месяца; доход за каждый месяц за все учебники; общий доход за 3 месяца за учебники немецкого языка; ФИО автора и наименование учебника, продажа которого принесла наибольший доход в первом месяце.

ТЕМА 17 Магазин «Виртуальный мир» продал за 1 месяц (3 декады)некоторое количество компьютеров различных типов (6 типов). Цены на компьютеры устанавливались в начале каждой декады. Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран: • исходные данные в виде таблицы, где перечислены типы компьютеров и цены на них, количество проданных компьютеров в течение каждой декады; • Доход от каждого компьютера за месяц; • Доход от всех компьютеров за каждую декаду; • Общий доход от продажи за месяц; • тип компьютера, принесшего наибольший доход в месяц.

ТЕМА 18 В коллективном хозяйстве имеется 8 птицеводческих бригад. Каждая бригада выращивает различное количество гусей. В каждой бригаде расходовалось некоторое количество кормов (тонн) и, соответственно, увеличивался вес гусей. Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:

исходные данные в виде таблицы, где указаны фамилия и инициалы бригадиров, количество гусей в каждой бригаде, расход комбикормов в течение каждого месяца в каждой бригаде и привес всех гусей в течение каждого месяца в каждой бригаде; (данные за 2 месяца);

средний привес одного гуся за 2 месяца в каждой бригаде на 1 кг комбикорма;

средний привес одного гуся за 1 месяц на 1 кг комбикорма по всем бригадам хозяйства;

средний привес всех гусей по всему хозяйству за 2 месяца;

фамилию и инициалы бригадира, в чьей бригаде удалось получить наименьший привес на 1 кг корма, с указанием среднего.

ТЕМА 19 В коллективном хозяйстве имеются цветочные оранжереи (розы, гвоздики, лилии - всего 6 видов цветов). Каждый год в течение 3 лет колхоз собирал букеты с каждой оранжереи и продавал их по закупочным ценам, которые были различны в разные годы.

Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:

* исходные данные в виде таблицы, где указаны наименования цветов, закупочные цены букетов каждого вида и количество букетов в каждом году;

* общее количество букетов за 3 года;

* доход по всем цветам за каждый год;

* общий доход колхоза за 3 года;

* вид цветов, принесший максимальный доход за 2 года.

ТЕМА 20 Магазин \'Шины, диски\' продал за 4 квартала различное количество автомобильных шин (10 наименований) по цене, устанавливаемой в начале каждого квартала (т.е.каждый квартал цены на автомобильные шины менялись Нужно написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран 1) исходные данные в виде таблицы, где указаны наименования шин, цена шин в каждом квартале, количество проданных шин за каждый квартал 2) доход от каждого вида шин за год 3)доход за каждый квартал по всем шинам 4) наименование шины, принесшей наибольший доход за год