 |
1. 4 задачи для самостоятельного решения
|
|
|
|
Пример 8
'Имя файла Boll. vbs
'Над двумя введёнными переменными типа Bool программа возвращает 'результат логических операций Not, And, Or, Xor и операций сравнения.
option explicit 'запрет на использование необъявленных переменных
dim x, y 'две рабочие переменные
' вводим переменные
x=Inputbox(" Введите значение переменной x: ", _
" Окно ввода значения переменной типа Bool" )
y=Inputbox(" Введите значение переменной y: ", _
" Окно ввода значения переменной типа Bool" )
'преводим x и y к типу Bool
x=CBool(x)
y=CBool(y)
msgbox " x = " & x& " ; " & " y = " & y& vbcrlf& _
" Not x --> " & (Not x)& vbcrlf& _
" x And y --> " & (x And y)& vbcrlf& _
" x Or y --> " & (x Or y)& vbcrlf& _
" x Xor y --> " & (x xor y)
msgbox " x = " & x& " ; " & " y = " & y& vbcrlf& _
" x = y --> " & (x=y)& vbcrlf& _
" x < > y --> " & (x< > y)& vbcrlf& _
" x > y --> " & (x> y)& vbcrlf
Пример 9
'Имя файла Double_2. vbs
'Программа возвращает значение некоторых функций.
option explicit 'запрет на использование необъявленных переменных
dim x, y ' рабочие переменные
' вводим переменные
x=Inputbox(" Введите значение переменной x: ", _
" Окно ввода значения переменной типа Double" )
y=Inputbox(" Введите положительное значение переменной y: ", _
" Окно ввода значения переменной типа Double" )
'преводим x и y к типу Double
x=CDbl(x)
y=CDbl(y)
msgbox " x=" & x& " ; " & " y=" & y& vbcrlf& _
" Абсолютное значение числа x: " & Abs(x)& vbcrlf& _
" Число E в степени x: " & Exp(x)& vbcrlf& _
" Целая часть числа x: " & Int(x)& vbcrlf& _
" Натуральный логарифм числа y " & Log(y)& vbcrlf& _
|
|
|
" Квадратный корень числа y: " & Sqr(y)& vbcrlf& _
" Синус числа x: " & Sin(x)& vbcrlf& _
" Косинус числа x: " & Cos(x)& vbcrlf& _
" Тангенс числа x: " & Tan(x)& vbcrlf& _
" Арктангенс числа x: " & Atn(x)& vbcrlf
1. 4 ЗАДАЧИ ДЛЯ САМОСТОЯТЕЛЬНОГО РЕШЕНИЯ
1. Напишите программу, которая бы выводила в окне строчку: “Моя первая программа на VBScript!!! ”, а ниже – кнопку ОК.
2. Создайте программу, которая " спрашивает" имя, а затем, используя это имя, приветствует программиста.
3. Создайте программу, которая запрашивает пароль, а потом его распечатывает.
4. Напишите программу, которая “спрашивает” пароль для входа в систему, а после введения пользователем пароля и нажатия кнопки ОК выводит окно со значком критической ошибки и сообщением о том, что был введён неправильный пароль.
5. Напишите программу, в которой бы пользователь мог ввести название города-юбиляра (N) и количество исполнившихся ему лет (Х). После нажатия кнопки ОК должно выйти окно с поздравлением: “Поздравляем жителей города N с Х-летием!!! ”.
6. Посчитайте среднее арифметическое трёх натуральных чисел.
7. Напишите программу, которая находит квадратный корень произведения двух вещественных чисел одинакового знака.
8. Уберите лишние скобки у данного логического выражения:
y eqv (((x and y) or y)xor (x imp (x xor y)))
а затем напишите программу, которая по введённым значениям x и y типа Bool, вычисляла бы истинно или ложно данное логическое выражение.
9. Уберите лишние скобки у данного арифметического выражения:
(x-y)+23*(y/20)+((x\(2^3)) Mod 2)
а затем напишите программу, которая по введённым значениям x и y типа Integer, вычисляла бы данное арифметическое выражение.
10. Напишите программу, которая вычисляет сумму двух введённых чисел типа Integer и переводит её в шестнадцатеричную систему.
11. Вычислите диагональ квадрата со стороной a.
12. Дан радиус круга. Напишите программу, которая вычисляет площадь этого круга.
|
|
|
13. Дан радиус окружности. Напишите программу, которая вычисляет длину этой окружности.
14. Известны диагонали ромба. Создайте программу, вычисляющую площадь ромба.
15. Создайте программу, которая находит площадь трапеции по ее основаниям и высоте.
16. Вычислите (а) площадь прямоугольного треугольника, (б)длину гипотенузы по двум его катетам; (в) длину одного из его катетов по гипотенузе и второму катету.
17. Вычислите объём цилиндра с радиусом основания R и высотой h. Известны длины сторон прямоугольника. Вычислите его периметр, площадь и длину диагонали.
18. Определите координату середины отрезка (x, y), если известны координаты концов отрезка: (2, 6 ) и (8, 10).
19. Даны декартовы координаты вершин треугольника (в плоскости). Напишите программу, вычисляющую площадь и периметр этого треугольника.
20. Определите расстояние, пройденное физическим телом за время t, если тело движется с постоянным ускорением а и имеет в начальный момент времени скорость v.
21. Определите время свободного падения физического тела с высоты h.
ЛАБОРАТОРНАЯ РАБОТА 2. ОПЕРАТОРЫ ВЫБОРА И ОРГАНИЗАЦИИ ВЕТВЛЕНИЯ В ПРОГРАММАХ НА VBSCRIPT
2. 1 ЦЕЛЬ РАБОТЫ
Познакомиться с конструкциями:
- If…Then…End If
- If…Then…Else… End If
- If…Then…ElseIf … End If
- Select Case…End Select
понять специфику их использования, научиться использовать данные конструкции в программах на VBScript.
|
|
|
