Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Programmirovanie_Metod_2009_VVYeD.doc
Скачиваний:
6
Добавлен:
06.12.2018
Размер:
1.14 Mб
Скачать

Пример 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, вычисляла бы истинно или ложно данное логическое выражение.

  1. Уберите лишние скобки у данного арифметического выражения:

(x-y)+23*(y/20)+((x\(2^3)) Mod 2)

а затем напишите программу, которая по введённым значениям x и y типа Integer, вычисляла бы данное арифметическое выражение.

  1. Напишите программу, которая вычисляет сумму двух введённых чисел типа Integer и переводит её в шестнадцатеричную систему.

  2. Вычислите диагональ квадрата со стороной a.

  3. Дан радиус круга. Напишите программу, которая вычисляет площадь этого круга.

  4. Дан радиус окружности. Напишите программу, которая вычисляет длину этой окружности.

  5. Известны диагонали ромба. Создайте программу, вычисляющую площадь ромба.

  6. Создайте программу, которая находит площадь трапеции по ее основаниям и высоте.

  7. Вычислите (а) площадь прямоугольного треугольника, (б)­длину гипотенузы по двум его катетам; (в) длину одного из его катетов по гипотенузе и второму катету.

  8. Вычислите объём цилиндра с радиусом основания R и высотой h. Известны длины сторон прямоугольника. Вычислите его периметр, площадь и длину диагонали.

  9. Определите координату середины отрезка (x,y), если известны координаты концов отрезка: (2, 6 ) и (8, 10).

  10. Даны декартовы координаты вершин треугольника (в плоскости). Напишите программу, вычисляющую площадь и периметр этого треугольника.

  11. Определите расстояние, пройденное физическим телом за время t, если тело движется с постоянным ускорением а и имеет в начальный момент времени скорость v.

  12. Определите время свободного падения физического тела с высоты 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 тогда и только тогда, когда левый аргумент больше или равен правому

>=

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]