Programming Taskbook


E-mail:

Пароль:

Регистрация пользователя   Восстановление пароля

English

ЮФУ

Электронный задачник по программированию

©  М. Э. Абрамян (Южный федеральный университет), 1998–2018

 

Решения | Visual Basic | Простое задание

PrevNext


Пример выполнения простого задания: Begin3

На данной странице приводится пошаговое описание процесса решения в системе Microsoft Visual Basic следующего простого учебного задания из группы Begin.

Begin3°. Даны стороны прямоугольника a и b. Найти его площадь S = ab и периметр P = 2(a + b).

Создание программы-заготовки и знакомство с заданием

Для создания проекта, содержащего заготовку для требуемого задания, следует воспользоваться программным модулем PT4Load. Для этого достаточно перейти в рабочий каталог задачника и с помощью ярлыка Load.lnk запустить программу-утилиту PT4Load.exe. При этом на экране появится окно модуля PT4Load, в котором следует указать имя нужного задания. Отметим, что в заголовке этого окна указывается имя той программной среды, для которой будет создана заготовка. Начиная с версии 4.14 задачника «традиционный» вариант языка Visual Basic можно использовать только для среды Visual Basic версии 5.0 и 6.0. Для этих сред заголовок окна PT4Load будет содержать текст [Microsoft Visual Basic 5] и [Microsoft Visual Basic 6] соответственно.

Созданный проект-заготовка будет состоять из нескольких файлов, но для решения задания нам потребуется только файл Begin3.bas. Именно этот файл будет загружен в редактор используемой программной среды. Приведем его содержимое:

Option Explicit
Sub Solve()
    Task "Begin3"

End Sub

Файл Begin3.bas содержит описание процедуры Solve, в которой вызывается процедура Task, инициализирующая задание Begin3. Решение задачи необходимо запрограммировать в процедуре Solve (хотя, разумеется, в решении могут использоваться другие процедуры и функции, описанные в данном проекте).

В файле Begin3.bas отсутствует описание процедуры Main, которая является стартовой при выполнении программы для VB5-6. Эта процедура описана в файле pt4main.bas, также созданном при генерации проекта-заготовки для данного задания. Именно в процедуре Main происходит вызов процедуры Solve, решающей задание. Поскольку содержимое файла pt4main не требует редактирования, данный файл не загружается в редактор программной среды. Однако он входит в проект, в чем можно убедиться, посмотрев на окно проекта (данное окно имеет заголовок «Project»).

Запустим программу, нажав клавишу [F5], чтобы увидеть на экране окно задачника с формулировкой задания и примером исходных данных. Начиная с версии 4.11, окно задачника может отображаться в двух режимах: с динамической компоновкой, при которой каждый раздел «подстраивается» под свое содержимое, и с фиксированной компоновкой, при которой каждый раздел имеет фиксированные размеры. В предыдущих версиях задачника был доступен только режим с фиксированной компоновкой. Режим с динамической компоновкой особенно удобен для заданий с большими формулировками и большими наборами данных. Ниже приведены оба режима окна для данного задания; вначале указан режим с динамической компоновкой (для переключения режимов предназначена клавиша [F4]).




Запуск нашей программы был признан ознакомительным (и поэтому правильность решения не анализировалась), так как в ходе ее выполнения не было выполнено ни одной операции ввода-вывода.

Ввод исходных данных

Приступая к решению задачи, надо прежде всего организовать ввод в программу исходных данных. В нашем случае исходными данными являются вещественные числа a и b, определяющие стороны прямоугольника (в области исходных данных эти числа выделены желтым цветом и снабжены комментариями).

При вводе исходных данных важно правильно указывать их тип, в противном случае задачник зафиксирует ошибку. Продемонстрируем это на примере нашей программы, организовав считывание исходных данные в переменные целого типа, используя процедуру GetN. Для этого закроем окно задачника (нажав кнопку «Выход», клавишу [Esc] или клавишу [F5]) и дополним текст процедуры Solve следующим образом:

Sub Solve()
    Task "Begin3"
    Dim a As Integer, b As Integer
    GetN a
    GetN b
End Sub

Повторно запустив программу, мы увидим, что исходные данные изменились. При каждом запуске генерируется новый набор исходных данных, поэтому для успешного решения задания необходимо запрограммировать алгоритм, правильно обрабатывающий любой допустимый набор исходных данных.

Поскольку мы попытались ввести исходные данные (т. е. продемонстрировали намерение выполнить задание), данный запуск программы уже не считается ознакомительным. Однако тип исходных данных был выбран нами неправильно, поэтому на информационной панели будет выведена следующая информация об ошибке (на фиолетовом фоне): «Неверно указан тип при вводе исходных данных. Для ввода 1-го элемента (вещественного типа) использована переменная целого типа»:




Следует обратить внимание на индикаторы, появившиеся в окне задачника (индикаторы были добавлены в окно задачника в версии 4.11). В окне с фиксированной компоновкой индикаторы имеют вид цветных вертикальных полос и размещаются по краям разделов с исходными и результирующими данными. В окне с динамической компоновкой для индикаторов отводится специальная панель, которая располагается под информационной панелью; в качестве индикаторов используются цветные горизонтальные полосы, а также цветные квадратные маркеры.

Полосы серого цвета показывают, какая часть исходных данных была введена в ходе выполнения задания и какая часть результатов была выведена. В нашем случае задачник зафиксировал ввод только одного элемента исходных данных (из двух имеющихся). Это объясняется тем, что уже при вводе первого элемента было обнаружено несоответствие типов, и поэтому оставшаяся часть решения не анализировалась.

Полосы и маркеры различных оттенков красного цвета определяют характер обнаруженной ошибки, а также указывают, к какой группе данных (исходных или результирующих) эта ошибка относится. В нашем случае ошибка несоответствия типа была выявлена для исходных данных, поэтому в окне с фиксированной компоновкой соответствующая вертикальная полоса (фиолетового цвета) была указана справа от раздела с исходными данными, а в окне с динамической компоновкой фиолетовым цветом был выделен заголовок раздела с исходными данными и, кроме того, на панели индикаторов в области «Ввод», появился фиолетовый маркер.

Для правильного ввода исходных данных в нашем случае надо использовать процедуру GetD, обеспечивающую ввод данных типа Double. Исправим соответствующим образом процедуру Solve:

Sub Solve()
    Task "Begin3"
    Dim a As Double, b As Double
    GetD a
    GetD b
End Sub

Теперь ввод данных выполнен правильно. Однако наша программа не выводит результатов. Начиная с версии 4.15, в данной ситуации выводится сообщение на светло-синем фоне: «Запуск с правильным вводом данных: все требуемые исходные данные введены, результаты не выведены». Светло-синяя индикация означает, что успешно пройден первый этап решения: ввод исходных данных. Заметим, что в предыдущих версиях задачника в аналогичной ситуации выводилось сообщение об ошибке на оранжевом фоне «Выведены не все результирующие данные. Количество выведенных данных: 0 (из 2)».

Вычисления и вывод полученных данных

Выполним необходимые вычисления и выведем результаты, используя процедуру PutD:

Sub Solve()
    Task "Begin3"
    Dim a As Double, b As Double
    GetD a
    GetD b
    Dim S As Double, P As Double
    S = a * b
    P = 2 * (a + b)
    PutD P
    PutD S
End Sub

После запуска программы мы можем убедиться, что найденные значения выведены в разделе результирующих данных. Но из-за того, что вначале мы вывели значение периметра P, а затем — значение площади S, решение по-прежнему признано неверным, а сообщение об ошибке имеет вид «Ошибочное решение». Подобное сообщение означает, что все исходные данные были введены, все результирующие данные выведены, но значения полученных результатов не совпадают с контрольными:




Индикаторы показывают, что были введены и выведены все требуемые данные. Обратившись к примеру верного решения, приведенному в окне задачника, мы видим, что площадь и периметр найдены верно и нарушен только порядок их вывода. В окне с динамической компоновкой пример верного решения выводится ниже раздела результатов; в окне с фиксированной компоновкой для просмотра верного решения надо перейти на соответствующую вкладку раздела результатов (для этого достаточно нажать клавишу [/] или клавиатурную комбинацию [Ctrl]+[Tab]).

Таким образом, важно не только найти правильные значения результирующих данных, но и вывести их в нужном порядке. Для того чтобы указать этот порядок, в разделе результатов используется поясняющий текст (см. приведенные выше рисунки окна задачника). Заметим, что исходные данные тоже важно вводить именно в том порядке, в котором они указаны в окне задачника. Общее правило здесь следующее: ввод и вывод данных производится по строкам (слева направо), а строки просматриваются сверху вниз. Иными словами, данные, отображаемые в окне задачника, вводятся и выводятся в том порядке, в котором читается обычный текст на русском языке.

Правильное решение и его тестирование

Исправим допущенную ошибку, поменяв местами два последних оператора в процедуре Solve:

PutD S
PutD P

После запуска исправленной программы на экране появится окно прогресса тестирования:

Данное окно отображается на экране, если программа успешно обработала хотя бы один набор исходных данных. Полоса прогресса показывает, сколько тестов было успешно пройдено к текущему моменту, а текст над полосой дублирует эту информацию и позволяет определить количество тестов, которое должна успешно пройти программа, чтобы задание считалось выполненным. Тестирование программы завершается в двух случаях: когда будет успешно пройдено требуемое число тестов или когда при прохождении очередного теста будет выявлена ошибка.

В нашем случае решение не содержит ошибок, поэтому после прохождения трех успешных тестов на экране появится окно задачника с сообщением «Задание выполнено!». Выполнение задания Begin3 завершено:




Возможность автоматического тестирования программы на нескольких наборах исходных данных была реализована в версии 4.13 задачника. В предыдущих версиях для тестирования на различных наборах данных программу требовалось запускать несколько раз; при этом на информационной панели выводилась информация о количестве успешно пройденных тестов. Возможность подобного «пошагового» тестирования сохранена и в версии 4.13; для этого надо дополнить имя задания в процедуре Task символом «!» (восклицательный знак).

С помощью модуля PT4Results можно просмотреть информацию о ходе выполнения задания (начиная с версии 4.11, этот модуль можно вызывать непосредственно из окна задачника; для этого достаточно нажать клавишу [F2] или щелкнуть мышью на метке с описанием этой клавиши, размещенной в правом верхнем углу окна задачника):

Begin3      b04/02 14:57 Ознакомительный запуск.
Begin3      b04/02 15:07 Неверно указан тип при вводе исходных данных.
Begin3      b04/02 15:09 Запуск с правильным вводом данных.
Begin3      b04/02 15:12 Ошибочное решение.
Begin3      b04/02 15:15 Задание выполнено!

Буква «b», указанная перед датой, означает, что задание выполнялось на языке Visual Basic.

Примечание. В использовании вспомогательных переменных S и P при выполнении задания нет необходимости, поскольку при выводе результатов можно указывать не только переменные, но и выражения. Учитывая это, можно получить более короткий вариант решения задания Begin3:

Sub Solve()
    Task "Begin3"
    Dim a As Double, b As Double
    GetD a
    GetD b
    PutD a * b
    PutD 2 * (a + b)
End Sub

PrevNext

 

Рейтинг@Mail.ru

Разработка сайта:
М. Э. Абрамян, В. Н. Брагилевский

Последнее обновление:
01.01.2018