Составить Программу. Разветвляющиеся Алгоритмы

[esko]

Помогите пожалуйста составить программу:
Определить принадлежит ли некоторая точка М с произвольными координатами х,y закрашенной области.
Уравнение параболы y=2+2x-x^2

 

[lazybiz]

В чем проблемы, кэп!?

Добавлено: Нижняя граница: y=0
Правая: x=2
А левая и верхняя - это функция.
Так в чем проблема, кэп?

 

[lazybiz]

Если ты будешь целый день сидеть в теме и молчать, то тебе точно никто не поможет. Повторяю вопрос: что не получается?

 

[esko]

все сделал:mellow: спасибо)
меня не было тут со вчерашнего дня)

 

[lazybiz]

Открою тебе секрет. Есть такая ссылочка: link removed
Очень странно что кто-то из под твоего экаунта её весь день обновлял)

 

[esko]

открою и тебе секрет) я не закрываю нужные вкладки) а за компом не я один сижу :mellow:

 

[esko]

Извиняюсь, но у меня почему-то при вводе точки М(1;1) выдает не верное сообщение.

Private Sub Command1_Click()
Picture1.Cls
x = Val(Text1)
y = Val(Text2)
If ((y = 2 + 2 * x - x ^ 2) And (y >= 0) And (x <= 2)) Then Picture1.Print ("Принадлежит") Else Picture1.Print ("Не принадлежит");
End Sub

Что не так?

 

[rrrFer]

y = 2 + 2 * x - x ^ 2

попробуй '=' на '<' заменить

 

[esko]

y = 2 + 2 * x - x ^ 2

попробуй '=' на '<' заменить

ага) спасиба)

y <= 2 + 2 * x - x ^ 2