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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 8

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

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

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

Группы

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

2004

Задание №1

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

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

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

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

1. Р

   0

   2

   3

   1

   Начало

   x

   y=x^3-3*x

   Конец

   

   x<=0

   

   нет

   да

   4

   y

   5

   

   6

   

   y=x^3+3*x

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

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

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

Dim x As Single, y As Single

x = Text1

If x <= 0 Then

y = x ^ 3 - 3 * x

MsgBox ("Y=" & y)

Else

y = x ^ 3 + 3 * x

MsgBox ("Y=" & y)

End If

End Sub

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

Задание №2

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

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

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

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

1. Р

   0

   2

   3

   5

   1

   Начало

   g=(L^2+1)^(1/3)

   L

   g=sqr(L^2+1)

   Конец

   

   L<1

   

   нет

   да

   g

   7

   

   4

   8

   

   L=1

   

   нет

   да

   

   6

   g=2.5/(L-7)

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

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

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

Dim L As Single, g As Single

L = Text1

If L < 1 Then

g = Sqr(L ^ 2 + 1)

MsgBox ("g=" & g)

Else

If L = 1 Then

g = (L ^ 2 + 1) ^ (1 / 3)

MsgBox ("g=" & g)

Else

g = 2.5 / (L - 7)

MsgBox ("g=" & g)

End If

End If

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

9