3
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ Императора Александра 1»
Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»
Дисциплина «ИНФОРМАТИКА»
Отчёт
по лабораторной работе №3
«Структура развилка»
ВАРИАНТ 6
Выполнил студент Факультет: Группа: |
|
. |
Проверила старший преподаватель |
|
. |
Санкт-Петербург
Задача 1.
Постановка задачи.
Словесное описание задачи.
Вычислить значение функции:
y1=
ak2
+ bk ; y3
= a + b cosk , если
k
10
y3 = 16,7k + 1,02 , y1=0 , если k > 10 ,
где k = d – 3
Состав входных и выходных данных.
Входные данные:
a – переменная вещественного типа.
b – переменная вещественного типа.
d – переменная вещественного типа.
k – переменная вещественного типа.
Выходные данные:
y1 – переменная вещественного типа.
y2 - переменная вещественного типа.
Математическая модель.
y1= ak2 + bk ; y3 = a + b cosk , если k 10
y3 = 16,7k + 1,02 , y1=0 , если k > 10 ,
где k = d – 3
Схема алгоритма.
Начало
a, b, d
k= d-3
да
k
≤
10
нет
y1=ak^2 + bk
y1=0
y2=a+b*cos(k)
y2=16,7*k
y1
y2
конец
Код программы.
Private Sub CommandButton1_Click()
Dim a As Single, b As Single, d As Single, k As Single, y1 As Single, y2 As Single
a = InputBox ("Введите число целого типа a =")
b = InputBox ("Введите число целого типа b =")
d = InputBox ("Введите число целого типа d =")
k=d-3
If k <= 10 Then
y1=a*k^2+b*k
y2=a+b*Cos(k)
Else
y1=0
y2=16.7*k
End If
Debug.Print “y1=” & y1 & “y2=” & y2
End Sub
Откладка программы.
(Значения при a=8, b=8, d=8; при a=8, b=8, d=14.)
Задача 2.
Постановка задачи.
Словесное описание задачи.
В
ычислить
значение функции:
Состав входных и выходных данных.
Входные данные:
x – переменная вещественного типа.
Выходные данные:
L – переменная вещественного типа.
Математическая модель.
Схема алгоритма.
начало
х
да
L=-407.6*10^3+x^2-0.3
Х<0
Нет
да
L=-407.6*10^3+0
X=0
Нет
L=-407.6*10^3+x^2+0.3
L
конец
Код программы.
Private Sub CommandButton1_Click()
Dim x As Single, L As Single
x = InputBox ("Введите число целого типа x =")
If x<0 Then
L=-407.6*10^3+x^2-0.3
Else
If x=0 Then
L=-407.6*10^3+0
Else
L=-407.6*10^3+x^2+0.3
End If
End If
Debug.Print “L=” & L
End Sub
Откладка программы.
(Значения при х=45, х=0, х=-8)