Разработка программ на языке VBS на базе основных алгоритмов

Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Федеральное государственное автономное образовательное учреждение

"Северный (Арктический) федеральный университет"

РАСЧЁТНО-ГРАФИЧЕСКАЯ РАБОТА

По дисциплине информатика

На тему

Разработка программ на языке VBS на базе основных алгоритмов

Шевцова Татьяна Геннадьевна

Архангельск

2011



Оглавление

1. Создание программы с использованием операторов IF и CASE

1.1 Текст программы с оператором IF

1.2 Блок-схема алгоритма программы с оператором IF

1.3 Результат программы с оператором IF

1.4 Текст программы с оператором CASE

1.5 Блок-схема алгоритма программы с оператором CASE

1.6 Результат программы с оператором CASE

2. Создание программы с использованием операторов цикла с неизвестным числом повторений Do…Loop и While…Wend (соответствующий вариант лабораторной работы № 5

2.1 Текст программы с оператором цикла с предусловием Do While …loop

2.2 Блок-схема алгоритма программы с оператором Do While …loop

2.3 Результат программы с оператором Do While …loop

2.4 Текст программы с оператором цикла с предусловием Do Until …loop

2.5 Блок-схема алгоритма программы с оператором Do Until …loop

2.6 Результат программы с оператором Do Until …loop

2.7 Текст программы с оператором цикла с постусловием Do …loop While

2.8 Блок-схема алгоритма программы с оператором Do …loop While

2.9 Результат программы с оператором Do …loop While

2.10 Текст программы с оператором цикла с постусловием Do …loop Until

2.11 Блок-схема алгоритма программы с оператором Do …loop Until

2.12 Результат программы с оператором Do …loop While

2.13 Текст программы с оператором цикла с предусловием While …Wend

2.14 Блок-схема алгоритма программы с оператором While …Wend

2.15 Результат программы с оператором While …Wend

3. Создание программы с использованием операторов цикла с известным числом повторений For…Next и For Each…next

3.1 Текст программы с оператором For…Next

3.2 Блок-схема алгоритма программы с оператором For…Next

3.3 Результат программы с оператором For…Next

3.4 Текст программы с оператором For Each…Next

3.5 Блок-схема алгоритма программы с оператором For Each…Next

3.6 Результат программы с оператором For Each…Next



1. Создание программы с использованием операторов IF и CASE

1.1 Текст программы

Задание:

Задайте в окне ввода значение переменной X с учетом заданного подтипа данных. Вычислите переменную Y по одному из выражений в зависимости от значения X. Значения переменных X, Y покажите в окне сообщения.

Const FIO = "Шевцова Татьяна"

X = InputBox("Задайте любую дату", FIO)

X = CDate(X)

Y = InputBox("Задайте любое время", FIO)

Y = timevalue(Y)

If X = #01-01-2010# and Y=#00:00:00 # then

Y = "С новым годом!"

ElseIf X >=#01-01-0000# and X <= #31-12-2099# then

Y = "21 век!"

ElseIf X >=#01-01-1900# and X <= #31-12-0099# then

Y = "20 век!"

ElseIf X >=#01-01-100# and X <=#31-12-9999# then

Y = "неверный диапазон дат"

End If

MsgBox " X= "& X & ": " & Y,,FIO

1.2 Блок-схема алгоритма программы с оператором IF

Рисунок 1- Блок-схема алгоритма программы с оператором IF

1.3. Результат программы с оператором IF

А Рисунок 2 - Окно программы с оператором IF «Задайте любую дату»



1.4 Текст программы с оператором CASE

Задание:

С использованием оператора выбора CASE выполнить задания 1-го пункта.

A=1

Select Case A

Case "1","3" Y="A ""1-й квартал"""

Case 4 , 6 Y="A 2-й квартал"

Case 7 , 9 Y="A 3-й квартал"

Case 10 , 12 Y="A 4-й квартал"

Case Else Y ="нет данных"

End Select

MsgBox "Для A =" & A & " Y = " & Y

1.5 Блок-схема алгоритма программы с оператором CASE

Рисунок 5 - Блок-схема алгоритма программы с оператором CASE



1.6 Результат программы с оператором CASE

Рисунок 6 - Результат алгоритма программы с оператором CASE



2. Создание программы с использованием операторов цикла с неизвестным числом повторений Do…Loop и While…Wend

2.1 Текст программы с оператором цикла с предусловием Do While …loop

Задание:

Вычислите число р по итерационной формуле с абсолютной погрешностью вычисления от 10^-5 до 10^-16. Найдите величину погрешности, при которой в числе р постоянными остаются 7 знаков после запятой. Определите программно время расчета для каждого варианта, покажите в окне сообщения таблицу, показывающую расчетное значение р, n и продолжительность расчета для различной погрешности.

Напишите 5 вариантов программы: 4 для цикла Do…Loop (с проверкой условия в начале и конце с использованием While и Until в каждом из двух вариантов) и для цикла While…Wend. Расчет для максимальной точности выполнить для одного варианта, т.к. его продолжительность может составлять 15-30 минут.

eps= 1e-11

n=0

a= ((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=a

t1=time

Do while Abs(a)>eps

n=n+1

a=((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=s+a

Loop

t2=time

MsgBox "расч. Pi= "& S & vbLf & "n=" & n & vbLf&_

"продолжительность расчета " & _

FormatDateTime (t2-t1), ," Шевцова Т.Г."

2.2 Блок-схема алгоритма программы с оператором Do While …loop

Рисунок 7 - Блок-схема алгоритма программы с оператором Do While …loop

2.3 Результат программы с оператором Do While …loop

Рисунок 8 - Результат программы с оператором Do While …loop

2.4 Текст программы с оператором цикла с предусловием Do Until …loop

eps= 1e-11

n=0

a=((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=a

t1=time

Do Until Abs(a)<=eps

n=n+1

a=((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=s+a

Loop

t2=time

MsgBox "расч. Pi= "& S & vbLf & "n=" & n & vbLf&_

"продолжительность расчета " & _

FormatDateTime (t2-t1), ," Шевцова Т.Г."

2.5 Блок-схема алгоритма программы с оператором Do Until …loop

Рисунок 9 - Блок-схема алгоритма программы с оператором Do Until …loop

2.6 Результат программы с оператором Do Until …loop

Рисунок 10 - Результат программы с оператором Do Until …loop

2.7 Текст программы с оператором цикла с постусловием Do …loop While

eps= 1e-11

n=0

a= ((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=a

t1=time

n=n+1

Do

a=((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=s+a:n=n+1

Loop while Abs(a)>eps

t2=time

MsgBox "расч. Pi= "& S & vbLf & "n=" & n & vbLf&_

"продолжительность расчета " & _

FormatDateTime (t2-t1), ,"Шевцова Т.Г."



2.8 Блок-схема алгоритма программы с оператором Do …loop While

Рисунок 11 - Блок-схема алгоритма программы с оператором Do …loop While

2.9 Результат программы с оператором Do …loop While

Рисунок 12 - Результат программы с оператором Do …loop While



2.10 Текст программы с оператором цикла с постусловием Do …loop Until

eps= 1e-11

n=0

a= ((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=a

n=n+1

t1=time

Do

a=((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=s+a:n=n+1

Loop Until Abs(a)<=eps

t2=time

MsgBox "расч. Pi= "& S & vbLf & "n=" & n & vbLf&_

"продолжительность расчета " & _

FormatDateTime (t2-t1), ," Шевцова Т.Г."

программа алгоритм программа повторение

2.11 Блок-схема алгоритма программы с оператором Do …loop Until

Рисунок 13 - Блок-схема алгоритма программы с оператором Do …loop Until

2.12 Результат программы с оператором Do …loop While

Рисунок 14 - Результат программы с оператором Do …loop While

2.13 Текст программы с оператором цикла с предусловием While …Wend

eps= 1e-11

n=0

a= ((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=a

t1=time

n=n+1

While Abs(a)>eps

a=((4/(8*n+1)-2/(8*n+4)-1/(8*n+5)-1/(8*n+6))*(1/16)^n)

s=s+a:n=n+1

Wend

t2=time

MsgBox "расч. Pi= "& S & vbLf & "n=" & n & vbLf&_

"продолжительность расчета " & _

FormatDateTime (t2-t1), ," Шевцова Т.Г."



2.14 Блок-схема алгоритма программы с оператором While …Wend

Рисунок 15 - Блок-схема алгоритма программы с оператором While …Wend

2.15 Результат программы с оператором While …Wend

Рисунок 16 - Результат программы с оператором While …Wend



3. Создание программы с использованием операторов цикла с известным числом повторений For…Next и For Each…next

3.1 Текст программы с оператором For…Next

Задание:

С использованием оператора цикла FOR…Next и функции RND сгенерировать один или два (для заданий 3 и 4) динамических массива из n действительных чисел в диапазоне от a до b для вычислений по заданной ниже формуле. Расчет по формуле выполнить с использованием оператора FOR…Next для n, равного 10, 15 и 20. Исходные данные и результаты показать в окне сообщения, при формировании строки сообщения использовать цикл FOR Each… Next.

n=10

a = 10

b = 15

c = 20

Redim X(n),Y(n)

Randomize

For i=0 to n-1

X(i) = b-(b-a)*Rnd

Y(i) = a*(X(i)^2)+b*X(i)+c

Next

S = " "

For each iks in X

S = S & vblf & iks & " "

Next

MsgBox S , , "For Each"

3.2 Блок-схема алгоритма программы с оператором For…Next

Рисунок 17 - Блок-схема алгоритма программы с оператором For…Next

3.3 Результат программы с оператором For…Next

Рисунок 18 - Результат программы с оператором For…Next

Список литературы

1 А.С. Грошев Программирование на VBS. Методические указания к выполнению лабораторных работ (электронный ресурс)

2 А.С.Грошев. Информатика [электронный ресурс]:Учебник (http://www.agtu.ru:8900/SCRIPT/IT-012/scripts/serve_home).

Размещено на Allbest.ru

...