Отметим, что достоинства платформы .NET diff --git a/PABCNetHelp/ForEducation/CheckedTasks/checkedtasks1.html b/PABCNetHelp/ForEducation/CheckedTasks/checkedtasks1.html index 55680ff9b..e7a74eb51 100644 --- a/PABCNetHelp/ForEducation/CheckedTasks/checkedtasks1.html +++ b/PABCNetHelp/ForEducation/CheckedTasks/checkedtasks1.html @@ -58,13 +58,13 @@
Шаг 2. Переменные
a и b
-считываются из полей ввода, выделенных желтым цветом, с помощью обычной процедуры read. Закроем окно задачника
+считываются из полей ввода, выделенных желтым цветом, с помощью обычной функции
+ReadInteger, ReadReal ... Закроем окно задачника
и изменим программу следующим образом:
- uses PT4;
var a, b: integer;
- begin
Task('Begin3');
- read(a, b);
+ uses PT4;
begin
Task('Begin3');
+ var (a,b) := ReadInteger2;
end.
После запуска этого вариант программы окно задачник примет вид:
@@ -86,9 +86,8 @@Шаг 3. Исправим тип исходных данных:
- uses PT4;
var a, b: real;
- begin
Task('Begin3');
- read(a, b);
+ uses PT4;
begin
Task('Begin3');
+ var (a,b) := ReadReal2;
end.
Вновь запустим программу:
@@ -106,12 +105,11 @@Шаг 4. Проведем вычисления и выведем результирующие данные, но в неверном порядке:
- uses PT4;
var a, b, S, P: real;
- begin
Task('Begin3');
- read(a, b);
- S := a * b;
- P := 2 * (a + b);
- write(P, S)
+ uses PT4;
begin
Task('Begin3');
+ var (a,b) := ReadReal2;
+ var S := a * b;
+ var P := 2 * (a + b);
+ Print(P, S)
end.
Вновь запустим программу:
@@ -129,10 +127,12 @@Шаг 5. Исправим ошибку:
-uses PT4;+
var a, b, S, P: real;
begin
Task('Begin3');
read(a, b);
- S := a * b;
- P := 2 * (a + b);
- write(S, P)
end.uses PT4;
begin
Task('Begin3');
+ var (a,b) := ReadReal2;
+ var S := a * b;
+ var P := 2 * (a + b);
+ Print(S, P)
+ end.
После запуска программы увидим следующее окно:
diff --git a/PABCNetHelp/ForEducation/CheckedTasks/ctexam.html b/PABCNetHelp/ForEducation/CheckedTasks/ctexam.html index 81bccb8fe..c2d884308 100644 --- a/PABCNetHelp/ForEducation/CheckedTasks/ctexam.html +++ b/PABCNetHelp/ForEducation/CheckedTasks/ctexam.html @@ -37,13 +37,14 @@или клавиатурной комбинации Shift+Ctrl+L. Приведем текст созданной заготовки: -
+uses PT4Exam; -begin +
begin +
Task('ExamBegin2'); -end. -
end. +
После запуска программы на экране появится окно задачника:
@@ -93,33 +94,15 @@+Приступим к выполнению задания. В данном случае следует использовать алгоритм, не требующий применения массивов, поэтому опишем три простые переменные вещественного типа и введем в них исходные данные:
--uses PT4Exam; +
begin
Task('ExamBegin2'); - read(a, b, c); -end. -Мы воспользовались стандартной процедурой ввода
-read, введя все три исходных числа за один ее вызов. -Этого же результата мы могли бы добиться и с помощью процедурыreadln: --Заметим, что использование отдельных процедур
-readlnдля ввода каждого числа приведет к ошибочному результату: --В этом случае уже после ввода первого числа произойдет автоматический переход на следующую строку -с исходными данными. Поэтому оставшиеся в первой строке числа будут пропущены, а поскольку -во второй строке «ничего нет» (входной поток состоит из единственной строки), -будет выведено сообщение об ошибке «Input string was not in a correct format» -(«Входная строка имела неверный формат»). -
-Приведенный пример показывает, что при организации ввода данных в заданиях групп Exam необходимо учитывать особенности -стандартных процедур
readиreadln. +
+var + (a,b,c) := ReadReal3; +
end. +
Мы воспользовались стандартной функцией ввода ReadReal3, введя все три исходных числа за один ее вызов.
При запуске приведенного выше варианта программы вид окна не изменится, поскольку мы не вывели никаких данных. В заданиях групп Exam запуск программы считается ознакомительным до тех пор, пока программа не выведет @@ -132,22 +115,24 @@ readln(c);
Реализуем алгоритм нахождения минимального и максимального элемента. Для этого опишем еще две
переменные min и max типа real и добавим в конец программы следующие операторы:
if a < b then
-begin
+if a < b then
+
begin
+
min := a;
- max := b;
-end
-else
-begin
+
max := b;
+
end
+
else
+
begin
min := b;
- max := a;
-end;
-if c < min then
+
max := a;
+
end;
+
if c < min then
min := c
-else
- if c > max then
+
else
+ if c > max then
max := c;
-
Таким образом, для одновременного нахождения минимального и максимального из трех чисел требуется не более трех операций сравнения и не более трех операций присваивания.
@@ -161,8 +146,7 @@ readln(c);Вначале, в качестве примера, организуем вывод, не соответствующий условиям задачи. Для этого добавим в конец программы следующий оператор:
-writeln(min, max);
-
Println(min, max); Приведем вид окна задачника при запуске полученной программы:
@@ -189,16 +173,12 @@ readln(c);Для исправления первых двух ошибок достаточно изменить вывод следующим образом:
-writeln('MIN=', min);
-writeln('MAX=', max);
-Println('MIN=', min);
Println('MAX=', max); Однако в этом случае числа по-прежнему могут содержать неверное число дробных знаков. Для исправления этой последней ошибки проще всего использовать атрибуты форматирования, начинающиеся с символа «:» (двоеточие):
-writeln('MIN=', min:0:2);
-writeln('MAX=', max:0:2);
-Println('MIN=', min:0:2);
Println('MAX=', max:0:2); Первый атрибут определяет ширину поля вывода (если ширина равна 0, то используется минимально необходимое поле вывода). Наличие второго атрибута (допустимого только для вещественных чисел) означает, что число надо вывести в формате с фиксированной точкой, причем его значение равно количеству дробных знаков. diff --git a/PABCNetHelp/ForEducation/CheckedTasks/index.html b/PABCNetHelp/ForEducation/CheckedTasks/index.html index 4fa7c6717..6799aded7 100644 --- a/PABCNetHelp/ForEducation/CheckedTasks/index.html +++ b/PABCNetHelp/ForEducation/CheckedTasks/index.html @@ -49,47 +49,6 @@ Programming Taskbook