2018-01-21
852ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ АВТОНОМНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ «КАЗАНСКИЙ (ПРИВОЛЖСКИЙ) ФЕДЕРАЛНЫЙ УНИВЕРСИТЕТ»
Кафедра
Информационных систем
Лабораторная работа №3по дисциплине
«Информатика»
«Организация циклов»
Вариант 5
Выполнил студент гр.№2171117:
Тихонов О.А.
Проверил:
Доцент Мингалеева Л.Б.
Набережные Челны
ЗАДАНИЯ
Задание 1, вариант 2:
Составить таблицу значений функции
Черный ящик:
a, b, nx, y
Блок-схема:
| x=x+h |
|
| y=-2 x=x+h |
y= 
x=x+h
|
| x=x+h |
|
| y=-1 x=x+h |
|
|
|
|
|
Псевдокод:
Начало алг (Задание 1) (a,b,n/x,y)
целn, i, a, b
вещx, y, h
вводa, b, n
вычис 
вычис 
для iот 1 доn
нц
если 
тогда 
иначе
если 
тогда 
иначе
если 
тогда 
иначе
если 
тогда 
иначе
если 
тогда 
иначе
вывод
конец если
конец если
конец если
конец если
конец если
вывод x, y
вычис 
кц
Конец
Программирование задачи наVBA:
|
|
|
Sub Macros1()
Dim n As Integer, i As Integer, a As Integer, b As Integer
Dim h As Single, x As Single, y As Single
a = Range("A2")
b = Range("b2")
n = Range("d2")
h = (b - a) / n
Range("C2").Value = h
x = a
Range("a4").Value = "#"
Range("b4").Value = " x"
Range("c4").Value = " y"
For i = 1 To n
Range("a5").Cells(i, 1) = i
If x >= -4 And x <= 10 Then
y = -1
Else
If x > -4 And x < -2 Then
y = x-3
Else
If x >= -2 And x <= 4 Then
y = -x/2
Else
If x > 4 And x < 6 Then
y = -2
Else
If x >= 6 And x <= 10 Then
y = sqrt((R^2)-(x^2))
Else
MsgBox ("Функция не сущестует в данной точке")
End If
End If
End If
End If
End If
Range("b5").Cells(i, 1) = x
Range("c5").Cells(i, 1) = y
x = x + h
Next i
EndSub
Результат решения в Excel:
Задание 3, вариант 5:
Составить таблицу значений функции 
:
Черный ящик:
a,b,εx, y
Блок-схема:
Псевдокод:
НачалоАлг (Задание 2) (a, b, ε / x, y)
ввод 
Пока 
нц
вычис 
вывод 
вычис 
кц
Конец
Программирование задачинаVBA:
Sub Macros1()
Dim x As Double, y As Double
Dim E As Single, s As Single, q As Single
Dim n As Integer
E = Range("b2").Value
x = Range("a2").Value
y = Log((1+x)/(1-x))
n = 1
i = 1
s = 0
Range("c2").Value = y
While Abs(y - s) >= E
q = x^n/n
s = s + 2*q
Range("a5").Cells(i, 1) = i
Range("b5").Cells(i, 1) = s
i = i + 1
n = n + 2
Wend
End Sub
Результат решения в Excel:
Вывод:
Мы узнали как использовать и организовывать циклы, также мы научились составлять таблицы значений для различных функций и писать программы на VBA, предназначенные для решения данных задач.
