II. Разработать проект информационной технологии на языке программирования Visual Basic

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

Подготовить контрольные варианты, самостоятельно выбрать значение входных данных, отладить программы.

1.1 Описание задачи:

W = 65/b,если b>6.5

2,если b<6.5

0,если b=6.5, где b = ln a

 

1.2 Формализация входных и выходных данных:

Входные данные: а – любое число.

Выходные данные: W – результат вычисления.

 

1.3 Построение математической модели задачи:

Для расчёта функции будем использовать следующие условия:

65/b,если b>6.5

2,если b<6.5

0,если b=6.5, где b = ln a

 

2. Разработка алгоритма:

 

3. Разработка проекта:

 

3.1 Разработка формы:

Форма включает следующие элементы управления:

ü элемент управления “Рамка” для обозначения текстового поля;

ü один элемент управления “Текстовое поле” для ввода значений а;

ü элемент управления “Текстовое поле” для вывода результата на экран;

ü элемент управления “Командная кнопка” для запуска программы;

ü наглядное изображение задачи.

 

3.2 Разработка кода приложения:

Private Sub Command1_Click()

 

Dim W As Integer, a As Integer, b As Integer

a = Val(Text1)

b = Log(a)

If b > 6.5 Then W = 6.5 / b

If b < 6.5 Then W = 2

If b = 6.5 Then W = 0

Text3 = Str(W)

 

End Sub

 

4. Результат выполнения: