- •Введение
- •Структура программы на 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 с.
- •Содержание
Пример 2
' Имя файла Sort_Choice.vbs
' Программа демонстрирует сортировку вектора по неубыванию методом простого
' выбора (первый способ).
Option Explicit
Dim i, j, s, B, x, k, m
B=Array (5, 3, 2, 1, 0, -1) ' вектор, который должен быть отсортирован
' Начало алгоритма сортировки
For i=0 to 4
k=i : x=B(i)
For j=i+1 to 5
If B(j)<x Then
k=j
x=B(j)
End If
B(k)=B(i)
B(i)=x
For m=0 to 5
s=s&B(m)&" " ' в переменную s записывается изменённый вектор
Next
s=s&VbCrLf
Next
Next
' Конец алгоритма сортировки
MsgBox "Задача:"&vbCrLf&_
"Отсортировать вектор (5, 3, 2, 1, 0, -1)"&vbCrLf&vbCrLf&_
"Пошаговая сортировка:"&vbCrLf&_
s&vbCrLf,vbInformation, "Сортировка простым выбором (1 сп):"
Пример 3
' Имя файла Sort_Insert.vbs
' Программа демонстрирует сортировку вектора по неубыванию методом простых
' включений.
Option Explicit
Dim i, j, s, x, k, m
Dim B (6) ' вектор, который должен быть отсортирован
B(1)=5
B(2)=3
B(3)=10
B(4)=1
B(5)=0
B(6)=-1
' Начало алгоритма сортировки
For i=1 to 6
x=B(i) : B(0)=x : j=i-1
While x<B(j)
B(j+1)=B(j) : j=j-1
Wend
B(j+1)=x
For m=0 to 6
s=s&B(m)&" " ' в переменную s записывается изменённый вектор
Next
s=s&VbCrLf
Next
' Конец алгоритма сортировки
MsgBox "Задача:"&vbCrLf&_
"Отсортировать вектор (5, 3, 10, 1, 0, -1)"&vbCrLf&vbCrLf&_
"Пошаговая сортировка:"&vbCrLf&_
s&vbCrLf,vbInformation, "Сортировка простыми включениями:"
Пример 4
' Имя файла Sort_Bin_Insert.vbs
' Программа демонстрирует сортировку бинарными включениями
Option Explicit
const N=8
dim Arr()
redim Arr(N) 'наш массив
dim i 'счетчик
randomize
For i=1 To N
arr(i)=Cint(10*rnd(1))
next
dim s
s=""
For i=1 To N
s=s+CStr(i)+" --> "+Cstr(arr(i))+";"+vbcrlf
next
dim x,j,l,r,m
' Начало алгоритма сортировки
For i=2 to N
x=Cint(arr(i)): l=1: r=Cint(i-1)
While Cint(l)<=Cint(r)
m=Cint(l+r)\2
if CInt(x)<arr(m) then
r=m-1
else
l=m+1
end if
Wend
j=i-1
While Cint(j)>=Cint(l)
arr(j+1)=arr(j)
j=j-1
Wend
arr(l)=x
Next
' Окончание алгоритма сортировки
dim s1
s1=""
For i=1 To N
s1=s1+CStr(i)+" --> "+Cstr(arr(i))+";"+vbcrlf
next
msgbox "Неотсортированный массив:"&vbCrLf&_
s&vbcrlf&vbcrlf&"Отсортированный:"&vbCrLf&_
s1,0,"Сортировка бинарными включениями:"