End Sub

End If

Else

X = Text1.Text

Private Sub Command1_Click()

Занятие 11. Решение задач на условную конструкцию

Занятие 10. Лабораторная работа №2. Линейные программы

End Sub

Функция Val() (вал, значение) преобразует строку символов в число. Необходимость применения этой функции состоит в том, что введенные данные в текстовое поле компьютер воспринимает, как текст. Если А = 2, а В = 3, то сумму (A + B) компьютер преобразует как 23 (без функции Val). Чтобы сумма была равна 5, надо применить функцию Val. Функция Str() (Стр, строка) преобразует число в строку символов.

6. На этапе режима отладки запускаем программу клавишей F5. Вносим данные в текстовые поля 4.05, 3.25, 2.55 - соответственно, длина, ширина и высота. Читаем ответ в поле Площадь стен 37,23. Если появляется сообщение об ошибках, то исправляем их.

7. Сохраняем проект: Файл, Сохранить.

Будем выполнять лабораторную в соответствии с этапами решения задач на ЭВМ.

Задание 1. 1. Составить программу вычисления кусочно-заданной функции.

Надо вычислить значения функции y, при различных значениях аргумента x.

2. Математическая модель решения задачи на числовой оси это выглядит так:

3. Создадим экранную форму. Размер рисунка в Paint: 150х100.

6. Результат работы программы - значения функции на всех отрезках:

1. Если x=-10, то y=20;

2. Если x=3,то y=9;

3. Если x=100,то y=100.

7. Оптимизация. Возникает вопрос: можно ли улучшить и упростить программу?

Окончательно программа будет выглядеть так:

If x <= 0 Then

y = -2 * x

If x > 5 Then y = x Else y = x ^ 2

Text2.Text = y

Private Sub Command2_Click() ‘Программа очистки текстовых полей

Text1.Text = “”

Text2.Text = “”