Beysik_lab_3
.docxАТ-701 Вариант 5 Лабораторная работа №2 М.В Вечер 23.10.2017
ЗАДАНИЕ К ЛАБОРАТОРНОЙ РАБОТЕ №2
1 “СТРУКТУРА РАЗВИЛКА”
ВАРИАНТ 5
1. 1. Словесное описание задачи:
В каждом варианте задания для вычисления значений функций необходимо определить требуемые входные и выходные данные, составить схемы алгоритмов и коды приложений. В первых примерах самостоятельно выбрать значение входных данных. Отладить коды приложений.
2. Математическое описание
где α=
y=
в точке x= , где постоянная π = 3,1415
При решении контрольных примеров переменной присвоить значение:
= 2,16; 2) =0,9; 3) = -1
Постановка задачи №1
1.1 Словесное описание задачи.
1.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные:
x – переменная вещественного типа
a – переменная вещественного типа
Выходные данные:
g– переменная вещественного типа
l– переменная вещественного типа
1.3 Разработка математической модели:
2
1
.4 Составление алгоритма решения задачи:
Начало
X,l,a,gl
gl
Конец
2
6
A≤0.5
нет
да
7
3
4
5
2.5 Листинг кода программы:
Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim g1 As String Dim t As Integer Dim a As Double g1 = "g1 = " t = TextBox1.Text a = Math.Sqrt(t) If a <= 0.5 Then TextBox2.Text = g1 & "sin(a)*g*2" ElseIf a > 0.5 Then TextBox2.Text = g1 & "x^4 + sqrt(x)" End If End Sub End Class
2.6 Выполнение проекта:
Постановка задачи №2
Словесное описание задачи
y=
в точке x= , где постоянная π = 3,1415
Описание постановки задачи
Состав входных и выходных данных:
Выходные данные:
Выходные данные:
х – переменная целого типа
у – переменная вещественного типа
х1 = "3. Результаты решения контрольных примеров на ПК" – текстового типа
х2 = "1. Значения данных для всех примеров: " – текстового типа
х3 = " – исходных постоянных: ": - текстового типа
х4 = " – исходных переменных: ": - текстового типа
х5 = " – искомая величина: " – текстового типа
х6 = " Учебная группа" – текстового типа
W1 = "учебная группа "– текстового типа
W2 = "имя и отчество "– текстового типа
Data = "дата" – текстового типа
Входные данные:
х – переменная целого типа
W1 = "учебная группа "– текстового типа
W2 = "имя отчество "– текстового типа
Data = "дата" – текстового типа
Входные данные:
х – переменная целого типа
W1 = "учебная группа "– текстового типа
W2 = "имя отчество "– текстового типа
Data = "дата" – текстового типа
Разработка математической модели
y=
Составление схемы алгоритма
1
Начало
Pi = 3.14, n
2
1
3
i, x
4
6
5
Д
n
i = n
w1, w2, Data
а
7
х1, х2, х3, х4, х5, х6
нет
Pi<xp7
8
9
Pi<x<7
нет
12
да да100
x
11
x
1300
14
x1, x2, x3, Pi, x, y
i= 1
Да
нет
1500
x4, x5, x6, x, y
i>1
1600
11
1
Да
i>1
нет
1700
W1, W2, Data
18
Конец
Программный код
Private Sub Command1_Click()
Rem Задание 4. Лабораторная работа №3. Структура РАЗВИЛКА
Dim n As Single, i As Single, j As Single, a As Single
Dim x As Single, y As Single
Dim W1 As String, W2 As String, W3 As String
Dim W4 As String, W5 As String
Dim x1 As String, x2 As String, x3 As String
Dim x4 As String, x5 As String, x6 As String, Data As String
Const pi As Single = 3.14
n = InputBox("Сколько решается контрольных примеров n = ")
1: i = InputBox("Укажите порядковый номер решаемого примера i = ")
x = InputBox("Введите значение x=")
If i = n Then
W1 = InputBox("Укажите учебную группу")
W2 = InputBox("Укажите Ф.И.О")
Data = InputBox("Укажите дату тремя парами арабских цифр ")
End If
x1 = " 3.Результаты решения контрольных примеров на ПК:": Print
x2 = " 1. Значение данных для всех примеров: "
x3 = " - исходных постоянных: ":
x4 = " - исходных переменных: ":
x5 = " - искомая величина: "
x6 = " Учебная группа "
j = i + 1
x = a^3 + pi
If x> 7 Then
y = (0.3*x*Tan(x))/(1-x^2)
Else
If pi < x< 7 Then
y = (x^x)+0.847^x+1
Else
y = x
End If
If i = 1 Then
Print Tab(6); x1: Print
Print Tab(6); x2
Print x3; "PI = "; pi: Print x4; " n = "; n
End If
Print Tab(6); Format(j, " #"); Format(i, " Значениеданных #");
Print " - м примере:"
Print x4;
Print " i =" &Format(i, "#") & " c =" & Format(C, "##")
Print x5;
Print " y =" & Format(y, "#0.0#")
If i< n Then GoTo 1:
Print ; x6; W1; Tab(48); W2
Print Data
End Sub