Варианты индивидуальных заданий

1. 2.

3. 4.

5. 6.

7. 8.

9. 10.

11. 12.

13. 14.

15. 16.

17. 18.

19. 20.

21. 22.

23. 24.

25. 26.

27. 28.

29. 30.

31. 32.

33. 34.

35. 36.

37. 38.

39. 40.

41. 42.

43. 44.

45. 46.

47. 48.

49. 50.

Пример схемы алгоритма и текст программы определения местоположения точки на плоскости для варианта задания вида:

Математическая модель (условия принадлежности точек выделенным областям)

- условие 1 (принадлежность области M1):

x > 1 {правее линии x = 1}

x < 2 {левее линии x = 2}

y > 1 {выше линии y = 1}

y < 2 {ниже линии y = 2}

(x – 1)² + (y – 1)² > 1 {вне правой верхней окружности}

- условие 2 (принадлежность области M2):

(x + 1)² + (y – 1)² < 1 {внутри левой верхней окружности}

y < x + 2 {ниже линии y = x + 2}

y > 1 {выше линии y = 1}

- условие 3 (принадлежность области M3):

x² + y² > 1 {вне центральной окружности}

(x + 1)² + (y + 1)² < 1 {внутри левой нижней окружности}

y > -1 {выше линии y = -1}

y > -x - 2 {выше линии y = -x - 2}

- условие 4 (принадлежность области M4):

y < 0 {ниже оси x}

(x – 1)² + (y + 1)² > 1 {вне правой нижней окружности}

(x + 1)² + (y + 1)² > 1 {вне левой нижней окружности}

x² + y² < 1 {внутри центральной окружности}

- условие 5 (принадлежность области M5):

(x – 1)² + (y + 1)² > 1 {вне правой нижней окружности}

(x – 1)² + (y – 1)² > 1 {вне правой верхней окружности}

x < 2 {левее линии x = 2}

x > 1 {правее линии x = 1}

y < -x + 2 {ниже линии y = -x + 2}

y > -1 {выше линии y = -1}

Схема алгоритма решения

Начало

Ввод

x, y

x=0 и y=0

да нет

Вывод

(.) в НК

усл. 1

да нет

Вывод

(.) в М1

усл. 2

да нет

усл. 3

Вывод

(.) в М2

да нет

усл. 4

Вывод

(.) в М3

да нет

усл. 5

Вывод

(.) в М4

да нет

Вывод

(.) в М5

Вывод

вне зон

Конец

Текст программы

Program Tochka;

{Определение местоположения точки на плоскости.

Входные данные: x, y - координаты точки

Выходные данные: s - сообщение}

Var x, y: Real;

s: String;

Begin

{Ввод исходных данных}

Write('Введите координаты точки x и y: ');

ReadLn(x, y);

{Анализ координат}

If (x = 0) And (y = 0)

Then s:= ' в начале координат'

Else If(((x-1)*(x-1)+(y-1)*(y-1))>1)AND(x>1)AND(x<2)AND(y>1) AND(y<2) {Область М1?} Then s:= ' в области М1'

Else If(y>1)AND(y<x+2)AND(((x+1)*(x+1)+(y-1)*(y-1))<1) {Область М2?}

Then s:= ' в области М2'

Else If(x*x+y*y>1)AND(((x+1)*(x+1)+(y+1)*(y+1))<1)AND(y>-1)AND(y>-x-2)

{Область М3?}

Then s:= ' в области М3'

Else If(y<0)AND(((x-1)*(x-1)+(y+1)*(y+1))>1)AND(x*x+y*y<1)AND

(((x+1)*(x+1)+(y+1)*(y+1))>1) {Область М4?}

Then s:= ' в области М4'

Else If(((x-1)*(x-1)+(y+1)*(y+1))>1)AND(x>1)AND(x<2)AND(y>-1)

AND(y<-x+2)AND(((x-1)*(x-1)+(y-1)*(y-1))>1) {Область М5?}

Then s:= ' в области М5'

Else s:= ' вне всех обозначенных областей';

{Вывод сообщения}

WriteLn('Положение точки:', s);

ReadLn;

End.