Читайте также: |
|
1. Изучите теоретическое обоснование.
2. Выполните пример:
Для любых а и t, введенных с клавиатуры, вычислить значение функции .
Для этого:
· войдите в среду Visual Basic;
· с помощью стандартного набора инструментов Toolbox создайте экранную форму с командной кнопкой Command1 и надписью «Пуск», нажатием которой запускается программа;
· создайте программный код:
Private Sub Command1_Click ()
Dim а As Integer, t, Y As Single
а = Val (InputBox(“Введите значение а”)) ‘Преобразование введенных
t = Val (InputBox(“Введите значение t”)) ‘ значений в числа
If t<1 Then Y=a*a*log(t) Else If t<=3 Then Y=1 Else Y=exp(t)*cos(a*t)
MsgBox Y,,” Значение Y=”
End Sub
· запустите программный код и выполните программу с разными исходными данными.
· измените в программном коде однострочный условный оператор на многострочный следующим образом:
If t<1 Then
Y=a* a *log(t)
Else
If t<=3 Then
Y=1
Else: Y=exp(t)*cos(a*t)
End If
Повторите запуск программного кода и сравните результат с предыдущим при одинаковых исходных данных.
3. Выполните пример 2: определить агрегатное состояние воды по введенному значению температуры в Цельсиях.
Для этого:
· войдите в среду Visual Basic;
· с помощью стандартного набора инструментов Toolbox создайте экранную форму с командной кнопкой Command2 и надписью «Пуск2», нажатием которой запускается программа;
· создайте программный код:
Private Sub Command2_Click ()
Dim strZ,strB As String, t As Single
t = Val (InputBox(“Введите значение t”))
strZ = “Вода при температуре”
strB = “ градусов Цельсия – ”
SELECT CASE t
CASE IS < 0
MsgBox Str(t)+ strB + “ лед”,, strZ
CASE 0 TO 100
MsgBox Str(t)+ strB + “жидкость”,, strZ
CASE ELSE
MsgBox Str(t) + strB +“ пар ”,, strZ
End SELECT
В этом примере функция Str(t) преобразует значение числовой переменной t в строку символов для вывода в окне MsgBox. Оператор MsgBox значения, указанные через «+», объединяет в общую строку.
4. На основании примеров из теоретической части в соответствии со своим вариантом задания (таблица 1) составьте блок-схему решения задачи. Создайте форму и программный код задачи. Отладьте и выполните программу. Результат запишите в отчет.
Таблица 1 – Варианты задания
№ варианта | Условие задания |
Даны два числа. Большее из этих двух чисел заменить их полусуммой, а меньшее удвоенным произведением. | |
Даны величины а 1 и а 2.. Определить, принадлежит ли точка А(а 1, а 2) кругу x2+y2=16. | |
Даны три стороны треугольника a, b, c. Определить, является ли такой треугольник равнобедренным, равносторонним или разносторонним. | |
Определить и вывести на печать номер четверти, в которой находится точка М с координатами х и у. | |
Даны стороны прямоугольника a, b. Если a >b, найти его площадь, если a < b, найти его периметр, если a = b, то найти его периметр и площадь. | |
Заданы радиус круга, две смежные стороны прямоугольника. Определить, какая фигура имеет большую площадь, какая меньшую, или они равны? | |
Даны три числа. Найти среди них максимальное отрицательное число. | |
Заданы радиус круга R и сторона квадрата A. Определить, какая фигура имеет большую площадь. | |
Заданы два целых числа. Определить, являются ли они оба четными или оба нечетными, или определить, какое из них четное, а какое нечетное. | |
Заданы отрезки a, b, c, d. Проверить, могут ли они служить сторонами прямоугольника. | |
Заданы три числа. Определить, есть ли среди них хотя бы одна пара равных по величине. | |
Даны три числа. Найти разность между наибольшим и наименьшим среди них. | |
Даны три числа. Меньшее среди них заменить на 0. | |
Найти минимальное значение из величин, определяемых арифметическими выражениями: а=sin(x), b =cos(x), c =lg(x) при любом, введенном х. | |
Заданы три числа А, В, С. Если они все положительны, то найти их корни; если все отрицательны, то возвести каждое из них в квадрат, иначе найти их сумму. | |
Даны три разных числа. Найти среди них произведение и количество отрицательных. |
4 Содержание отчета и его форма
Выполните все описанные пункты задания, письменно оформите отчет, который должен содержать:
- тему, цель лабораторной работы;
- общий вид условных операторов;
- условие, блок-схему, программу и результат выполнения индивидуального задания.
Контрольные вопросы
1. Какие алгоритмы и программы имеют разветвленную структуру?
2. Основные операции используются в логических выражениях?
3. Какие операторы используются для программирования алгоритмов разветвляющейся структуры?
4. Общий вид и принцип работы оператора условного перехода – однострочного.
Дата добавления: 2015-08-03; просмотров: 71 | Нарушение авторских прав
<== предыдущая страница | | | следующая страница ==> |
SELECT CASE выражение для проверки | | | Ознакомились. |