Лабораторная 2

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

ФЕДЕРАЛЬНОЕ АГЕНТСВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Государственное бюджетное образовательное учреждение

высшего образования

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

ИМПЕРАТОРА АЛЕКСАНДРА 1»

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

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

ОТЧЕТ

о лабораторной работе №2

на тему:

«С Т Р У К Т У Р А Р А З В И Л К А»

Вариант 29

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

Факультета УПЛ-702

Шептунов Н.А. ________________

подпись, дата

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

2017

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

Если a > 4, то L принадлежит значению Lg a, если а <= 4, то L принадлежит значению a ^ (1/3) Входные данные: a

Выходные данные: L

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

Lg a , если a > 4

L=

a ^ (1/3) , если а <= 4

3. Разработка алгоритма

Начало

а

a > 4

L= a ^ (1/3)

L= Lg a

a , L

Конец

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

5. Код процедуры

Private Sub Command1_Click()

Dim L As Single, a As Double

a = InputBox ("Введите а", "Развилка")

If a > 4 Then

L = Log(a)

6. Else

7. L = a ^ (1 / 3)

End If

Print " При а = " & а; " L= " & L

6. Отладка программы

Задача 2.

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

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

x+1, если x < -1 Y= x^{^2}, если -1 =< x =< 0

arctg x, если x >= 1

3. Разработка алгоритма

Начало

x

X < -1

Y = x+1

-1=<x=<0

Y=x^{^2}

Y=arctg x

X Y

Конец

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

5. Код процедуры

Private Sub Command1_Click()

Dim x As Single, y As Single

x = InputBox("Введите x", "Развилка")

If x < -1 Then

y = x + 1

ElseIf x >= -1 And x <= 1 Then

y = x ^ 2

Else

y = atanx

End If

Print "При x=" & x, "y=" & y

End Sub

6.Откладка программы