Beysik_lab_3

АТ-701 Вариант 5 Лабораторная работа №2 М.В Вечер 23.10.2017

ЗАДАНИЕ К ЛАБОРАТОРНОЙ РАБОТЕ №2

1 “СТРУКТУРА РАЗВИЛКА”

ВАРИАНТ 5

1. 1. Словесное описание задачи:

В каждом варианте задания для вычисления значений функций необходимо определить требуемые входные и выходные данные, составить схемы алгоритмов и коды приложений. В первых примерах самостоятельно выбрать значение входных данных. Отладить коды приложений.

2. Математическое описание

1. 

где α=

2. y=

в точке x= , где постоянная π = 3,1415

При решении контрольных примеров переменной присвоить значение:

1. = 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. Постановка задачи №2

1. Словесное описание задачи

y=

в точке x= , где постоянная π = 3,1415

2. Описание постановки задачи

Состав входных и выходных данных:

Выходные данные:

Выходные данные:

х – переменная целого типа

у – переменная вещественного типа

х1 = "3. Результаты решения контрольных примеров на ПК" – текстового типа

х2 = "1. Значения данных для всех примеров: " – текстового типа

х3 = " – исходных постоянных: ": - текстового типа

х4 = " – исходных переменных: ": - текстового типа

х5 = " – искомая величина: " – текстового типа

х6 = " Учебная группа" – текстового типа

W1 = "учебная группа "– текстового типа

W2 = "имя и отчество "– текстового типа

Data = "дата" – текстового типа

Входные данные:

х – переменная целого типа

W1 = "учебная группа "– текстового типа

W2 = "имя отчество "– текстового типа

Data = "дата" – текстового типа

Входные данные:

х – переменная целого типа

W1 = "учебная группа "– текстового типа

W2 = "имя отчество "– текстового типа

Data = "дата" – текстового типа

3. Разработка математической модели

1. y=

4. Составление схемы алгоритма

   1. 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

Конец

4. Программный код

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

10