C1 (повышенный уровень, время – 30 мин)
End
Else begin
{ блок-12 }
end;
End
Else begin
{ блок-2 }
end;
· ключевая тема этого задания ЕГЭ – использование вложенных условных операторов, причем в тексте задания фрагмент программы обычно записан без отступов «лесенкой» или с неправильными отступами, например, так:
| if a = b then begin if a = c then c:=1; end else c:=0; | if a = b then if a = c then c:=1 else c:=0; |
Чтобы разобраться с работой этих программ, нужно определить, к какому из условных операторов if относится часть else; для этого используют такое правило: «любой else относится к ближайшему if».
Рассмотрим фрагмент слева, в нем перед else стоит end, поэтому для него нужно найти соответствующий ему begin; таким образом определяем, что else относится к первому (внешнему) условному оператору.
В правом фрагменте перед else нет end, поэтому он относится к ближайшему по тексту внутреннему условному оператору.
Блок-схемы для двух фрагментов показаны ниже, желтым цветом выделен «переехавший» блок:
· в условных операторах можно использовать сложные условия, которые строятся из простых отношений (<, <=, >, >=, =, <>) с помощью логических операций not («НЕ», отрицание), and («И», одновременное выполнение двух условий) и or («ИЛИ», выполнение хотя бы одного из двух условий)
· в сложном условии сначала выполняются действия в скобках, потом – not, затем – and, затем – or и, наконец, отношения;
операции равного уровня (приоритета) выполняются последовательно слева направо
· поскольку отношения в Паскале имеют низший приоритет, в сложном условии их приходится брать в скобки:
| if (a = b) or (b < c) and (c <> d) then begin ... end; |
· в приведенном выше примере сначала определяются результаты сравнения (выражения в скобках), затем выполняется операция and («И»), а затем – or («ИЛИ»)
Пример задания:
Требовалось написать программу, которая вводит с клавиатуры натуральное число N, не превышающее 109, и выводит сумму чётных цифр в десятичной записи этого числа или 0, если чётных цифр нет. Программист торопился и написал программу неправильно. Вот она:
var N: longint;
s: integer;
Begin
Readln(N); (1)
s := 0; (2)
while N > 1 do begin (3)
if N mod 2 = 0 then begin (4)
s := N mod 10; (5)
End; (6)
N := N div 10; (7)
End; (8)
Write(s); (9)
End.
Последовательно выполните следующее.
1. Напишите, что выведет эта программа при вводе числа 1984.
2. Приведите пример числа, при вводе которого программа выдаст верный ответ.
3. Найдите в программе все ошибки (их может быть одна или несколько).
Для каждой ошибки выпишите строку, в которой она допущена, и приведите эту же строку в исправленном виде.
Обратите внимание: вам нужно исправить приведённую программу, а не написать свою. Вы можете только заменять ошибочные строки, но не можете удалять строки или добавлять новые. Заменять следует только ошибочные строки: за исправления, внесённые в строки, не содержащие ошибок, баллы будут снижаться.
Решение:
1) начнем с того, что разберёмся в условии задачи: ограничение N < 109 введено для того, чтобы число поместилось в 4-байтовую переменную целого типа, для совместимости со всеми трансляторами Паскаля соответствующая переменная объявлена как longint
2) теперь разберём программу; строка (1) – это ввод исходного числа; очевидно, что переменная s – это результат, поскольку именно она выводится в строке (9)
3) в строке (2) переменная s обнуляется, это естественно при накоплении суммы
4) строки (3)-(8) – это цикл, который выполняется пока N > 1; на каждом шаге цикла N делится на 10 нацело, то есть, из десятичной записи числа отбрасывается последняя цифра (строка (7)); такой цикл используется для того, чтобы перебрать все цифры числа, но обычно ставят условие «N > 0», поскольку в приведенном варианте цикл остановится при N = 1; однако в данном случае это не влияет на результат, поскольку по условию нас интересуют только чётные цифры, а 1 – нечётная
5) в строке (4) проверяется чётность числа (и одновременно чётность его последней цифры!), если число чётное, в строке (5) в переменную s записывается остаток от деления числа на 10, то есть последняя цифра десятичной записи этого числа
6) таким образом, после выполнения цикла будет выведена последняя рассмотренная цифра, для которой сработает условие в строке (4)
7) поскольку цифры перебираются с конца, выводится первая чётная цифра в записи числа
8) начнём выполнять задание:
1. При вводе числа 1984 будет выведено число 8 – значение первой чётной цифры числа.
9) когда программа выдаст верный ответ? очевидно, что тогда, когда сумма чётных цифр и значение первой чётной цифры совпадают; это возможно, если в числе
· нет чётных цифр (сумма останется равной 0)
· все чётные цифры – нули
· одна чётная цифра
· одна ненулевая чётная цифра, а нули стоят после неё (нули не меняют суммы!)
2. Программа выдаст правильный ответ для N = 1981.
10) как исправить программы? очевидно, нужно, чтобы она считала сумму чётных цифр, то есть, получив очередную чётную цифру, нужно добавить её к «старому» значению переменно s, изменив строку (5) так:
s := s + N mod 10; (5)
3. Ошибка допущена в строке
s := N mod 10;
Эта строка должна в правильной программе выглядеть так
s := s + N mod 10;
Ещё пример задания:
Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она:
var x,y: real;
Begin
readln(x,y);
if y>=x then
if y>=0 then
if y<=2-x*x then
Write('принадлежит')
Else
Write('не принадлежит')
End.
Последовательно выполните следующее:
1. Перерисуйте и заполните таблицу, которая показывает, как работает программа при аргументах, принадлежащих различным областям (A, B, C, D, E, F и G). Точки, лежащие на границах областей, отдельно не рассматривать.
В столбцах условий укажите "да", если условие выполнится, "нет" если условие не выполнится, "—" (прочерк), если условие не будет проверяться, «не изв.», если программа ведет себя по-разному для разных значений, принадлежащих данной области. В столбце "Программа выведет" укажите, что программа выведет на экран. Если программа ничего не выводит, напишите "—" (прочерк). Если для разных значений, принадлежащих области, будут выведены разные тексты, напишите «не изв». В последнем столбце укажите "да" или "нет".
2. Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы) .
Решение:
11) начнем заполнять таблицу, выписывая истинность каждого из трёх условий
12) условие y>=x истинно выше прямой y=x, то есть в областях A, B, E, F
| Область | y>=x? | y>=0? | y<=2-x*x? | вывод | верно? |
| A | да | ||||
| B | да | ||||
| C | нет | ||||
| D | нет | ||||
| E | да | ||||
| F | да | ||||
| G | нет |
13) условие y>=0 истинно выше прямой y=0, то есть в областях A, E, G, однако это условие проверяется только тогда, когда первое условие,y>=x, истинно; поэтому для всех областей, где первое условие неверно (это области C, D, G), сразу в столбце второго условия ставим прочерк (условие не будет проверяться)
| Область | y>=x? | y>=0? | y<=2-x*x? | вывод | верно? |
| A | да | да | |||
| B | да | нет | |||
| C | нет | – | |||
| D | нет | – | |||
| E | да | да | |||
| F | да | нет | |||
| G | нет | – |
14) третье условие выполняется для областей «внутри» параболы, то есть для E, F, G, D; однако оно проверяется только тогда, когда первые два истинны (для А и Е), в остальных строках ставим прочерк:
| Область | y>=x? | y>=0? | y<=2-x*x? | вывод | верно? |
| A | да | да | нет | ||
| B | да | нет | – | ||
| C | нет | – | – | ||
| D | нет | – | – | ||
| E | да | да | да | ||
| F | да | нет | – | ||
| G | нет | – | – |
15) как следует из текста программы, она выведет что-то на экран только в том случае, когда выполняются первые два условия и программа выходит на третье: для области А будет выведено «не принадлежит», для области Е – «принадлежит», именно в этих двух случаях программа работает правильно, в остальных – нет:
| Область | y>=x? | y>=0? | y<=2-x*x? | вывод | верно? |
| A | да | да | нет | не принадлежит | да |
| B | да | нет | – | – | нет |
| C | нет | – | – | – | нет |
| D | нет | – | – | – | нет |
| E | да | да | да | принадлежит | да |
| F | да | нет | – | – | нет |
| G | нет | – | – | – | нет |
16) для того, чтобы доработать программу, проще всего составить одно сложное условие, описывающее всю заштрихованную область
17) в данном случае удобно представить данную область в виде объединения областей, первая из которых включает области E+G, а вторая – области E+F
18) область E+G соответствует условию (y>=0) and (y <=2-x*x)
19) область E+F соответствует условию (y>=x) and (y <=2-x*x)
20) объединение областей выполняется с помощью операции ИЛИ (or), так что полное условие принимает вид
(y>=0) and (y <=2-x*x) or (y>=x) and (y <=2-x*x)
поскольку операция И (and) имеет более высокий приоритет, чем ИЛИ (or), порядок выполнения операций тут правильный; в случае сомнений можно поставить дополнительные скобки:
((y>=0) and (y <=2-x*x)) or ((y>=x) and (y <=2-x*x))
21) поскольку в обоих условиях есть условие y <=2-x*x, запись можно немного сократить:
(y <=2-x*x) and ((y>=x) or (y>=0))
22) доработанная программа выглядит так:
var x,y: real;
Begin
readln(x,y);
if (y <=2-x*x) and ((y>=x) or (y>=0)) then
Write('принадлежит')
Else
Write('не принадлежит')
End.
Ещё пример задания:
Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x,y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она:
var x,y: real;
Begin
readln(x,y);
if y <= 1 then
if x >= 0 then
if y >= sin(x) then
Write('принадлежит')
End.
Последовательно выполните следующее: 1) Приведите пример таких чисел x, y, при которых программа неверно решает поставленную задачу. 2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы) .
Решение:
1) сначала лучше отложить в сторону программу и попытаться написать условие, которым должны отвечать точки, попавшие в выделенную область
2) заштрихованная область ограничена по координате 
, она находится
· справа от оси 
, что равносильно условию 
(с учетом границы здесь и далее получаем нестрогие неравенства)
· слева от первого максимума функции 
; из математики мы знаем, что эта функция достигает максимума при 
, поэтому получаем второе условие 
3) заштрихованная область ограничена с двух сторон по координате : она находится
· ниже линии 
, откуда следует третье условие 
· выше линии , что дает четвертое условие 
4) итак, точка находится в заданной области, если все эти четыре условия выполняются одновременно; можно предположить, что в программе нужно использовать четыре вложенных условных оператора или один условный оператор, в котором четыре простых условия (отношения , , и ) связаны с помощью логической операции and («И», одновременное выполнение всех условий)
5) теперь смотрим на программу: здесь три (а не четыре!) вложенных условных оператора с простыми отношениями, поэтому явно какое-то условие не учтено; легко найти, что «забыли» условие 
6) 
оператор write('принадлежит') помещен внутрь всех трех условных операторов, то есть, он выполнится тогда, когда три (а не четыре!) условия истинны;
7) отметим на рисунке область, где выполняются все нужные условия, кроме (красная зона);
8) для всех точек, которые находятся в «красной» зоне программа выдаст сообщение «принадлежит», хотя в самом деле эти точки не принадлежит заданной области; одна из таких точек имеет координаты 
9) теперь выясним, когда программа выдает сообщение «не принадлежит»
if y <= 1 then
if x >= 0 then
if y >= sin(x) then
Write('принадлежит')
Write('принадлежит')
Write('принадлежит')
Begin
readln(x,y);
if (x >= 0) and (x <= pi/2) and
(y <= 1) and (y >= sin(x)) then
Write('принадлежит')
else write('не принадлежит');
End.
здесь использовано сложное условие, в котором 4 отношения связаны операциями and («И», требуется одновременное выполнение всех условий)
| Возможные проблемы: · как правило, в этой задаче требуется использовать знания из курса математики (решение уравнений, графики функций, область допустимых значений, составление уравнений прямой по приведенному графику) · как показывает анализ опубликованных задач этого типа, нужно уметь, прежде всего, разбираться в серии вложенных условных операторов в полной и неполной форме · неправильная «лесенка» в записи сбивает с толку и подталкивает к неверному решению; чтобы разобраться в программе, лучше на черновике построить блок-схему алгоритма и правильную «лесенку» · чтобы не запутаться, к какому оператору относится else, используйте следующее правило: o если перед else нет слова end, нужно искать ближайший сверху условный оператор if o если перед else стоит end (конец блока), нужно искать парный ему begin (начало блока) и соответствующий условный оператор if ... then begin · проверяйте, все ли необходимые условия учтены в программе, это особенно актуально для немонотонных функций типа синуса или косинуса (немонотонные функции на некоторых участках возрастают при увеличении аргумента, а на некоторых – убывают); например, в этой задаче можно пропустить необходимость выполнения условия · не перепутайте, где нужно использовать операцию and («И», одновременное выполнение условий), а где –or («ИЛИ», хотя бы одно условие) · нужно внимательно проверять, всегда ли программа выдает сообщение, если заданное условие не выполняется · часто бывает полезно нарисовать блок-схему алгоритма, которая позволяет увидеть ход выполнения программы при всех возможных вариантах · проверяйте, включает ли заданная область свои границы; если включает – в отношениях будут нестрогие неравенства (<=, >=), если не включает – строгие (<, >) · при оценке работы можно (при абсолютно правильном решении) потерять баллы из-за синтаксических ошибок в программе (скобки, точки с запятой, неправильное написание оператора и т.п.); не забывайте, что o в сложном условии все простые условия (отношения) нужно брать в скобки, так как в Паскале отношения при вычислении логического выражения имеют самый низкий приоритет o перед else точка с запятой никогда не ставится o в конце программы после последнего end ставится точка |
| За что снимают баллы: · неправильно определены входные данные, при которых исходная программа работает неверно · исправлены не все ошибки в программе, например, легко «просмотреть», что необходимо еще условие · программа работает правильно в большем количестве случаев, чем исходная, но не для всех возможных исходных данных · перепутаны знаки < и >, логические операции or и and · неверно расставлены операторные скобки begin-end · синтаксические ошибки (знаки пунктуации – запятые, точки, точки с запятой; неверное написание ключевых слов); чтобы получить 3 балла, нужно при абсолютно правильном решении сделать не более одной синтаксической ошибки; на 2 балла – до двух ошибок, на 1 балл – до трех ошибок |
Задачи для тренировки[2]:
1) Требовалось написать программу, которая решает уравнение « 
» относительно x для любых чисел a и b, введенных с клавиатуры. Все числа считаются действительными. Программист торопился и написал программу неправильно:
var a,b,x: real;
Begin
readln(a,b,x);
if a = 0 then
if b = 0 then
Write ('любое число')
Else write ('нет решений')
Else
if b = 0 then
write('x = 0')
else write('x =',b/a,' или x =',-b/a);
End.
Последовательно выполните три задания: 1) Приведите пример таких чисел a, b, x, при которых программа неверно решает поставленную задачу. 2) Укажите, какая часть программы является лишней. 3) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
2) Требовалось написать программу, которая решает уравнение « 
» относительно x для любых чисел a и b, введенных с клавиатуры. Все числа считаются действительными. Программист торопился и написал программу неправильно:
var a, b, x: real;
Begin
readln(a,b,x);
if b = 0 then
write('x = 0')
Else
if a = 0 then
Write('нет решений')
Else
write('x =',-b/a);
End.
Последовательно выполните три задания: 1) Приведите пример таких чисел a, b, x, при которых программа неверно решает поставленную задачу. 2) Укажите, какая часть программы является лишней. 3) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
3) Требовалось написать программу, которая определяет, лежит ли точка А(х0,у0) внутри треугольной области, ограниченной осями координат и прямой 
(«внутри» понимается в строгом смысле, т.е. случай, когда точка А лежит на границе области, недопустим). В результате программа должна выводить соответствующее текстовое сообщение. Программист сделал в программе ошибки.
var x0, у0, у: real;
Begin
readln (x0, y0);
if (x0 < 2)then begin
if (x0 > 0)then begin
у := 2 – х0;
if (y0 < у) then
End
else writeln ('точка не лежит внутри области');
End
else writeln ('точка не лежит внутри области');
End.
Последовательно выполните задания:
1. Приведите пример таких чисел х0 и у0, при которых программа неверно решает поставленную задачу.
2. Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы (можно указать любой способ доработки исходной программы).
3. Укажите, как можно доработать программу, чтобы вместо вложенных операторов IF она содержала логическую операцию AND.
4) Требовалось написать программу, которая решает уравнение 
относительно х для действительных чисел а, Ь, с, введенных с клавиатуры, о которых заведомо известно, что а¹0, b¹0 и c¹0. Была написана следующая программа:
var a, b, с, D, xl, x2: real;
Begin
readln(a, b, с, xl, x2);
D := b*b - 4*a*c;
if D > 0
Then begin
xl := (-b + sqrt(D))/(2*a);
x2 := (-b - sqrt(D))/(2*a);
write('xl =', xl);
write('x2 =', x2); end
else writeln ('действительных корней нет');
End.
Известно, что программа написана с ошибками. Последовательно выполните три задания:
1. Приведите пример таких чисел а, Ь, с, при которых программа неверно решает поставленную задачу.
2. Укажите, какая часть программы является лишней.
3. Укажите, как, по-вашему мнению, нужно доработать программу, чтобы не было случаев ее неправильной работы.
5) Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное. Была написана следующая программа:
var a, b: integer;
Begin
readln(a, b);
a := a mod 2;
if a > 0 then b := b mod 2;
if b > 0 then
End.
Известно, что программа написана с ошибками. Последовательно выполните три задания:
1. приведите пример таких чисел а, b, при которых программа неверно решает поставленную задачу;
2. укажите, как, по вашему мнению, нужно доработать программу, чтобы не было случаев ее неправильной работы;
3. укажите, как можно доработать программу, чтобы она вместо вложенных операторовIF содержала логическую операцию OR.
6) Требовалось написать программу, которая определяет, можно ли построить треугольник из отрезков с длинами х, у, z. Программа должна выводить соответствующее текстовое сообщение. Программист сделал в программе ошибки.
var х, у, z: real;
Begin
readln (x, у, z);
if (x + y > z) then
Begin
if (x + z > y) then
if (y + z > x) then
writeln('треугольник построить можно');
End
else writeln('треугольник построить нельзя');
End
Последовательно выполните задания:
1. Приведите пример таких чисел х, у, z, при которых программа неверно решает поставленную задачу.
2. Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы (можно указать один из способов доработки исходной программы).
3. Укажите, как можно доработать программу, чтобы она вместо вложенных операторов IF содержала логическую операцию AND.
7) Требовалось написать программу, которая определяет, лежит ли точка А(х,у) внутри некоторого кольца («внутри» понимается в строгом смысле, т.е. случай, когда точка А лежит на границе кольца, недопустим). Центр кольца находится в начале координат. Для кольца заданы внутренний и внешний радиусы r1, r2; известно, что r1 отлично от r2, но неизвестно, r1 > r2 или r2 > r1. В том случае, когда точка А лежит внутри кольца, программа должна выводить соответствующее сообщение, в противном случае никакой выходной информации не выдается. Программист сделал в программе ошибки.
var x, у, rl,r2:real;
h: real;
Begin
readln (x, у, rl, r2);
h := sqrt (x*x + y*y);
if (h < rl) AND (h > r2) then
writeln ('точка А лежит внутри кольца');
End.
Последовательно выполните задания:
1. Приведите пример таких чисел х, у, rl, r2, при которых программа неверно решает поставленную задачу.
2. Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
3. Укажите, как можно доработать программу, чтобы она не содержала логических операций AND или OR.
Примечание: для обозначения расстояния от точки А до начала координат используется вспомогательная переменная h.
8) Требовалось написать программу, которая определяет, лежит ли точка А(х0,у0) внутри квадратной области, ограниченной прямыми, параллельными осям координат: у = -2, у = 2,
х = -2, х = 2 («внутри» понимается в строгом смысле, т.е случай, когда точка А лежит на границе области, недопустим).
В результате программа должна выводить соответствующее текстовое сообщение. Программист сделал в программе ошибки.
var x0, y0: real;
Begin
Readln (x0, y0)
if(x0 < 2)then
Begin
if(x0 > -2)then
if (y0 < 2) then
writeln('точка лежит внутри области');
End
else writeln('точка не лежит внутри области');
End.
Последовательно выполните задания:
1. Приведите пример таких чисел х0 и у0, при которых программа неверно решает поставленную задачу.
2. Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы (можно указать любой способ доработки исходной программы).
3. Укажите, как можно доработать программу, чтобы она вместо вложенных операторов IF содержала логическую операцию AND.
9) Рассматривается стандартная шахматная доска размером 8х8. Примем, что i – номер вертикали (может принимать значения от 1 до 8), j – номер горизонтали (также может принимать значения от 1 до 8). В левом нижнем углу, т.е. на поле i=1, j=1 (это поле черного цвета) стоит черный король. Напомним, что король может ходить на 1 клетку в любом направлении (по горизонтали, вертикали или диагонали). В правом нижнем углу, т.е. на поле i=8, j=1 (это поле белого цвета) стоит белый король. Введены обозначения: P(i,j) минимальное число ходов, за которое черный король может попасть на поле (i,j); V(i,j)минимальное число ходов, за которое белый король может попасть на поле (i,j).
Программист написал программу, в которой требовалось определить все такие поля (i,j), для которых P(i,j)=V(i,j), и выдать на экран соответствующие значения i,j (текст программы приведен ниже).
var i,j: integer;
Begin
writeln('искомые поля');
for j:=5 to 8 do
for i:=1 to 8 do
Begin
if (i=9-j) OR (i=j)
then writeln('i=',i, 'j=',j);
end;
End.
Последовательно ответьте на вопросы:
1. Выдаст ли программа, написанная программистом, поле, для которого i=4, j=5?
2. Указать все из перечисленных ниже полей, которые удовлетворяют постановке задачи, т.е. для таких полей должно быть выполнено P(i,j)=V(i,j):
(i=1, j=8), (i=2, j=8), (i=1, j=7), (i=5, j=5), (i=8, j=6)
3. Видно, что программист допустил ошибку в программе. Укажите, какую доработку программы нужно провести, чтобы она соответствовала постановке задачи (такая доработка может быть проведена неединственным образом – годится любой правильный вариант доработки).
10) Требовалось написать программу, которая решает неравенство 
относительно для всех ненулевых действительных чисел 
и 
, введенных с клавиатуры. Программист торопился и сделал в программе ошибки.
var a, b, x: real;
Begin
readln(a, b, x);
if b > 0 then
write('x > ', a, ' или x < 0')
Else
if a > 0 then
write('0 < x < ', a)
Else
write(a, ' < x < 0');
End.
Последовательно выполните три задания:
1. Приведите примеры таких чисел a, b, x, при которых программа неверно решает поставленную задачу.
2. Укажите, какая часть программы является лишней?
3. 
Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы (можно указать любой способ доработки исходной программы).
11) Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она:
var x,y: real;
Begin
readln(x,y);
if x*x+y*y >= 4 then
if x <= 2 then
if y <= x then
Write('принадлежит')
Else
Write('не принадлежит')
End.
Последовательно выполните следующее: 1) Приведите пример таких чисел x, y, при которых программа неверно решает поставленную задачу. 2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
12) Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она:
var x,y: real;
Begin
readln(x,y);
if y >= -1 then
if y <= sin(x) then
if y >= x-1 then
Write('принадлежит')
Else
Write('не принадлежит')
End.
Последовательно выполните следующее: 1) Приведите пример таких чисел x, y, при которых программа неверно решает поставленную задачу. 2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
13) 
Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она:
var x, y: real;
Begin
readln(x, y);
if x*x + y*y >= 4 then
if x >= –2 then
if y <= –x then
Write('принадлежит')
Else
Write('не принадлежит')
End.
Последовательно выполните следующее: 1) Приведите пример таких чисел x, y, при которых программа неверно решает поставленную задачу. 2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
14) Требовалось написать программу, которая вводит три целых числа в переменные a, b и c, а потом сортирует их так, чтобы в переменнойaоказалось наименьшее число, в переменной b – среднее число, а в переменной c – наибольшее число. Программист торопился и сделал в программе ошибки.
var a, b, c, x: integer;
Begin
read(a, b, c, x);
if a > b then begin x:=a; a:=b; b:=x; end;
if b > c then begin x:=b; b:=c; c:=x; end;
write(a,b,c);
End.
Последовательно выполните три задания:
1. Приведите примеры таких чисел a, b, с, при которых программа неверно решает поставленную задачу.
2. Укажите, какая часть программы является лишней?
3. Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы (можно указать любой способ доработки исходной программы).
15) 
Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она:
var x, y: real;
Begin
readln(x, y);
if y <= sin(x) then
if y <= 0.5 then
if y >= 0 then
Write('принадлежит')
Else
write('не принадлежит');
End.
Последовательно выполните следующее: 1) Приведите пример таких чисел x, y, при которых программа неверно решает поставленную задачу. 2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
16) Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу непра<