Курсовая работа: Составление алгоритмов, реализованных в алгоритмическом языке Паскаль

Рассмотрим условия, при которых точка (x,y) может принадлежать заштрихованной области, для чего выделим 2 функции.

Область ограничена первой функцией: , осью абсцисс и осью ординат. Следовательно, координаты точки должны удовлетворять условию:

.

Также область ограничена второй функцией: , осью абсцисс и осью ординат.

Следовательно, координаты точки должны удовлетворять условию.

.

Оба эти условия могут быть записаны в виде логических выражений, истинность которых будет означать, что данная точка принадлежит заданной фигуре. Можно записать в терминах алгебры логики следующим образом:

Программа для указанного варианта имеет следующий вид:

Program Task3;

Uses

Crt;{Подключаеммодульграфики}

Var

x,y:real;{переменные, координаты заданной точки}

f1,f2,f:Boolean;{переменные, хранения значений функций}

Begin

ClrScr;{Очистка экрана}

Write('Введите значения X и Y: ');

ReadLn(x,y);{Ввод координат точки}

f1:=(x<=0)and(y>=0)and(Sqrt(x*x+y*y)<=4);{Ограничиваем функцию осью асцисс и осью ординат}

f2:=(x<=0)and(y<=0)and(Sqrt(x*x+y*y)<=6);

f:=f1 and f2;

If f then{проверка условия принадлежности области}

WriteLn('Заданная точка принадлежит заданной области')

else

WriteLn('Заданная точка не принадлежит заданной области');

ReadKey;