- •Введение
- •Структура программы на 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 с.
- •Содержание
Пример 4
' Имя файла rasstoyanie.vbs
'Совместное использование функции и процедуры
'Определение расстояния, пройденного физическим телом
option explicit
dim v,t,a
'--------------
Function Rasst(x,y,z)
rasst=x*y+z*y*y/2
end function
'--------------
Sub Input(param,x)
x=inputbox("Введите значение параметра "¶m,_
"Окно ввода "¶m,"0")
end sub
'--------------
msgbox "Задача:"&vbcrlf&_
"Определить расстояние пройденное физическим телом"&VbCrLf&_
"за время t, со скоростью v, с ускорением a", vbInformation
input "скорости",v
input "времени",t
input "ускорениия",a
Msgbox "Тело прошло расстояние "&rasst(v,t,a), vbExclamation
Пример 5
' Имя файла style.vbs
'Демонстрация стиля программирования, который называется
'процедурным программированием
option explicit
dim a, b
Sub input(x)
'ввод значения переменной
x=InputBox ("Введите переменную: ","Окно ввода переменной: ")
End Sub
Sub change(x, y)
Dim z
'обмен значениями двух переменных a и b
z=x
x=y
y=z
End Sub
Sub output (x, y)
'вывод значений переменных
MsgBox "Переменные после обмена значениями: a = "&x&", b = "&_
y,vbInformation,"Результат:"
End Sub
'Процедурный стиль программирования состоит
'просто в последовательном вызове процедур
input a
input b
change a, b
output a, b
см. также примеры в каталоге лаб.раб 4
4.4 Задачи для самостоятельного решения
-
Видоизмените программу демонстрационного примера, чтобы она печатала следующее:
***********************************************************
Санкт-Петербург
Набережная р. Мойки, 48, РГПУ
***********************************************************
Воспользуйтесь функцией для печати нужного количества пробелов.
-
Напишите программу нахождения всех корней биквадратного уравнения.
-
Напишите программу вычисления P по формуле:
-
Напишите программу вычисления
-
Проверьте, делится ли заданное натуральное число на 19 тогда и только тогда, когда число его десятков, сложенное с удвоенным числом единиц, делится на 19.
-
Вычислите max(min(3,5),min(2,6)).
-
Задача Ферма. Найдите квадрат, который в сумме со всеми его собственными делителями дает куб.
-
Вычислите (результат принадлежит Сринивазу Рамануджану).
Ответ: 3
-
Вычислите (результат принадлежит Сринивазу Рамануджану)
, где знаки перед корнями периодически повторяются группами по три:"-", "+", "-".
Ответ:
-
Вычислите (результат принадлежит Сринивазу Рамануджану)
где знаки перед корнями периодически повторяются группами по три:"-", "+", "-".
Ответ:
-
Вычислите (результат принадлежит Сринивазу Рамануджану)
где знаки перед корнями периодически повторяются группами по три: "-", "+", "+".
Ответ:
-
Замечательным достижением Франсуа Виеты является введение в математику задачи о нахождении бесконечного произведения. Вычислите
Разумеется, Виета не доказывает сходимости полученного бесконечного произведения, будучи интуитивно уверенным в справедливости своего предельного утверждения.
Ответ:
-
По вещественному x вычислите значение функции
sh(x)· tg(x+1)-tg2(2+sh(x-1))
-
Опишите функцию Stepen(x,n), зависящую от вещественного x и натурального n и вычисляющую (посредством умножения) величину xn, и используйте её для вычисления значения выражения 2.7k+(a+1)-5.
-
Даны три натуральных числа. Определите их наибольший общий делитель.
-
Даны отрезки a, b, c и d. Для каждой тройки этих отрезков, из которых можно построить треугольник, найдите площадь данного треугольника. Определите процедуру Plo(x,y,z), определяющую площадь треугольника со сторонами x, y и z, если такой треугольник существует.
-
Опишите процедуру Socr(a,b,p,q), зависящую от целых параметров (b≠0), которая приводит дробь к несократимому виду.
-
Пусть процедура Socr(a,b,p,q), зависящая от целых параметров (b-0), приводит дробь к несократимому виду . Опишите данную процедуру и использовать ее для приведения дроби 1+1/2+1/3+…+1/20 к несократимому виду .
-
Пусть процедура MaxMin(x,y) присваивает параметру x большее из вещественных чисел x и y, а параметру y - меньшее. Опишите данную процедуру и используйте её для перераспределения значений вещественных переменных a, b и c так, чтобы выполнилось a≥b≥c.
-
Даны длины a, b и c сторон треугольника. Найдите медианы треугольника, сторонами которого являются медианы исходного треугольника.
Указание. Длина медианы, проведённой к стороне a, равна
-
Опишите функцию F(m,n)=n!m!/(n+m)!, где n и m - неотрицательные целые числа.
-
Даны координаты вершин двух треугольников. Определите, какой из них имеет большую площадь.
-
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найдите расстояние от данной точки до ближайшей стороны треугольника. (При определении расстояний учесть, что площадь треугольника вычисляется и через три его стороны, и через основание и высоту.)
-
Три прямые на плоскости заданы уравнениями akx+bky=ck, k=1,2,3. Если эти прямые попарно пересекаются и образуют треугольник, то найдите его площадь.
-
Найдите наименьшее общее кратное четырех заданных натуральных чисел.
-
Два простых числа называются близнецами, если они отличаются друг от друга на 2 (таковы, например, числа 41 и 43). Найдите все пары чисел-близнецов из отрезка [n,2n], где n - заданное натуральное число, большее двух, с помощью функции распознавания простых чисел. Приведём несколько примеров чисел-близнецов: (5,7), (11,13), (17,19), (22271,22273).
-
Два натуральных числа называются дружественными числами, если каждое из них равно сумме всех делителей другого, за исключением его самого (таковы, например, числа 220 и 284, известные ещё Пифагору). Найдите все пары "дружественных" чисел, не превосходящих заданного натурального числа. Приведём ещё несколько примеров дружественных чисел: 1184 и 1210 (Н.Паганини), 17296 и 18416 (П.Ферма), 9363584 и 9437056 (Р.Декарт).
-
Задача Ферма. Найдите куб, который в сумме со всеми его собственными делителями дает квадрат.
-
Дано чётное число n>2. Проверьте для этого числа гипотезу Гольдбаха. Эта гипотеза (по сегодняшний день не опровергнутая и полностью не доказанная) заключается в том, что каждое чётное n, большее двух, представляется в виде суммы двух простых чисел. Воспользуйтесь функцией распознавания простых чисел.
-
Дано натуральное число n. Выясните, является ли оно квадратом. Определите функцию, позволяющую распознавать квадраты.
-
Даны натуральное число n. Выясните, является ли оно степенью пятерки. Определите функцию, позволяющую распознавать степени пятерки.
-
Дано натуральное число n. Выясните, является ли оно простым. Определите функцию, позволяющую распознавать простые числа.
-
Даны три натуральных числа. Определите их наибольший общий делитель.
-
Числа Фибоначчи u0,u1,u2,... определяются следующим образом: u0=1, u1=2,
un=un-1+un-2 (n=2,3,...). Напишите функцию, вычисляющую un для данного неотрицательного целого n.
-
В XX в. математики обобщили понятие "дружественные числа" и занялись поиском общительных чисел - замкнутых циклов из трёх и более чисел. Например, в тройке чисел (1945330728960, 2324196638720, 2615631953920) делители первого числа в сумме дают второе число, делители второго в сумме дают третье число, а делители третьего числа в сумме дают первое число. Самый длинный из известных циклов [Сингх,2000,с.68] состоит из 28 общительных чисел, первое из которых равно 14316. Напишите функцию, устанавливающую, являются ли три заданные натуральные числа общительными числами.