Var X, y: real;

begin

readln(x, y);

if x >= 0 then

if y <= 1 then

if (x*x + y*y <= 1) and (y >= x-1) then

write('принадлежит')

else

write('не принадлежит');

end.

Последовательно выполните следующее:

1) Приведите пример таких чисел x,y, при которых программа неверно решает поставленную задачу. Объясните, почему для указанных чисел программа неверно решает поставленную задачу.

2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).

1Далее при разборе задачи используется язык Паскаль, который наиболее распространен в школах России.

2Источники заданий:

1. Демонстрационные варианты ЕГЭ 2004-2011 гг.

2. Гусева И.Ю. ЕГЭ. Информатика: раздаточный материал тренировочных тестов. — СПб: Тригон, 2009.

3. Крылов С.С., Лещинер В.Р., Якушкин П.А. ЕГЭ-2010. Информатика. Универсальные материалы для подготовки учащихся / под ред. В.Р. Лещинера / ФИПИ. — М.: Интеллект-центр, 2010.

4. Абрамян М.Э., Михалкович С.С., Русанова Я.М., Чердынцева М.И. Информатика. ЕГЭ шаг за шагом. — М.: НИИ школьных технологий, 2010.

23 Http://kpolyakov.Narod.Ru