Федеральное государственное бюджетное образование учреждение высшего профессионального образования «Саратовский государственный технический университет имени Гагарина Ю.А.» Кафедра «Инженерных изысканий и информационных технологий в строительстве» Работа по теме: «Microsoft Office Power Point» Выполнил студент группы б4СТЗС-11 Мырзагалиев А.К.

Оглавление Задание 3 Задание 3 Задание 2 Задание 1 Задание 2 Задание 1 Microsoft Office Excel Алгоритмизация и программирование Задание 4

Private Sub CommandButton1_Click() x = Val(TextBox1.Text) y = Val(TextBox2.Text) If ((x - 2.5) ^ 2 + (y - 2.5) ^ 2 >= 2.25) And (x = 0) And (y = 0) Then Label3.Caption = Точка принадлежит заштрихованной области" Else Label3.Caption = Точка не принадлежит заштрихованной области " End If End Sub Private Sub CommandButton1_Click() x = Val(TextBox1.Text) y = Val(TextBox2.Text) If ((x - 2.5) ^ 2 + (y - 2.5) ^ 2 >= 2.25) And (x = 0) And (y = 0) Then Label3.Caption = Точка принадлежит заштрихованной области" Else Label3.Caption = Точка не принадлежит заштрихованной области " End If End Sub Программирование на языке Visual Basic Алгоритмизация и программирование Задание 1 Программирование алгоритмов разветвляющейся структуры. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами (x, y) заштрихованной области. начало «Точка не лежит в заштрихованной области» «Точка лежит в заштрихованной области» конец ((x - 2.5) ^ 2 + (y - 2.5) ^ 2 >= 2.25) And x = 0) And (y = 0) нетда Ввод x, y Вариант 0 Блок-схема начало «Точка не лежит в заштрихованной области» «Точка лежит в заштрихованной области» конец ((x - 2.5) ^ 2 + (y - 2.5) ^ 2 >= 2.25) And x = 0) And (y = 0) нетда Ввод x, y

Алгоритмизация и программирование Задание 2 Программирование алгоритмов циклической структуры с внутренним разветвлением Написать программу вычисления функции y = f(x). Заполнить таблицу значений x, y = f(x) при x принадлежит [a, b] с шагом h. Private Sub CommandButton1_Click() a = Val(TextBox1.Text) b = Val(TextBox2.Text) h = Val(TextBox3.Text) Label4.Caption = "" Label5.Caption = "" For x = a To b Step h If x < 5 Then f = Log(25 * Abs(Sin(x)) + x) Else f = 0.75 * x + Cos(Exp(0.1 * x)) End If Label4.Caption = Label4.Caption & Round(x, 2) & Chr(13) Label5.Caption = Label5.Caption & Round(f, 4) & Chr(13) Next x End Sub Вариант 7 : Программирование на языке Visual Basic конец f = Log(25 * Abs(Sin(x)) + x) f = 0.75 * x + Cos(Exp(0.1 * x)) Вывод x, f x

Алгоритмизация и программирование Задание 3 Программирование алгоритмов с итерационными циклами На интервале найти с точностью корни уравнения методом деления отрезка пополам Вариант 3 : конец конец начало Ввод a, b, eps c=(a+b)/2 Вывод c, (a-b) Вывод с abs(a-b)>eps b=c a=c Блок-схема 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 Программирование на языке Visual Basic f(a)*f(c)>0 нетда

Алгоритмизация и программирование Задание 4 Программирование алгоритмов с итерационными циклами, содержащими вложенные арифметические циклы. конец n=2*n Вывод S2 abs(S2-S1)>eps нетда Вычислить методом прямоугольников или трапеций (на выбор), где,,,, с точностью. Вариант 3 : 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 Программирование на языке Visual Basic Блок-схема Вывод n, S2 S2=S2+(b-a)/n*f(x) x=a..b, step (b-a)/n S2=0S1=S2S2=0n=10 Ввод a, b, eps начало

Microsoft Office Excel

Поверхность полученной области