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

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

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

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

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

ОТЧЕТ

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

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

Структура «Следование»

Вариант 19

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

электротехнического

Факультета

Группы НК-413

Прохоров Д.В.

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

2004

Задание №1

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

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

2. Входные данные - x

3. Выходные данные - значение функции y

1. Математическая модель

3. Р

   0

   25

   36

   1

   Начало

   x

   y=sin(x)

   Конец

   

   x<0

   

   нет

   да

   y

   5

   

   6

   

   46

   y=ln(1+x^2)

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

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

5 Составление программы Private Sub Command1_Click()

Dim x As Single, y As Single

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

If x < 0 Then

y = Sin(x)

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

Else

y = Log(1 + x ^ 2)

MsgBox "При x=" & x & " функция y=ln(1+x^2) равна " & y

End If

End Sub

6 Контрольный пример

Задание №2

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

1. Словесное описание задачи W₁ = y^x , W₂= , если y  0 W₁= 0 , ввести W₂ , если 0 < y < 2c W₁ = Lgy , W₂ = Lny , если y > 2c

2. Входные данные - x - y - c

3. Выходные данные - значение функции W1 - значение функции W2

1. Математическая модель

W₁ = y^x , W₂= , если y  0 W₁= 0 , ввести W₂ , если 0 < y < 2c W₁ = Lgy , W₂ = Lny , если y > 2c

3. Р

   0

   25

   36

   67

   1

   Начало

   W1=0

   x, y, c

   W1=y^x

   Конец

   

   y<=0

   

   нет

   да

   87

   W1, W2

   107

   

   55

   

   y>0 and y<2*c

   

   нет

   да

   

   W1=lg(y)

   

   46

   W2=sqr(y+1)_

   

   7

   W2

   

   97

   

   W2=ln(y)

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

116

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

5 Составление программы Private Sub Command1_Click()

Dim x As Single, y As Single, c As Single, W1 As Single, W2 As Single

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

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

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

If y <= 0 Then

W1 = y ^ x

W2 = Sqr(y + 1)

MsgBox "При y=" & y & " функция W1=y^x равна " & W1 & ", а функция W2=sqr(y+1) равна " & W2

Else

If y > 0 And y < 2 * c Then

W1 = 0

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

MsgBox "При y=" & y & " функция W1 равна " & W1 & ", а функция W2 равна " & W2

Else

W1 = Log(y) / Log(10)

W2 = Log(y)

MsgBox "При y=" & y & " функция W1=lg(y) равна " & W1 & ", а функция W2=ln(y) равна " & W2

End If

End If

End Sub

6 Контрольный пример

9