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

Автор вопроса

E esko Участник 05.12.2011

#1

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

 

За 0 Против

L lazybiz Участник 07.12.2011

#2

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

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

 

За 0 Против

L lazybiz Участник 07.12.2011

#3

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

 

За 0 Против

E esko Участник 07.12.2011

#4

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

 

За 0 Против

L lazybiz Участник 07.12.2011

#5

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

 

За 0 Против

E esko Участник 07.12.2011

#6

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

 

За 0 Против

E esko Участник 07.12.2011

#7

Извиняюсь, но у меня почему-то при вводе точки М(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

Что не так?

 

За 0 Против

R rrrFer Участник 08.12.2011

#8

Код:

y = 2 + 2 * x - x ^ 2

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

 

За 0 Против

E esko Участник 08.12.2011

#9

r04 сказал(а):

Код:

y = 2 + 2 * x - x ^ 2

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

Нажмите, чтобы раскрыть...

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

Код:

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