Download
1 / 9
E N D
Федеральное государственное бюджетное образование учреждение высшего профессионального образования «Саратовский государственный технический университет имени Гагарина Ю.А.»Кафедра«Инженерных изысканий и информационных технологийв строительстве»Работа по теме:«Microsoft Office Power Point»Выполнил студент группы б4СТЗС-11Мырзагалиев А.К.
Оглавление Алгоритмизация и программирование Microsoft Office Excel Задание1 Задание1 Задание2 Задание3 Задание2 Задание4 Задание3
Блок-схема начало начало Программирование на языке Visual Basic 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 <= 5) And (x >= 0) And (y <= 5) And (y >= 0) Then Label3.Caption = “Точка принадлежит заштрихованной области" Else Label3.Caption = “Точка не принадлежит заштрихованной области " End If End Sub Ввод x, y Ввод x, y ((x - 2.5) ^ 2 + (y - 2.5) ^ 2 >= 2.25) And x <= 5) And (x >= 0) And (y <= 5) And (y >= 0) ((x - 2.5) ^ 2 + (y - 2.5) ^ 2 >= 2.25) And x <= 5) And (x >= 0) And (y <= 5) And (y >= 0) нет да Вариант №0 нет да Алгоритмизация и программирование «Точка не лежит в заштрихованной области» «Точка не лежит в заштрихованной области» «Точка лежит в заштрихованной области» «Точка лежит в заштрихованной области» Задание 1Программирование алгоритмов разветвляющейся структуры. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами (x, y) заштрихованной области. конец конец
Блок-схема Алгоритмизация и программирование Задание 2 Программирование алгоритмов циклической структуры с внутренним разветвлением Написать программу вычисления функции y = f(x). Заполнить таблицу значений x, y = f(x) при x принадлежит [a, b] с шагом h. начало начало Ввод a, b, h Ввод 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: i=0..(b-a)/h i=0..(b-a)/h Программирование на языке Visual Basic x=a+i*(b-a)/h x=a+i*(b-a)/h нет да нет x<3 да x<3 f = Log(25 * Abs(Sin(x)) + x) 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)) Вывод x, f Вывод x, f конец конец
Блок-схема Вариант №3: начало Программирование на языке Visual Basic Ввод 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 c=(a+b)/2 нет да f(a)*f(c)>0 b=c a=c Вывод c, (a-b) abs(a-b)>eps Алгоритмизация и программированиеЗадание 3 Программирование алгоритмов с итерационными циклами На интервале найти с точностью корни уравнения методом деления отрезка пополам Вывод с конец
Блок-схема начало Ввод a, b, eps Вычислить методом прямоугольников илитрапеций (на выбор), где , , , , с точностью . n=10 S2=0 Вариант №3: S1=S2 Программирование на языке 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 S2=0 x=a..b, step (b-a)/n S2=S2+(b-a)/n*f(x) Вывод n, S2 Алгоритмизация и программированиеЗадание 4 n=2*n нет да abs(S2-S1)>eps Программирование алгоритмов с итерационными циклами, содержащими вложенные арифметические циклы. Вывод S2 конец
Microsoft Office Excel Поверхность полученной области
