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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 13

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

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

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

Группы

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

2004

Задание №1

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

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

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

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

1. Р

   0

   3

   7

   1

   Начало

   p=sin(a)

   d

   

   a<3

   

   нет

   да

   9

   

   6

   

   a=3

   

   нет

   да

   

   p=a^2+1

   p=0

   4

   

   a=d^(1/3)

   2

   

   t=0

   5

   

   8

   t

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

Конец

p, t

10

11

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

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

Dim d As Single, a As Single, p As Single, t As Single

d = Text1

a = d ^ (1 / 3)

If a < 3 Then

p = 0

t = 0

MsgBox ("p=" & p & " t=" & t)

Else

If a = 3 Then

p = Sin(a)

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

MsgBox ("p=" & c & " t=" & t)

Else

p = a ^ 2 + 1

MsgBox ("p=" & p)

End If

End If

End Sub

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

Задание №2

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

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

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

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

1. Р

   0

   2

   3

   1

   Начало

   x

   Y=x

   Конец

   

   x<0

   

   нет

   да

   4

   Y

   5

   

   6

   

   Y=x/2

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

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

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

Dim x As Single, Y As Single

x = Text1

If x < 0 Then

Y = x

MsgBox ("Y=" & Y)

Else

Y = x / 2

MsgBox ("Y=" & Y)

End If

End Sub

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

9