Федеральное государственное бюджетное образование учреждение высшего профессионального образования «Саратовский государственный технический

Федеральное государственное бюджетное образование учреждение высшего
профессионального образования «Саратовский государственный технический
университет имени Гагарина Ю.А.»
Кафедра
«Инженерных изысканий и информационных технологий
в строительстве»
Работа по теме:
«Microsoft Office Power Point»
Выполнил студент группы б4СТЗС-11
Мырзагалиев А.К.
Оглавление
Алгоритмизация и
программирование
Microsoft Office
Excel
Задание 1
Задание 4
Задание 3
Алгоритмизация и программирование
Задание 1
Программирование алгоритмов разветвляющейся структуры.
Даны действительные числа x, y. Определить, принадлежит ли точка с координатами (x, y) заштрихованной
области.
Блок-схема
начало
Программирование на языке Visual Basic
Private Sub CommandButton1_Click()
Ввод x, y
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
If ((x - 2.5) ^ 2 + (y - 2.5) ^ 2 >= 2.25) And (x <= 5) And (x >= 0) And (y <= 5) And (y >= 0)
Then
Label3.Caption = нет
“Точка принадлежит заштрихованной области" да
((x - 2.5) ^ 2 + (y - 2.5)
Else
^ 2 >= 2.25) And x <=
Label3.Caption = “Точка не принадлежит
области "
5) And (x заштрихованной
>= 0) And (y
End If
<= 5) And (y >= 0)
End Sub
«Точка не лежит в
заштрихованной
области»
«Точканетлежит в
заштрихованной
области»
начало
Вариант №0
Ввод x, y
((x - 2.5) ^ 2 + (y - 2.5)
^ 2 >= 2.25) And x <=
5) And (x >= 0) And (y
<= 5) And (y >= 0)
«Точка не лежит в
заштрихованной
области»
да
«Точка лежит в
заштрихованной
области»
конец
конец
Блок-схема
Алгоритмизация и
программирование
Задание 2
начало
Программирование
алгоритмов циклической структуры
с внутренним разветвлением
Написать программу вычисления функции y = f(x). Заполнить
Ввод
a, b, h значений x, y = f(x) при x принадлежит [a, b] с
таблицу
шагом h.
ln( 25 sin( x)  x), при x  5;
Программирование на языке Visual Basic
Вариант №7: 
i=0..(b-a)/h
0.1 x
0.75 x  cos(e ), при x  5.
Private Sub CommandButton1_Click()
начало
x=a+i*(b-a)/h
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
Ввод a, b, h
нет
да
h = Val(TextBox3.Text)
x<3
Label4.Caption = ""
i=0..(b-a)/h
Label5.Caption = ""
x=a+i*(b-a)/h
For x = a To b Step h
f = Log(25 * Abs(Sin(x)) + x)
f = 0.75 * x + Cos(Exp(0.1 * x))
If x < 5 Then
нет
да
x<3
f = Log(25 * Abs(Sin(x)) + x)
Else
Вывод x, f
f = 0.75 * x + Cos(Exp(0.1 * x))
f = Log(25 * Abs(Sin(x)) + x)
f = 0.75 * x + Cos(Exp(0.1 * x))
End If
Label4.Caption = Label4.Caption & Round(x, 2) & Chr(13)
Вывод x, f
Label5.Caption = Label5.Caption & Round(f, 4) & Chr(13)
конец
Next x
End Sub
конец
Программирование алгоритмов с итерационными циклами
На интервале (a, b) найти с точностью   105 корни уравнения
методом деления отрезка пополам f ( x)  0
Блок-схема
Алгоритмизация и программирование
Задание 3
Вариант №3:
ln( x)  2  x  3
начало
Программирование на языке Visual Basic
Ввод a, b, eps
c=(a+b)/2
нет
f(a)*f(c)>0
b=c
да
a=c
Вывод c, (a-b)
abs(a-b)>eps
Вывод с
конец
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
eps = Val(TextBox3.Text)
Do
c = (a + b) / 2
If (Log(a) - 2 * a + 3) * (Log(c) - 2 * c + 3) > 0 Then
a=c
Else
b=c
End If
Label6.Caption = Label6.Caption & c & Chr(13)
Label7.Caption = Label7.Caption & (a - b) & Chr(13)
Loop While Abs(a - b) > eps
Label5.Caption = c
End Sub
Алгоритмизация и программирование
Задание 4
Программирование алгоритмов с итерационными циклами, содержащими вложенные арифметические
циклы.
b
Блок-схема
Вычислить S   f  x  dx методом прямоугольников
a
n
n1
h




 S  h   f xi  или трапеций  S   f x0   f xn   h   f  xi 
2




i 1
i 1
ba
(на выбор), где ,h 
, x0  a , x1  a  h ,  , xn  b с
n
точностью
  10 . Вариант №3: 0,7  x
5
x
Программирование на языке Visual Basic
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
eps = Val(TextBox3.Text)
n = 10
S2 = 0
Do
S1 = S2
S2 = 0
For x = a To b Step (b - a) / n
S2 = S2 + (b - a) / n * (0.7 ^ x - x ^ 2)
Next x
Label6.Caption = Label6.Caption & n & Chr(13)
Label7.Caption = Label7.Caption & S2 & Chr(13)
n=2*n
Loop While Abs(S2 - S1) > eps
Label5.Caption = S2
End Sub
2
начало
Ввод a, b, eps
n=10
S2=0
S1=S2
S2=0
x=a..b, step (b-a)/n
S2=S2+(b-a)/n*f(x)
Вывод n, S2
n=2*n
нет
abs(S2-S1)>eps
Вывод S2
конец
да
Microsoft Office Excel
Microsoft Office Excel
Microsoft Office Excel
Поверхность полученной области