- •Введение
- •Структура программы на vbScript
- •Переменные
- •Подтипы данных и функции преобразования типов
- •Константы
- •Встроенная функция вывода данных MsgBox
- •Встроенная функция ввода данных InputBox
- •Комментарии
- •Непрерывные строки
- •Операторы и операции
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •Пример 8
- •Пример 9
- •1.4 Задачи для самостоятельного решения
- •Логические операции
- •Оператор условного перехода: If … Then
- •2.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •2.4 Задачи для самостоятельного решения
- •Лабораторная работа 3. Операторы цикла в программах на vbscript
- •3.1 Цель работы
- •3.2 Теоретические сведения
- •For…Next (цикл со счетчиком)
- •Как выбрать, какой из циклов использовать в программе?
- •Пример 10
- •Пример 11
- •Пример 12
- •Пример 13
- •Пример 14
- •Пример 15
- •Пример 16
- •3.4 Задачи для самостоятельного решения
- •Передача параметров с помощью ключевых слов ByVal и ByRef
- •Функции
- •Пример 4
- •Пример 5
- •4.4 Задачи для самостоятельного решения
- •Лабораторная работа 5. Программирование алгоритмов при помощи рекурсивных процедур и функций
- •5.1 Цель работы
- •5.2 Теоретические сведения
- •5.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •5.4 Задачи для самостоятельного решения
- •Лабораторная работа 6. Массивы
- •6.1 Цель работы
- •6.2 Теоретические сведения
- •Перебор элементов массива
- •6.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •Пример 8
- •6.4 Задачи для самостоятельного решения "Заполнение" массивов
- •Массивы. Исследование и поиск
- •Модификация массивов
- •Лабораторная работа 7. Алгоритмы поиска в регулярном типе данных. Простейшие классические алгоритмы. Сортировка в массиве
- •7.1 Цель работы
- •7.2 Теоретические сведения
- •Сортировка обменом
- •Сортировка выбором
- •Сортировка включениями
- •Сортировка бинарными включениями
- •Шейкер-сортировка
- •7.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •Пример 8
- •Пример 9
- •Пример 10
- •7.4 Задачи для самостоятельного решения
- •Лабораторная работа 8. Строковый тип данных в программах на vbscript
- •8.1 Цель работы
- •8.2 Теоретические сведения
- •Другие функции необходимые для работы со строками
- •Основные функции для работы с датой и временем:
- •8.3 Демонстрационные примеры Пример 1
- •Пример 2
- •Пример 3
- •Пример 4
- •Пример 5
- •Пример 6
- •Пример 7
- •Пример 8
- •Пример 9
- •8.4 Задачи для самостоятельного решения Модификаторы
- •“Вычеркиватели” (частный случай модификаторов)
- •Наблюдатели (предикаты)
- •Подсчет
- •Поиск в словах
- •Литература
- •Данчул а.Н. Информатика: Учебник. – м.: рагс , 2004 г. - 528 с.
- •Содержание
Пример 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 Задачи для самостоятельного решения
-
Напишите программу, которая бы выводила в окне строчку: “Моя первая программа на VBScript!!!”, а ниже – кнопку ОК.
-
Создайте программу, которая "спрашивает" имя, а затем, используя это имя, приветствует программиста.
-
Создайте программу, которая запрашивает пароль, а потом его распечатывает.
-
Напишите программу, которая “спрашивает” пароль для входа в систему, а после введения пользователем пароля и нажатия кнопки ОК выводит окно со значком критической ошибки и сообщением о том, что был введён неправильный пароль.
-
Напишите программу, в которой бы пользователь мог ввести название города-юбиляра (N) и количество исполнившихся ему лет (Х). После нажатия кнопки ОК должно выйти окно с поздравлением: “Поздравляем жителей города N с Х-летием!!!”.
-
Посчитайте среднее арифметическое трёх натуральных чисел.
-
Напишите программу, которая находит квадратный корень произведения двух вещественных чисел одинакового знака.
-
Уберите лишние скобки у данного логического выражения:
y eqv (((x and y) or y)xor (x imp (x xor y)))
а затем напишите программу, которая по введённым значениям x и y типа Bool, вычисляла бы истинно или ложно данное логическое выражение.
-
Уберите лишние скобки у данного арифметического выражения:
(x-y)+23*(y/20)+((x\(2^3)) Mod 2)
а затем напишите программу, которая по введённым значениям x и y типа Integer, вычисляла бы данное арифметическое выражение.
-
Напишите программу, которая вычисляет сумму двух введённых чисел типа Integer и переводит её в шестнадцатеричную систему.
-
Вычислите диагональ квадрата со стороной a.
-
Дан радиус круга. Напишите программу, которая вычисляет площадь этого круга.
-
Дан радиус окружности. Напишите программу, которая вычисляет длину этой окружности.
-
Известны диагонали ромба. Создайте программу, вычисляющую площадь ромба.
-
Создайте программу, которая находит площадь трапеции по ее основаниям и высоте.
-
Вычислите (а) площадь прямоугольного треугольника, (б)длину гипотенузы по двум его катетам; (в) длину одного из его катетов по гипотенузе и второму катету.
-
Вычислите объём цилиндра с радиусом основания R и высотой h. Известны длины сторон прямоугольника. Вычислите его периметр, площадь и длину диагонали.
-
Определите координату середины отрезка (x,y), если известны координаты концов отрезка: (2, 6 ) и (8, 10).
-
Даны декартовы координаты вершин треугольника (в плоскости). Напишите программу, вычисляющую площадь и периметр этого треугольника.
-
Определите расстояние, пройденное физическим телом за время t, если тело движется с постоянным ускорением а и имеет в начальный момент времени скорость v.
-
Определите время свободного падения физического тела с высоты h.
ЛАБОРАТОРНАЯ РАБОТА 2. ОПЕРАТОРЫ ВЫБОРА И ОРГАНИЗАЦИИ ВЕТВЛЕНИЯ В ПРОГРАММАХ НА VBSCRIPT
2.1 ЦЕЛЬ РАБОТЫ
Познакомиться с конструкциями:
-
If…Then…End If
-
If…Then…Else… End If
-
If…Then…ElseIf … End If
-
Select Case…End Select
понять специфику их использования, научиться использовать данные конструкции в программах на VBScript.
2.2 ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ
Понятие оператора
Оператор - это единица исполнения программы. Программы состоят из последовательности операторов.
Операции сравнения
Возвращает true тогда и только тогда, когда оба аргумента равны |
= |
Возвращает true тогда и только тогда, когда оба аргумента неравны |
<> |
Возвращает true тогда и только тогда, когда левый аргумент меньше правого |
< |
Возвращает true тогда и только тогда, когда левый аргумент больше правого |
> |
Возвращает true тогда и только тогда, когда левый аргумент меньше или равен правому |
<= |
Возвращает true тогда и только тогда, когда левый аргумент больше или равен правому |
>= |