СОДЕРЖАНИЕ

ЗАДАНИЕ 1

Даны числа X и Y.Вычислить Z= f(T,P) (Линейный алгоритм)

T= x+ ; P=e Z=


1.1. Блок-схема



1.2. Текст программы и результат

Sub zadanie1()

Dim X, Y, T, P, Z As Single

X = InputBox("Введите значение Х ", "Окно ввода")

Y = InputBox("Введите значение Y ", "Окно ввода")

T = X + (X ^ 2 + Y ^ 2) ^ (1 / 3)

P = Exp(X) + Exp(Y)

Z = P / T

T = Format(T, "###0.0")

P = Format(P, "###0.0")

Z = Format(Z, "###0.0")

MsgBox "X=" & X & ", Y=" & Y & (Chr(10) & Chr(13)) & _

"T =" & T & ", P = " & P & ", Z = " & Z, _

vblnformation, "Расчет по формулам: " & Date

End Sub
ЗАДАНИЕ 2

Даны две пары чисел А, В и С, Д. Если А*В>С*Д, то вывести среднее арифметическое этих чисел, в противном случае среднее геометрическое (Ветвящийся алгоритм)


2.1. Блок-схема



2.2. Текст программы и результат

Sub zadacha2()

Dim A, B, C, D As Integer

Dim S As Single

A = InputBox("Введите число А", "Окно ввода")

B = InputBox("Введите число В ", "Окно ввода")

C = InputBox("Введите число C", "Окно ввода")

D = InputBox("Введите число D", "Окно ввода")

If A * B > C * D Then S = (A + B + C + D) / 4 Else S = (A * B * C * D) ^ (1 / 4)

MsgBox "A = " & A & ", B = " & B & ", C = " & C & ", D = " & D & (Chr(10) & Chr(13)) & _

"Результат =" & S, _

vblnformation, "Окно вывода: " & Date

End Sub



ЗАДАНИЕ 3

Получить значения функции Y=F(x) с использованием цикла(do ..).

F(x)=cos (х+1/х-1) для х=1.5;1.6;….;2.5(Циклический алгоритм)


3.1. Блок-схема



3.2. Текст программы и результат

Sub zadanie3()

Dim X, Y As Single, S, s1

X = 1.5

Do While X <= 2.5

Y = Cos(X + 1 / X - 1)

Y = Format(Y, "###0.0#")

S = S & Str(Y) & ", "

s1 = s1 & Str(X) & ", "

X = X + 0.1

X = Format(X, "###0.0")

MsgBox "X = " & s1 & " " & (Chr(10) & Chr(13)) & _

"Y = " & S & " ", _

vblnformation, "Значения аргумента Х и функции Y "

Loop

End Sub




ЗАДАНИЕ 4

Дан массив F(10). Найти сумму и произведение его отрицательных элементов (Обработка массива)


4.1. Блок-схема



4.2. Текст программы и результат

Sub zadacha4()

Dim F(10) As Integer

Dim i, S, P As Integer, s1

S = 0

P = 1

s1 = ""

For i = 1 To 10

F(i) = InputBox("F[" + Str(i) + "] = ", "Ввод значений массива F ")

s1 = s1 & Str(F(i)) & "; "

If F(i) < 0 Then

S = S + F(i)

P = P * F(i)

End If

Next i

MsgBox " Массив F: " & s1 & " " & (Chr(10) & Chr(13)) & _

"Сумма отрицательных элементов = " & S & (Chr(10) & Chr(13)) & _

"Произведение отрицательных элементов = " & P, _

vblnformation, "Вывод результата "

End Sub



ЛИТЕРАТУРА

1. 
   Абрамов, С.А. MS Access для пользователя / С.А. Абрамов. – СПб.: «Новый Век», 2002. – 673с.
   
2. 
   Васильева, Н.И. Разработка баз данных: от теории к практике / Н.И. Васильева, Минск: «Народная асвета», 1999. - 571с.
   
3. 
   Голованова, М.Д. Технологии обработки экономической информации в Microsoft Access 2003 / М.Д. Голованова. – СПб.: Питер, 2006 – 817 с.
   
4. 
   Дейт, К. Введение в системы баз данных / К. Дейт. – М.: «Hаука», 1980. – 452с.
   
5. 
   Дроботун Н. В., Хватова Ф. Л., Ермина М. А. Информатика. Часть 2. -СПб.: СПГУТД, 2004.
   
6. 
   Дроботун Н. В., Хватова Ф. Л., Ермина М. А. Проектирование и управление базами данных: Метод. указания. -СПб.:СПГУТД, 2004.