- •Лабораторная работа № 22
- •Visual basic: программирование ветвлений
- •Теоретическое обоснование
- •If выражение then оператор1 else оператор2
- •If выражение then оператор1
- •Логические операции. К логическим операциям относятся:
- •If выражение 1 then
- •Методика и порядок выполнения работы
- •Контрольные вопросы и защита работы
Методика и порядок выполнения работы
Изучите теоретическое обоснование.
Выполните пример1:
Для
любых а
и 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
Повторите запуск программного кода и сравните результат с предыдущим при одинаковых исходных данных.
Выполните пример 2: определить агрегатное состояние воды по введенному значению температуры в Цельсиях.
Для этого:
войдите в среду Visual Basic;
с помощью стандартного набора инструментов Toolbox создайте экранную форму с командной кнопкой Command1 и надписью «Пуск», нажатием которой запускается программа;
создайте программный код:
Private Sub Command1_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
END
В этом примере функция Str(t) преобразует значение числовой переменной t в строку символов для вывода в окне MsgBox. Оператор MsgBox значения, указанные через «+», объединяет в общую строку.
На основании примеров из теоретической части в соответствии со своим вариантом задания 1 (таблица 1) составьте блок-схему решения задачи. Создайте форму и программный код задачи. Отладьте и выполните программу. Результат запишите в отчет.
Таблица 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) при любом, введенном х. |
|
|
Заданы три числа А, В, С. Если они все положительны, то найти их корни; если все отрицательны, то возвести каждое из них в квадрат, иначе найти их сумму. |
16 |
Даны три разных числа. Найти среди них произведение и количество отрицательных. |
В соответствии с вариантом задания 2 (таблица 2) составьте блок-схему, напишите программу с использованием SELECT CASE.
Таблица 2 – Варианты задания 2
№ варианта |
Условия задания 2 |
1 |
Написать программу, которая бы по введенному номеру времени года (1 – зима, 2 – весна и т. д.) вычисляла количество дней в этом сезоне. |
2 |
Вводится число D (D<=7). Распечатать соответствующий этому числу следующий день недели (например: если 1 – то завтра вторник). |
3 |
С клавиатуры вводится балл, полученные студентом – Вall. Выдать сообщение: «Отлично», если 80<Вall<100; «Хорошо!», если 60<Вall<81; «Удовлетворительно», если 30<Вall<61; «Неудовлетворительно», если Вall<31. |
4 |
Вводится число экзаменов N<=20. Напечатать фразу «Мы успешно сдали N экзаменов», согласовав слово «экзамен» с числом N. |
5 |
Вводятся числа от 1 по 15. Написать программу, которая выводит соответствующее этому числу значение в 16-й системе. |
6 |
Записать программу, которая на ввод знака препинания выдаёт на экран дисплея его название. Например, на ввод точки выдаёт текст «точка». |
7 |
Написать программу, которая бы по введенной цифре (1, 5, 10, 50 или 100) выводила ее написание в римской системе счисления |
8 |
Вводится число лет (N<=25).Напечатать фразу «Мне N лет», согласовав слово «лет» с числом N. |
9 |
Дана масса тела и номер единицы измерения (1 – килограмм, 2 – миллиграмм, 3 – грамм, 4 – тонна, 5 – центнер). Написать программу, которая выводила бы соответствующее значение массы в килограммах. |
10 |
Вводится число книг N<=10. Вывести фразу «Я взял в библиотеке N книг», согласовав слово «книга» с числом N. |
11 |
Дана емкость винчестера V в мегабайтах. Написать программу, которая бы по введенному номеру единицы измерения информации(1 – бит, 2 – байт, 3 – килобайт, 4 – мегабайт, 5 – гигабайт) переводила V в соответствующую единицу измерения. |
12 |
Вводится число программ N<=10. Напечатать фразу «Я разработал N программ», согласовав слово «программа» с числом N. |
13 |
Вводится порядковый номер дня в году. Определить, к какому сезону года относится этот день. |
14 |
Даны два числа А и В, и знак арифметической операции(+,-,*, /). Написать программу, которая вычисляет А+В, если ввести знак + т. д. |
15 |
Вводится порядковый номер дня в году. Определить, какой это день недели, если год начинается с понедельника. |
16 |
Вводится целое число -5 ≤c ≤5. Вывести величину числа в словесной форме с учетом знака. |
Содержание отчета и его форма
Выполните все описанные пункты задания, письменно оформите отчет, который должен содержать:
тему, цель лабораторной работы;
общий вид условных операторов;
условие, блок-схему, программу и результат выполнения индивидуального задания1 и задания 2.
