2018-08-02 22:04:49 +03:00
|
|
|
|
<html>
|
|
|
|
|
|
|
|
|
|
|
|
<head>
|
|
|
|
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
|
|
|
|
|
|
<title></title>
|
|
|
|
|
|
<link rel="StyleSheet" href="../../default.css">
|
|
|
|
|
|
</head>
|
|
|
|
|
|
<body>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<H1>Задание Begin3 из электронного задачника Programming Taskbook</H1>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<hr>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Задание Begin3 относится к самой первой группе задачника, посвященной
|
|
|
|
|
|
знакомству с вводом-выводом и оператором присваивания.
|
|
|
|
|
|
Приведем формулировку этого задания.
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</p>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p><b>Begin3</b>. Даны стороны
|
|
|
|
|
|
прямоугольника <code>a</code> и <code>b</code>.
|
|
|
|
|
|
Найти его площадь <code>S=a*b</code> и периметр <code>P=2*(a+b)</code>. </p>
|
|
|
|
|
|
<p>Далее по шагам опишем сценарий выполнения задания в системе
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<b>PascalABC.NET</b>.</p>
|
|
|
|
|
|
<hr>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p><font color="#0000FF"><b><i>Шаг 1.</i> </b></font>Для
|
|
|
|
|
|
выполнения заданий из электронного задачника подключим к программе модуль
|
|
|
|
|
|
<code>PT4</code> и вызовем в
|
|
|
|
|
|
начале программы процедуру <code>Task</code>, передав ей в
|
|
|
|
|
|
качестве параметра имя задания:</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<blockquote>
|
|
|
|
|
|
<code><b>uses</b> PT4;<br><b>begin</b><br> Task('Begin3');<br>
|
|
|
|
|
|
<br><b>end</b>.</code>
|
|
|
|
|
|
</blockquote>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Заметим, что эту программу не обязательно набирать вручную. Для автоматической генерации данной программы
|
|
|
|
|
|
выполним следующие действия. Нажмем кнопку
|
|
|
|
|
|
<img border="0" src="../PT4/gif/load.gif" width="16" height="17">. На экране появится окно
|
|
|
|
|
|
программного модуля <b>PT4Load</b>, позволяющего создать программу-заготовку для требуемого задания:
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</p>
|
|
|
|
|
|
<blockquote>
|
|
|
|
|
|
<img border="0" src="../PT4/gif/pt4load.png">
|
|
|
|
|
|
</blockquote>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Наберем в поле ввода «Задание»
|
|
|
|
|
|
текст <code>Begin3</code> и нажмем <b>Enter</b>.
|
|
|
|
|
|
После этого указанный выше текст сгенерируется автоматически и сохранится в
|
|
|
|
|
|
файле Begin3.pas в рабочем каталоге
|
|
|
|
|
|
системы <b>PascalABC.NET</b>
|
|
|
|
|
|
(по умолчанию это каталог C:\PABCWork.NET).</p>
|
|
|
|
|
|
<p>Запустим программу (нажав клавишу <b>F9</b>),
|
|
|
|
|
|
чтобы увидеть на экране текст задания:<a name="s1"></a></p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<blockquote>
|
|
|
|
|
|
<img border="0" src="gif/Begin3-1.png">
|
|
|
|
|
|
</blockquote>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Запуск нашей программы был признан <i>ознакомительным</i> (и поэтому правильность решения не анализировалась),
|
|
|
|
|
|
так как в ходе ее выполнения не было совершено ни одной операции ввода-вывода.
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</p>
|
|
|
|
|
|
<hr>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p><b><font color="#0000FF"><i>Шаг 2.</i> </font></b>Переменные
|
|
|
|
|
|
<code>a</code> и <code>b</code>
|
2025-11-11 22:04:03 +03:00
|
|
|
|
считываются из полей ввода, выделенных желтым цветом, с помощью обычной функции <code>
|
|
|
|
|
|
ReadInteger</code>, <code>ReadReal</code> ... Закроем окно задачника
|
2025-11-07 16:12:31 +03:00
|
|
|
|
и изменим программу следующим образом:
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</p>
|
|
|
|
|
|
<blockquote>
|
2025-11-11 22:04:03 +03:00
|
|
|
|
<code><b>uses</b> PT4;<br><b><br>begin</b><br> Task('Begin3');<br>
|
|
|
|
|
|
<b>var (</b>a,b) := ReadInteger2;<br>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<b>end</b>.</code>
|
|
|
|
|
|
</blockquote>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>После запуска этого вариант программы окно задачник примет вид:</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
|
|
|
|
|
|
<blockquote>
|
|
|
|
|
|
<img border="0" src="gif/Begin3-2.png">
|
|
|
|
|
|
</blockquote>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Как видим, исходные данные поменялись и появилось сообщение
|
|
|
|
|
|
об ошибке — переменные <code>a</code> и <code>b</code> должны быть объявлены как
|
|
|
|
|
|
вещественные. Если запуск программы не является ознакомительным, то в окне задачника
|
|
|
|
|
|
появляется раздел с полученными результатами
|
|
|
|
|
|
(в нашем случае он не содержит ни одного числа), а также панель индикаторов,
|
|
|
|
|
|
показывающих количество введенных и выведенных данных, а также число успешных тестовых запусков
|
|
|
|
|
|
программы.
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</p>
|
|
|
|
|
|
<hr>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p><font color="#0000FF"><b><i>Шаг 3.</i> </b></font>Исправим тип исходных данных:</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<blockquote>
|
2025-11-11 22:04:03 +03:00
|
|
|
|
<code><b>uses</b> PT4;<br><b><br>begin</b><br> Task('Begin3');<br>
|
|
|
|
|
|
<b>var (</b>a,b) := ReadReal2;<br>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<b>end</b>.</code>
|
|
|
|
|
|
</blockquote>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Вновь запустим программу:</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<blockquote>
|
|
|
|
|
|
<img border="0" src="gif/Begin3-3.png">
|
|
|
|
|
|
</blockquote>
|
|
|
|
|
|
|
|
|
|
|
|
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Электронный задачник предупреждает, что не выведен результат.
|
|
|
|
|
|
Обратите внимание на то, что для сообщений о различных видах ошибок используются
|
|
|
|
|
|
разные цвета (например, фиолетовый для ошибок, связанных с несоответствием типов,
|
|
|
|
|
|
и оранжевый для ошибок, связанных с вводом/выводом недостаточного числа данных).
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</p>
|
|
|
|
|
|
<hr>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p><font color="#0000FF"><b><i>Шаг 4.</i> </b></font>Проведем
|
|
|
|
|
|
вычисления и выведем результирующие данные, но в неверном порядке:</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<blockquote>
|
2025-11-11 22:04:03 +03:00
|
|
|
|
<code><b>uses</b> PT4;<br><b><br>begin</b><br> Task('Begin3');<br>
|
|
|
|
|
|
<b>var (</b>a,b) := ReadReal2;<br>
|
|
|
|
|
|
<b>var </b>S := a * b;<br>
|
|
|
|
|
|
<b>var </b>P := 2 * (a + b);<br>
|
|
|
|
|
|
Print(P, S)<br>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<b>end</b>.</code>
|
|
|
|
|
|
</blockquote>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Вновь запустим программу:</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<blockquote>
|
|
|
|
|
|
<img border="0" src="gif/Begin3-4.png">
|
|
|
|
|
|
</blockquote>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Мы видим, что все требуемые исходные данные введены, все результаты выведены,
|
|
|
|
|
|
однако полученные результаты имеют неверные значения.
|
|
|
|
|
|
В случае ошибочного решения окно задачника всегда содержит раздел с примером
|
|
|
|
|
|
верного решения, чтобы можно было сравнить полученные и правильные результаты.</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<hr>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p><font color="#0000FF"><b><i>Шаг 5.</i> </b></font>Исправим
|
|
|
|
|
|
ошибку:</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<blockquote>
|
2025-11-11 22:04:03 +03:00
|
|
|
|
<code><b>uses</b> PT4;<br><b><br>begin</b><br> Task('Begin3');<br>
|
|
|
|
|
|
<b>var (</b>a,b) := ReadReal2;<br>
|
|
|
|
|
|
<b>var </b>S := a * b;<br>
|
|
|
|
|
|
<b>var </b>P := 2 * (a + b);<br>
|
|
|
|
|
|
Print(S, P)<br>
|
|
|
|
|
|
<b>end</b>.</code>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</blockquote>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>После запуска программы увидим следующее окно:</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<blockquote>
|
|
|
|
|
|
<img border="0" src="gif/Begin3-5.png">
|
|
|
|
|
|
</blockquote>
|
|
|
|
|
|
|
|
|
|
|
|
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Если решение является правильным, то дополнительный раздел с примером правильного
|
|
|
|
|
|
решения в окне не выводится.</p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<hr>
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p><font color="#0000FF"><b><i>Шаг 6.</i> </b></font>Чтобы задание считалось выполненным, запустим
|
|
|
|
|
|
программу еще два раза. В результате в окне задачника появится сообщение «Задание
|
|
|
|
|
|
выполнено!»: </p>
|
2018-08-02 22:04:49 +03:00
|
|
|
|
<blockquote>
|
|
|
|
|
|
<img border="0" src="gif/Begin3-6.png">
|
|
|
|
|
|
</blockquote>
|
|
|
|
|
|
|
2025-11-07 16:12:31 +03:00
|
|
|
|
<p>Поздравляем! Задание <code>Begin3</code>
|
|
|
|
|
|
под руководством электронного задачника выполнено! Результаты выполнения заданий можно просмотреть,
|
|
|
|
|
|
щелкнув мышью на метке «Результаты (F2)», расположенной в правом верхнем
|
|
|
|
|
|
углу окна задачника, или нажав клавишу <b>F2</b>.
|
|
|
|
|
|
После закрытия окна задачника и возврата в среду PascalABC.NET результаты можно отобразить на экране,
|
|
|
|
|
|
нажав кнопку <img border="0" src="../PT4/gif/results.gif" width="16" height="17"> или нажав клавиатурную
|
|
|
|
|
|
комбинацию <b>Shift+Ctrl+R</b>.
|
2018-08-02 22:04:49 +03:00
|
|
|
|
</p>
|
|
|
|
|
|
<p> </p>
|
|
|
|
|
|
<p> </p>
|
|
|
|
|
|
|
|
|
|
|
|
</body>
|
|
|
|
|
|
|
|
|
|
|
|
</html>
|
