Praktikum_2008

полнить Вид→Макросы→Макросы→Выбрать макрос в диалоговом окне и нажать на Изменить, попадем в редактор Visual Basic.

Сначала построим форму, выполнив следующие действия: Insert→UserForm. Щелкнув один раз внутри формы, откроем окно с компонентами для формы. Компонентой Commandbuttom1 создаем кнопку, на которой напишем «Вычислить площадь». Для этого выделим компоненту Commandbuttom1 на форме и в окне свойства (Properties) напротив Caption введем «Вычислить площадь».

151

Рис. 3.52

Компонентой TextBox (кнопка с буквами «аb») создадим поля для ввода значений основания и высоты. Компонентой Label (кнопка с буквой «A») подпишем поля (рис. 3.52).

Нажав дважды на кнопку Вычислить площадь, введем текст модуля (рис. 3.53):

Private Sub

Dim a,h,s,c As single a=TextBox1 h=TextBox2 s=(a*h)/2

c=Str(S) MsgBox c

End Sub

Рис. 3.53

Запустим макрос на выполнение командами Run→Run Sub/UserForm и получим результат (рис. 3.54).

152

Рис. 3.54

Задание

Подготовьте макрос для решения по формулам Крамера системы линейных уравнений с матрицей коэффициентов размерностью n*n, где n – номер по журналу+2 (см. §8).

§16. Одновременное использование Excel и Word

Самое простое средство взаимосвязи между программами из пакета Мicrosoft Оffice - это буфер обмена. Буфер обмена — часть памяти, используемая для временного хранения информации. Скопировать информацию в буфер и вставить её в документ можно с использованием соответствующей кнопки на стандартной панели инструментов. Недостатком такого способа связи является его статический характер, т.е. изменения, например, в электронной таблице не сопровождаются автоматически соответствующими изменениями в текстовом документе.

Для создания динамической связи между двумя документами необходимо выполнить следующие действия Главная—

›Вставить—›Специальная вставка либо в Excel, либо в Word.

153

Обычно итоговый документ создают в Word, вставляя в него промежуточные результаты, полученные с использованием электронных таблиц. Поэтому ниже будут рассматриваться примеры, связанные с переносом информации из Excel в Word.

Существуют два типа динамической связи между документа-

ми: внедрение и динамический обмен данными. В обоих случаях необходимо запустить приложения, в которых были созданы связанные документы, открыть оба документа, выделить требуемую часть электронной таблицы и скопировать её в буфер обмена. Затем следует перейти в Word и дать команду Главная—

›Вставить—›Специальная вставка. На экране появится диало-

говое меню, где слева будут значки Вставить, Связать, в центре - окно с вопросом о типе вставляемого объекта (текст, лист таблицы, рисунок и т.д.), а справа — кнопки «ОК» и «Отмена». Если выбрать режим вставки, а потом нажать «ОК», то в текстовом документе в точке, соответствующей положению курсора, появится выделенный фрагмент электронной таблицы. Внешний вид этой таблицы не отличается от вида обычной таблицы в Word, но если по внедренной таблице дважды щелкнуть мышкой, то она превратится в таблицу Excel и появится возможность обрабатывать содержащуюся в ней информацию при помощи Excel. Таким образом, одновременно используются возможности Word

и Excel.

Однако, если имеется отчёт большого размера и в его текст требуется оперативно вносить обновленные результаты, появляющиеся в процессе расчётов с использованием электронных таблиц, целесообразно применять не внедрение таблиц, а устанавливать связи между документами. В этом случае каждый раз при открывании текстового документа происходит обновление связей, т.е. вносятся изменения, соответствующие изменениям, внесённым к этому моменту в электронную таблицу. Связанную информацию можно редактировать только в исходном приложении. Для того чтобы открыть это приложение, необходимо дважды щёлкнуть мышью по связанной информации в документе

Word.

Использование обоих методов динамического обмена данными открывает перед пользователем широкие возможности. Также

154

существует возможность осуществлять динамический обмен данными между всеми программами пакета Microsoft Office.

Задачи для самостоятельного решения

Тема: Математические функции

1.В первый столбец таблицы ввести названия месяцев (январь .. декабрь), во второй столбец показания электросчётчика в начале каждого месяца, в третий столбец — показания счетчика в конце каждого месяца, в четвертый столбец — расход электроэнергии в каждом месяце, а в пятый месячную оплату с учётом тарифа. Величину тарифа указать в 1-й ячейке 6–го столбца. В 1- й, 3-й, 4-й, 5-й столбцы вводить информацию с использованием автозаполнения ячеек. В 1-ю строку таблицы ввести заголовок.

2.Создать таблицу, содержащую данные о ценах на какиелибо товары в прошлом году и в текущем году. Определить величину изменения цены выбранных товаров в процентах. При расчетах использовать автозаполнение ячеек. В 1-ю строку таблицы ввести заголовок.

3.В квартире площадью N+60 м2 проживают 5 человек. Создать таблицу для расчета стоимости оплаты квартиры с учетом основных ее составляющих (наём, отопление, горячее и холодное водоснабжение, электроэнергия и т.д.), учитывая, что плата за отопление пропорциональна площади квартиры, плата за водоснабжение — количеству жильцов, плата за электроэнергию — начальному и конечному показаниям счётчика. Результат определить при помощи функции автосуммирования. N — индивидуальный номер студента. В 1–ю строку таблицы ввести заголовок.

4.Приближённо рассчитать значения первой и второй производных функции одного аргумента, как отношения приращений

функций к приращениям аргументов. В процессе расчёта использовать автозаполнение ячеек. ({z=xn , 0 ≤x≤ 1};{z=x1/n , 0 ≤x≤ 1};

155

нить точность приближённого расчёта и проиллюстрировать результаты графически.

5. Создать таблицу для расчёта значений функции 2–х переменных. Построение таблицы произвести с использованием авто-

заполнения (z=xn+ym; z=xn*ym; z=tg(x)*ctg(y) ).

6. Рассчитать величины первых пяти элементов арифметической и геометрической прогрессий, у которых первый элемент равен последней, а шаг – предпоследней цифре номера зачётной книжки.

Тема: Логические функции

1.Лимоны продаются по цене либо Ц1/кг, либо Ц2/шт. Составить таблицу для расчета стоимости покупки, пригодную для обоих случаев. Значения Ц1 и Ц2 ввести соответственно в ячейки А2 и В2, а название единицы измерения – в ячейку С2. В ячейку А3 ввести расчётную формулу. В 1-ю строку таблицы ввести заголовок.

2.Составить таблицу, включающую список должников и срок отдачи долга для каждого из них. Каждый день необходимо:

1)автоматически определять, чей срок возврата долга прошёл; 2) если срок возврата долга прошёл более 10 дней назад, выдать соответствующее сообщение. В 1-ю строку таблицы ввести заголовок.

3.Составить таблицу, которая на основе данных о результатах трех сданных экзаменов определяет качество учёбы (отличник, хороший студент, троечник, неуспевающий).

4.Создать таблицу, позволяющую рассчитывать сумму налога на стоимость имущества, переходящего в порядке дарения. В 1-ю строку таблицы ввести заголовок.

5.Создать таблицу, позволяющую рассчитывать сумму налога на зарплату. В 1–ю строку таблицы ввести заголовок.

6.Создать таблицу для расчета заработной платы по типу табл. 3.17, 3.18. При расчете льгот (Л) учесть, что если совокупный доход за предыдущий период (СД) плюс текущая облагаемая сумма (ОС) не превышает 20 000 руб., то Л=МРОТ+0.75МРОТ*Д, где Д–количество детей.

При СД+ОС>20 000 льготы не предоставляются.

156

Подоходный налог (ПН) на основную зарплату принять равным 13%. ПН на другие начисления (ДН)

при СД+ОС>50000 и ДН>20000 принять равным 35%, а в остальных случаях 13%.

Выполнить контроль: сумма подоходных налогов (ПН) за каждый месяц рассматриваемого периода (года), должна равняться ПН на сумму облагаемых сумм (ОС) за тот же период.

Тема: Формулы массива

1. Решить системы линейных уравнений 5-го порядка с использованием формул Крамера и обратной матрицы. Коэффициенты при неизвестных по главной диагонали принять равными номеру в списке группы по журналу.

Тема: Процедура «Подбор параметра» и построение диаграмм

1. Клиент кладёт в банк А рублей под P процентов в год на срок n лет. В конце каждого года клиент снимает со счёта В рублей.

а) Найти сумму вклада S в конце срока c использованием обычной математической функции

S=A(1+P)n-B((1+P)n-1+(1+P)n-2+…+(1+P)1+1)

и с использованием функции Будущее значение БЗ(P, n, В, -A, 0).

б) Через сколько лет сумма вклада удвоится?

в) Какую сумму нужно положить в банк, чтобы сумма вклада достигла 10000 рублей через 3 года?

г) Построить график зависимости суммы вклада S от срока в годах.

Тема: Процедура «Поиск решения»

1. Измерены превышения hi по сторонам Si замкнутого нивелирного полигона (см. таблицу), N- индивидуальный номер. Отличие суммы превышений от нуля является следствием

ошибок измерения.

157

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

Целевая функция:

R = ∑5 1 Vi2 → min

i=1 Si

Условие:

5

∑(h +Vi ) = 0

i=1

Vi - целочисленные.

Пример подготовки данных и решения для N=13 показан на рисунке.

158

2.В четырехугольнике с диагональю измерены 8 внутренних

углов βi (см. рис.). Средняя квадратическая ошибка измерений mβ=+3”. Значения измеренных углов в градусах, минутах и секундах приведены в таблице. N – индивидуальный номер.

360 00 00+N

430 00 00+N

580 00 00-N

670 00 00+N

790 00 00+N

8140 00 00-N

Математическая модель задачи.

Найти поправки в углы Vi сек., которые обеспечат выполнение геометрических условий в треугольниках и четырехугольнике при минимальной сумме квадратов самих поправок.

Целевая функция:

8

R = ∑Vi2 → min

i=1

Условия:

(β1 +V1 ) +(β2 +V2 ) +(β3 +V3 ) =180°

(β4 +V4 ) +(β5 +V5 ) +(β6 +V6 ) =180°

(β1 +V1 ) +(β7 +V7 ) +(β6 +V6 ) +(β8 +V8 ) = 360°

Требуется:

а) Найти оптимальные поправки Vi .

б) Найти оптимальные целочисленные поправки Vi.

в) Найти оптимальные целочисленные поправки Vi, не превосходящие по модулю утроенной ср. кв. ошибки измеренных углов.

Пример подготовки данных и решения для N=17 показан на

рис.

160