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

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

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

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

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

Кафедра «Информационные и вычислительные системы»

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

ОТЧЕТ

ПО ЛАБОРАТОРНОЙ РАБОТЕ №3

на тему:

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

Вариант 6

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

факультета УПЛ

группы ЛБ-913                                                      _____________    Кудрявцева Э.Е.

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

/номер зачетной книжки /

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

2020

Задание 1

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

 Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник.

Входные данные:  а - угол треугольника (вещественный тип)

                                b – угол треугольника (вещественный тип)

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

 [pic 1][pic 2]

3.Разработка алгоритма решения.

[pic 3][pic 4][pic 5][pic 6][pic 7][pic 8][pic 9][pic 10][pic 11][pic 12][pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19][pic 20][pic 21][pic 22]

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

[pic 23][pic 24][pic 25]

5.Код приложения.

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = InputBox("Введите угол a")

b = InputBox("Введите угол b")

c = a + b