1_SEMESTR_1 / Материалы к сессии (лектор Бобкова В.А.) / Учебник по информатике (курс лекций) / 6. Основы программирования на Паскале / 6.8.2. Задача 2

Программа

Примеры расчета

program zadacha_2;

var

x, y: real; {координаты точки};

begin

writeln (‘Введите координаты точки:’);

write (‘x=’); readln (x);

write (‘y=’); readln (y);

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

then writeln (‘Точка принадлежит области.’)

else writeln (‘Точка не принадлежит области.’);

readln;

end.

Пример 1

Введите координаты точки:

x=0.1

y=0.5

Точка принадлежит области.

Пример 2

Введите координаты точки:

x=-2

y=5

Точка не принадлежит области.

.