Формирование таблицы по решению квадратного уравнения вида Ах2+Вх+С=0

Создание файла.

Файл создается из пункта меню ФАЙЛ опцией СОЗДАТЬ. Появляется таблица,

Устанавливаем параметры страницы через опцию ПАРАМЕТРЫ СТРАНИЦЫ меню
ФАЙЛ (установка полей, размера бумаги, колонтитулов и т.д.). На листе появляется пунктирная линия, обозначающая границы листа.

Набор таблицы.

В ячейку А1 набираем фразу «Решение квадратного уравнения вида
Ах2+Вх+С=0, и выделяем ячейки строки А от 1 до той которая находится перед пунктирной линией. Форматируем расположение, начертание и размер букв через опцию ЯЧЕЙКИ меню ФОРМАТ. В подпанели Выравнивание устанавливаем значение
«Центрировать по выделению». В подпанели Шрифт - размер и начертание букв
(у нашем варианте это полужирный курсив и размер 14). Устанавливаем курсор на ячейке В4 и набираем А=, в ячейке В5 - В=, в ячейке В6 - С=, и производим форматирование по описанному выше методу. Ячейки С4, С5 и С6 выделяем рамкой в подпанели Рамка панели ЯЧЕЙКИ меню ФОРМАТ. Эти ячейки предназначены для ввода в них значений А, В, С.

Набор формулы.

В ячейках Е4 и Е6 пишем соответственно х1= и х2=, и форматируем по методу, описанному выше.

А в ячейки F4 и F6 записываем формулы так. Сначала ставится равно, потом значение ячейки В5 нажатием на ней мышки, функция Корень вставляется из пункта меню ВСТАВКА - ФУНКЦИЯ... Выбираем из математических функций -
КОРЕНЬ. И нажимаем кнопку Далее - для ввода значения, находящегося под корнем. Следуя формуле дискриминанта вводим B5^2-(4*B4*B6), а общий вид формулы -

=(-B5 + КОРЕНЬ(B5^2-(4*B4*B6)))/(2*B4)

Такую же формулу вставляем и в ячейку F6, но сознаком минус:

=(-B5 - КОРЕНЬ(B5^2-(4*B4*B6)))/(2*B4)

Теперь после ввода пользователем значений А,В,С в ячейки В4, В5 и В6, в ячейках F4 и F6 будут выводится соответственно значения х1 и х2.

Сам Лист сохраняется опцией СОХРАНИТЬ КАК... из меню ФАЙЛ. Оттуда же производится и печать Листа.

Вид таблицы в программе Excel.

[pic]

Макрос набора таблицы.
'
' Макрос1 Макрос
' Макрос записан 29.05.00 ()
'
'
Sub Макрос1()

ActiveCell.FormulaR1C1 = "Решение квадратного уравнения вида
Ах2+Вх+С=0"

Range("A2").Select

With ActiveSheet.PageSetup

.PrintTitleRows = ""

.PrintTitleColumns = ""

End With

ActiveSheet.PageSetup.PrintArea = ""

With ActiveSheet.PageSetup

Поделитесь этой записью или добавьте в закладки