Старые отчёты / ФЫР / информатика!!!!!!!!! / 2.14

МИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ

Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»

ОТЧЕТ

о выполненной лабораторной работе № 2

по дисциплине «Информатика»:

Структура «Развилка»

Вариант 14

Выполнил студент

Дневного отделения

Факультет ЭСУ

Группы

Санкт-Петербург

2004

Задание №1

1. Постановка задачи.

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

2. Определение состава входных и выходных данных. Входные данные: - число a - число b - x Выходные данные: - значение функции Q

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

1. Р

   0

   2

   5

   1

   Начало

   t=a*b/x

   a, b, x

   Конец

   

   x>-10 and <0

   

   нет

   да

   6

   Q

   8

   

   4

   9

   

   x>3

   

   нет

   да

   

   t

   

   t=a+x

   3

   

   7

   Q=t+sqr(a)

   азработка схемы алгоритма.

3 Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim a As Single, b As Single, x As Single, t As Single, Q As Single

a = Text1

b = Text2

x = Text3

If x > -10 And x < 0 Then

t = a + x

Else

If x > 3 Then

t = a * b / x

Else

t = InputBox("Введите значение t")

End If

End If

Q = t + Sqr(a)

MsgBox ("Q=" & Q)

End Sub 5 Отладочный пример.

Задание №2

1. Постановка задачи.

1. Словесное описание задачи. где c = q+1

2. Определение состава входных и выходных данных. Входные данные: - число d - число q Выходные данные: - значение функции Y

3. Математическое описание. c = q+1

1. Р

   0

   3

   4

   1

   Начало

   d, q

   Y=c^0.6+abs(d)

   Конец

   

   c>5

   

   нет

   да

   5

   Y

   6

   

   7

   

   Y=12*Tan(c)

   

   c=q+1

   

   2

   азработка схемы алгоритма.

3 Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim d As Single, q As Single, c As Single, Y As Single

d = Text1

q = Text2

c = q + 1

If c > 5 Then

Y = c ^ 0.6 + Abs(d)

Else

Y = 12 * Tan(c)

End If

MsgBox ("Y=" & Y)

End Sub

5 Отладочный пример.

9