Работа №10 Работа с макросами Вариант 1

1. Создайте макрос для автоматического создания заголовка в редакторе Microsoft Word. Назначьте для вызова макроса комбинацию клавиш Ctrl-Alt-Z.

2. Создайте макрос для автоматического создания таблицы из 3 колонок и 4 строк с заполненными названиями колонок. Назначьте для вызова макроса комбинацию клавиш Ctrl-Alt-Т.

3. Создайте макрос, который автоматически будет создавать текст приглашения ваших знакомых на торжество. Назначьте для вызов макроса комбинацию клавиш Ctrl-Alt-Р.

4. В меню Сервис есть режим Установить защиту. Попробуйте разобраться в нем и установите защиту на созданные вами приглашения.

5. Удалите созданные вами макросы.

Вариант 2

1. Создайте собственную панель инструментов с именем RОМ и с кнопками: Открыть файл, Отменить предыдущую операцию, Начать запись макроса, Выполнить макрос, Остановить выполнение макроса.

2. Создайте макрос с именем R1, который создает таблицу размером 3½6 и закрашивает любые две ячейки таблицы.

3. Создайте макрос с именем R2, который печатает на экране текст MY NAME IS шрифтом красного цвета размером 18 пунктов.

4. Создайте макрос с именем R3, который выводит на экране ваше имя буквами синего цвета размером 20 пунктов с интервалом между буквами в 2 пт.

5. Для запуска макроса R1 создайте на панели RОМ кнопку (пиктограмму).

6. Для запуска макроса R2 назначьте сочетание «горячих клавиш».

7. Для запуска макроса R3 поместите в меню Сервис команду с именем RR3.

8. Просмотрите текст макроса R3 в VBA и по аналогии создайте текст своего собственного макроса R4 и кнопку для него на панели ROM.

9. Покажите преподавателю работу всех макросов.

10. Удалите панель инструментов RОМ и все созданные макросы.

11. Удалите команду RR3 из меню Сервис.

Работа №11 Составление штатного расписания хозрасчетной больницы

Постановка задачи: заведующий хозрасчетной больницей должен составить штатное расписание, т. е. определить, сколько сотрудников, на каких должностях и с каким окладом он должен принять на работу. Общий месячный фонд зарплаты составляет $10000.

Построим модель решения этой задачи.

Для нормальной работы больницы нужно 5-7 санитарок, 8-10 медсестер, 10-12 врачей, 1 заведующий аптекой, 3 заведующих отделениями, 1 главный врач, 1 заведующий хозяйством, 1 заведующий больницей. На некоторых должностях число людей может меняться. Например, зная, что найти санитарок трудно, руководитель может принять решение о сокращении числа санитарок, чтобы увеличить оклад каждой из них.

За основу берется оклад санитарки, а все остальные вычисляются исходя из него: во столько-то раз или на столько-то больше. Таким образом, каждый оклад является линейной функцией от оклада санитарки: ax+b, где x – оклад санитарки; a и b – коэффициенты, которые для каждой должности определяются решением совета трудового коллектива.

Совет решил, что:

• медсестра должна получать в 1,5 раза больше санитарки (a=1,5, b=0);

• врач – в 3 раза больше санитарки (a=3, b=0);

• заведующий отделением – на $30 больше, чем врач (a=3, b=30);

• заведующий аптекой – в 2 раза больше санитарки (a=2, b=0);

• заведующий хозяйством – на $40 больше медсестры (a=1,5, b=40);

• главный врач – в 4 раза больше санитарки (a=4, b=0);

• заведующий больницей – на $20 больше главного врача (a=4, b=20).

Задав количество человек на каждой должности, можно составить уравнение:

n₁∙(a₁∙x+b₁)+n₂∙(a₂∙x+b₂)+...+n₈∙(a₈∙x+b₈)=10000,

где n₁ – количество санитарок; n₂ – количество медсестер и т. д.

В этом уравнении нам известны a₁,...,a₈ и b₁,...,b₈, а неизвестны x и n₁,...,n₈.

Приведенное уравнение имеет множество решений. Решение ищется путем подбора.