Главная страница
Навигация по странице:

  • «Информационные технологии

  • Цель выполнения работы

  • Ход работы: 1. Постановка задачи

  • Входные данные

  • Выходные данные

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

  • Отчет по лабораторной работе 2 Структура Развилка


    Скачать 102.25 Kb.
    НазваниеОтчет по лабораторной работе 2 Структура Развилка
    Дата14.03.2022
    Размер102.25 Kb.
    Формат файлаdocx
    Имя файла2.docx
    ТипОтчет
    #396568

    ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
    Федеральное государственное бюджетное образовательное

    учреждение высшего образования

    «петербургский государственный

    университет путей сообщения ИМПЕРАТОРА АЛЕКСАНДРА I»

    Дисциплина «Информационные технологии» (Б1.О.12)


    ОТЧЕТ

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

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

    Вариант № 30

    Выполнила:

    студентка группы ПГБ-002-З

    Чаплыгина Алена
    Проверил:

    Кожевников Александр Иванович


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

    2020

    Цель выполнения работы: Изучить и сравнить особенности построения алгоритмов и разработки программ алгоритмических структур «Классическая развилка», «Модифицированная развилка», «Вложенная развилка» и «Развилка с одной ветвью».

    Ход работы:
    1. Постановка задачи

    Определить, не приводит ли суммирование двух целых чисел А и В к переполнению (т.е. к результату, большему чем заданная величина С). Если будет переполнение, то сообщить об этом; иначе вывести сумму этих чисел.
    Входные данные:

    a – первое слагаемое, переменная целого типа;

    b – второе слагаемое, переменная целого типа;

    c – граничное условие, переменная целого типа.
    Выходные данные:

    s – сумма чисел a и b, если a+b2. Математическая модель задачи

    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 (переполнение)


    написать администратору сайта