Определить принадлежность точек области - VB

Формулировка задачи:

Точка на плоскости описывается координатами (Х,У). Ввести координаты 5-7 точек и определить принадлежность точек области изображенной на рисунке. Результаты выдать с пояснениями. Триугольник x=1 ; x=-1 ; y=1 Мои попытки (вышел не триугольник а прямоугольник) Помогите поправить

                    Листинг программы
                
 
                        
                          
                    
cls
vanek748:
print"Введите количество точек!"
input n
a=1
if n<5 or n>7 then
print "К-во точек не соответствует условию"
goto vanek748
end if
dim x(n)
dim y(n)
for i=0 to n-1
print "Введите координаты " +a+"-й точки"
input x[i]
input y[i]
a=a+1
next i
for i=0 to n-1
if x[i]<=1 and x[i]>=-1 and y[i]<=1 and y[i]>=0 then
print "----------------------------------"
print "Точка с координатами " + "X=" +x[i]+ " , " + "Y="+y[i]+ " находиться в области"
else
print "----------------------------------"
print "X=" +x[i]+ " , " + "Y="+y[i]+" Вне области!"
end if
next i
print "----------------------------------"
end

Решение задачи: «Определить принадлежность точек области»

textual
                            Листинг программы 
                        
if y[i]>=0 and (abs(x[i])+y[i])<=1 then

Оцени полезность:

12 голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы