Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
2 Основы программирования и представления инфор...doc
Скачиваний:
6
Добавлен:
01.05.2025
Размер:
1.36 Mб
Скачать

Варианты задания №3

Вычислить на ЭВМ значение функции Y(X) при изменении аргумента в указанном диапазоне Xn ≤ X ≤ Xk и с заданным шагом X. В результате вывести таблицу значений X и Y.

Варианты задания представлены в таблице 5.

Таблица 5

Варианты заданий

Вариант

Функция

Xn

Xk

X

1

2

3

4

5

0

1,0

10,0

0,5

1

3,0

13,0

1,0

Продолжение таблицы 5

1

2

3

4

5

2

0,0

6,28

0,785

3

0,0

6,28

0,785

4

0,0

6,28

0,785

5

0,0

6,28

0,785

6

0,785

6,28

0,785

7

0,785

6,28

0,785

8

1,0

10,0

1,0

9

-3,14

3,14

0,785

A

0,0

20,0

2,0

B

0,0

6,28

0,785

C

0,0

1,0

0,1

D

0,785

6,28

0,785

E

-5,0

5,0

1,0

F

-5,0

5,0

1,0

Пример выполнения задания №3

Задание

Вычислить на ЭВМ значение функции , при изменении аргумента x в диапазоне 0 ≤ x ≤ 4 с шагом 0,5.

Схема алгоритма представлена на рисунке 1.

Рисунок 1 – Схема алгоритма

Создание формы

Чтобы создать форму для вычисления значения данной функции, необходимо: 1) выбрать в меню документа Microsoft Word команду Сервис/Макрос/Редактор Visual Basic или нажать сочетание клавиш Alt+F11(смотри рисунок 2).

Рисунок 2 – Запуск приложения Visual Basic

2) в меню редактора VBA выбрать команду Вставка (Insert)/User Form (рисунок 3).

Рисунок 3 – Добавление User Form

Появится пустая форма и набор инструментов (рисунок 4)

Рисунок 4 – Внешний вид User Form

3) в меню редактора VBA выбрать команду Вид(View) /Окно свойств(Properties Window) или щелкнуть по клавише F4 (рисунок 5)

Рисунок 5 – Вызов окна свойств (Properties Window)

4) назовем нашу User Form «Задание 3». Для этого в Окне свойств зададим свойствам Name и Caption «Задание 3» (рисунок 6)

Рисунок 6 – Задание имени User Form

Для решения данной задачи нам потребуется:

  • 1 элемент управления класса Image для размещения рисунка;

  • 1 элемент управления класса Label для расположения надписи № п/п | x | y ;

  • 1 элемент управления класса ListBox для вывода результатов;

  • 1 элемент управления класса CommandButton для запуска подпрограммы.

Разместим все эти элементы управления на User Form (рисунок 7).

Рисунок 7 – Внешний вид User Form с элементами

Для того чтобы в элементе управления класса Image появилась формула, нам необходимо набрать нужную формулу в Microsoft Word с помощью редактора формул, а затем сохранить ее в любом графическом редакторе (например, Paint - рисунок 8) под именем «Безымянный» в папке «Мои документы».

Рисунок 8 – Копирование формулы из Microsoft Word в графический редактор Paint.

Выделим элемент управления класса Image и щелкнем мышкой по свойству Picture. Справа от него появится знак . Щелкнув по нему мышкой, появится диалоговое окно Load Picture (рисунок 9).

Рисунок 9 – Диалоговое окно Load Picture

В строке Имя Файла: выбираем файл с нашей формулой «Безымянный» (рисунок 10).

Рисунок 10 – Выбор графического файла с формулой

Щелкаем по кнопке Открыть.

В элементе управления Image появится наша формула. Выделим элемент управления класса Label, в свойстве Caption запишем:

№ п/п | x | y

В свойстве Font выберем шрифт Courier New. Выделим элемент управления класса ListBox и в свойстве Font также выберем шрифт Courier New. Выделим элемент управления класса CommandButton и в свойстве Caption запишем Y(х).

В результате наша форма будет иметь вид:

Рисунок 11 – Финальный внешний вид User Form

ПРОГРАММА ВЫЧИСЛЕНИЯ ЗНАЧЕНИЯ ФУНКЦИИ Y(Х)

В соответствии с выбранным нами алгоритмом, вычислением будет управлять кнопка из класса CommandButton. Для записи программы вычисления дважды щелкнем по кнопке и впишем в нее текст программы, как показано ниже.

Текст программы

При нажатии функциональной клавиши F5, мы увидим на поле документа активную форму

Рисунок 12 – Активная вид User Form

Щелкнув по кнопке , мы получим результат:

Рисунок 13 – Результат выполнения задания