Отчет по лабораторной работе 2 Структура Развилка
Скачать 102.25 Kb.
|
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА Федеральное государственное бюджетное образовательное учреждение высшего образования «петербургский государственный университет путей сообщения ИМПЕРАТОРА АЛЕКСАНДРА I» Дисциплина «Информационные технологии» (Б1.О.12) ОТЧЕТ по лабораторной работе 2 «Структура Развилка» Вариант № 30 Выполнила: студентка группы ПГБ-002-З Чаплыгина Алена Проверил: Кожевников Александр Иванович Санкт-Петербург 2020 Цель выполнения работы: Изучить и сравнить особенности построения алгоритмов и разработки программ алгоритмических структур «Классическая развилка», «Модифицированная развилка», «Вложенная развилка» и «Развилка с одной ветвью». Ход работы: 1. Постановка задачи Определить, не приводит ли суммирование двух целых чисел А и В к переполнению (т.е. к результату, большему чем заданная величина С). Если будет переполнение, то сообщить об этом; иначе вывести сумму этих чисел. Входные данные: a – первое слагаемое, переменная целого типа; b – второе слагаемое, переменная целого типа; c – граничное условие, переменная целого типа. Выходные данные: s – сумма чисел a и b, если a+b 3. Разработка алгоритма 4. Разработка визуальной части проекта 5. Код приложения Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer ' ввод исходных данных a = Val(txt_a) b = Val(txt_b) c = Val(txt_c) ' проверка условия, вывод результата If a + b <= c Then Label4.Caption = "Сумма чисел a и b равна " & Str(c) Else Label4.Caption = "Переполнение!" End If End Sub Private Sub Form_Activate() ' очистка надписи для вывода результата Label4.Caption = "" End Sub 6. Отладка приложения Ручной счет: 1) 1+2≤3 (переполнения нет; вывод значения 3); 2) 10+2>3 (переполнение) |