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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 12

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

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

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

Группы

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

2004

Задание №1

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

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

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

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

1. Р

   0

   1

   Начало

   d1=log(x)/(log(10)

   x

   

   x>2 and<=3

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

2

5

Конец

нет

да

6

d1, Q

8

4

9

x>4

нет

да

d1=0

d1=log(x)

3

Q=d1+sqr(x)

7

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

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

Dim x As Single, d1 As Single, Q As Single

x = Text1

If x > 2 And x <= 3 Then

d1 = Log(x)

Else

If x > 4 Then

d1 = Log(x) / Log(10)

Else

d1 = 0

End If

End If

Q = d1 + Sqr(x)

MsgBox ("При d1=" & d1 & " функция Q равна " & Q)

End Sub

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

Задание №2

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

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

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

3. Математическое описание. a – целое число

1. Р

   0

   2

   3

   1

   Начало

   x, a

   F=atn(x)

   Конец

   

   x>0

   

   нет

   да

   4

   x, F

   5

   

   6

   

   F=a*x

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

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

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

Dim x As Single, a As Integer, F As Single

x = Text1

a = Text2

If x > 0 Then

F = Atn(x)

Else

F = a * x

End If

MsgBox ("При x=" & x & " функция F равна " & F)

End Sub

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

9