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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 4

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

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

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

Группы

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

2004

Задание №1

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

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

2. Определение состава входных и выходных данных. Входные данные: - x - y Выходные данные: - значение функции z (x, y)

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

1. Р

   0

   2

   5

   1

   Начало

   x, y

   x, y

   Конец

   

   xy<1

   

   нет

   да

   6

   y

   7

   

   4

   8

   

   xy=1

   

   нет

   да

   

   z=3.14+atn(x)

   

   z=x+y/(x-y)

   3

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

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

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

Dim x As Single, y As Single, z As Single

x = Text1

y = Text2

If x * y < 1 Then

z = x + y / (x - y)

MsgBox ("Так как xy<1, то функция z=x+y/(x-y) равна " & z)

Else

If x * y = 1 Then

MsgBox ("Так как xy=1, то x=" & x & " y=" & y)

Else

z = 3.14 + Atn(x)

MsgBox ("Так как xy>1, то функция z=3,14+arctg(x) равна " & z)

End If

End If

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

Задание №2

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

1. Словесное описание задачи. где d = c+3,25

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

3. Математическое описание. d = c+3,25

1. Р

   0

   3

   5

   1

   Начало

   c

   y=c+r

   Конец

   

   d<=0

   

   нет

   да

   6

   y

   7

   

   8

   

   y=1.5*C^2+3.1

   

   d=c+3.25

   

   2

   

   r

   4

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

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

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

Dim c As Single, d As Single, r As Single, y As Single

c = Text1

d = c + 3.25

If d <= 0 Then

r = InputBox("Введите r")

y = c + r

MsgBox ("Так как d<=0, то функция y=c+r равна " & y)

Else

y = 1.5 * c ^ 2 + 3.1

MsgBox ("Так как d>0, то функция y=1,5C^2+3,1 равна " & y)

End If

End Sub

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

9