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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 1

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

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

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

Группы

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

2004

Задание №1

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

1. Словесное описание задачи. печать значений l и p, если l < p

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

3. Математическое описание. печать значений l и p, если l < p

1. Р

   0

   2

   5

   1

   Начало

   y=l+p

   l, p

   Конец

   

   l<p

   

   нет

   да

   6

   y

   7

   

   4

   8

   

   l=p

   

   нет

   да

   

   y=4*p^2

   

   l, p

   7

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

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

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

Dim l As Single, p As Single, y As Single

l = Text1

p = Text2

If l < p Then

Print "l=" & l & " p=" & p

Else

If l = p Then

y = p + l

MsgBox ("y=" & y & " при l=p")

Else

y = 4 * p ^ 2

MsgBox ("y=" & y & " при l>p")

End If

End If

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

Задание №2

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

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

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

3. Математическое описание. m = x³

1. Р

   0

   3

   4

   1

   Начало

   x

   y=1-e^(-m)

   Конец

   

   m<=3

   

   нет

   да

   5

   y

   6

   

   7

   

   y=sqr(8)*log(abs(m))

   

   m=x^3

   

   2

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

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

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

Dim x As Single, m As Single, z As Single

Const e As Single = 2.71

x = Text1

m = x ^ 3

If m <= 3 Then

z = 1 - e ^ (-m)

MsgBox ("z=1-e^(-m)=" & z & " при m=" & m)

Else

z = Sqr(8) * Log(Abs(m))

MsgBox ("z=sqr(8)*ln(|m|)=" & z & " при m=" & m)

End If

End Sub

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

7