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

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

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

Алгоритмизация и Программирование Задание 2 Программирование алгоритмов циклической структуры с внутренним разветвлением Написать программу вычисления функции y = f(x). Заполнить таблицу значений x, y = f(x) при x принадлежит [a, b] с шагом h. Программирование на языке Visual Basic 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 < 3 Then f = 2 * x ^ * x ^ * x + 3 Else f = x + Log(Abs(Cos(2 * x) - 1)) End If Label4. Caption = Label4. Caption & Round(x, 2) & Chr(13) Label5. Caption = Label5. Caption & Round(f, 4) & Chr(13) Next x End Sub Вариант 3 i=0..(b-a)/h начало Ввод a, b, h x=a+i*(b-a)/h x < 3 x > = 3 x + Log(Abs(Cos(2 * x) - 1)) Вывод x, f 2*x^3 - 7*x^2 + 5*x + 3

Алгоритмизация и Программирование Задание 3 Программирование алгоритмов с итерационными циклами На интервале (a;b) найти с точностью корни уравнения методом деления отрезка пополам Программирование на языке Visual Basic Private Sub CommandButton1_Click() a = Val(TextBox1.Text) b = Val(TextBox2.Text) eps = Val(TextBox3.Text) Do c = (a + b) / 2 If (a ^ ) * (c ^ ) > 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 Private Sub Label1_Click() End Sub Вариант 9: начало Ввод a, b, eps c=(a+b)/2 abs(a-b)>eps b=ca=c Вывод с f(a)*f(c)>0 Вывод c, (a-b) конец нет да

Алгоритмизация и Программирование Задание 4 Программирование алгоритмов с итерационными циклами, содержащими вложенные арифметические циклы Программирование на языке 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 Private Sub Label4_Click() End Sub Private Sub UserForm_Click() End Sub начало Ввод a, b, eps n=2*n S2=0 S1=S2 n=10 S2=0 x=a..b, step (b-a)/n abs(S2-S1)>eps конец Вывод S2 Вывод n, S2 S2=S2+(b-a)/n*f(x) нет да Вариант 3: 0.7 x -x 2

Microsoft Office Excel