- •Введение
- •Структура программы на 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 с.
- •Содержание
Пример 7
'Имя файла: Game.vbs
'программа, которая предлагает угадать число от 0 до 10 за 3 попытки.
Randomize
a= Rnd(1) 'переменной a присваивается случайное число от 0 до 1
a=Fix(a*10) 'переменной присваивается случайное число от 0 до 10
x=CInt(inputbox("Введите параметр",_
"Угадайте число от 0 до 10 за 3 попытки!!!","5"))
If x>a Then
Msgbox "Загаданное число меньше! ",vbSystemModal,"результат: "
x=CInt(inputbox("Попытайтесь угадать ещё раз: ",_
"Осталось всего 2 попытки!!!","5"))
ElseIf x<a Then
Msgbox "Загаданное число больше! ",vbSystemModal,"результат: "
x=CInt(inputbox("Попытайтесь угадать ещё раз: ","Осталось всего 2 попытки!!!","5"))
End If
If x<a Then
Msgbox "Загаданное число больше!",vbSystemModal,"результат: "
x=CInt(inputbox("Попытайтесь угадать ещё раз: ",_
"Осталась всего 1 попытка!!!","5"))
ElseIf x>a Then
Msgbox "Загаданное число меньше! ",vbSystemModal,"результат: "
x=CInt(inputbox("Попытайтесь угадать ещё раз: ",_
"Осталась всего 1 попытка!!!","5"))
End If
If x=a Then
Msgbox "Вы угадали загаданное число!!! ",_
vbSystemModal,"результат: "
Else
Msgbox "Вам не удалось угадать загаданное число за 3 попытки!!! ", _ vbSystemModal,"результат: "
End If
2.4 Задачи для самостоятельного решения
-
*Без использования операторов условного перехода написать программу, вычисляющую модуль числа.
-
*Без использования операторов условного перехода написать программу, находящую большее из двух чисел.
-
*Без использования операторов условного перехода написать программу, находящую меньшее из двух чисел.
-
*Без использования операторов условного перехода написать программу, находящую максимальное из трех чисел.
-
Даны два числа. Выведите на экран их значения и определите большее и меньшее из них.
-
Даны три числа. Выведите на экран их значения и определите большее и меньшее из них.
-
Найти сумму цифр для числа меньше 10000.
-
Вычислить значение Logx5.
-
Определите и выведите на экран номер квадранта, в котором расположена точка A(x,y), x и y - заданные целые числа.
-
Составьте программу, которая определяет, принадлежит ли точка M(x,y) кругу с центром в точке Z(a, b) и радиусом равным r.
-
Составьте программу, которая определяет, принадлежит ли точка N(x,y,z) шару с центром в точке Z(a, b, c) и радиусом r.
-
Составьте программу, которая определяет, принадлежит ли точка M(x,y) окружности с центром в точке Z(a, b) и радиусом r.
-
Составьте программу, которая определяет, принадлежит ли точка N(x,y,z) сфере с центром в точке Z(a, b, c) и радиусом r.
-
Определите, какая из двух фигур (круг или квадрат) имеет большую площадь.
-
Известно, что сторона квадрата равна а, радиус круга r. Выведите на экран название и значение площади большей фигуры.
-
Напишите программу, которая по номеру месяца выводит его название.
-
Напишите программу, которая по знаку арифметической операции выводит её название.
-
Напишите программу, которая определяет по заданному числу месяца и по дню недели первого числа этого месяца день недели для заданного числа. (Пример: первое число - пятница, тогда 6 – вторник ,задали число 6).
-
Напишите программу, которая по заданным переменным a, b и c типа boolean, выводила знак операции отношения так, чтобы следующая операция возвращала true: a=(b<операция>c), где <операция> - операция отношения, знак которой нужно вывести на экран. ( Пример: a=true, b=true, c=true. Вывод: &).
-
Напишите программу, которая переводит школьные отметки в оценки.
-
Исправьте ошибки в данной программе:
x=CInt(inputbox("Введите параметр","вычисление квадратного корня","1"))
If x>0 Then
Msgbox "Ответ: "&(Sqr(x+x*3)),vbSystemModal,"Результат"
Else
Msgbox "корень от данного выражения вычислить нельзя!",_
vbSystemModal+vbCritical,"ошибка ввода"
-
Исправьте ошибки в данной программе:
x=CInt(inputbox("Введите параметр","вычисление выражения 1/(7/6*4-x) ","1"))
If x>0 Then
Msgbox "Ответ: "&(1/(7/6*4-x))),vbSystemModal,"Результат"
ElseIf
Msgbox "Значение данного выражения вычислить нельзя!",_
vbSystemModal+vbCritical,"ошибка ввода"
-
В демонстрационных примерах находится файл: Game.vbs. Измените код данной программы таким образом, чтобы у пользователя было 4 попытки угадать число. В том случае, если число будет угадано, то должно выйти сообщение, в котором бы указывалось, сколько попыток пользователю понадобилось, чтобы угадать число.
-
Напишите программу, которая по знаку математической операции выводит её название. (+ - сложение, * - умножение)
-
Даны две прямые, заданные уравнениями y=k1x+b1, y=k2x+b2, вводятся k1, b1, k2, b2, определить являются ли данные прямые перпендикулярными и найти их точку пересечения.
-
Составьте программу для вычисления значения функции в точке X: