Привести примеры Х, У, при которых программа неверно решает поставленную задачу - VB

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

На экзамене требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (х,у - действительные числа) и определяет принадлежность точки неограниченной заштрихованной области, включая ее границы.

                    Листинг программы
                
 
                        
                          
                    
Input x,y
If y>=0 Then
If x<=abs(y-2) Then
Print "Принадлежит"
Else
Print "Не принадлежит"
End If
End If
End Sub

Надо сделать следующие : 1) Привести примеры Х, У, при которых программа неверно решает поставленную задачу 2) Привести верный исправленный код программы Очень прошу помогите, я условие понимаю, а чет не работает(

Решение задачи: «Привести примеры Х, У, при которых программа неверно решает поставленную задачу»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = InputBox("  ", , 1)
y = InputBox("  ", , 1)
If y >= 0 Then
     If x <= Abs(y - 2) Then
         Print "Принадлежит"
     Else
         Print "Не принадлежит"
     End If
End If
End Sub

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

8 голосов , оценка 4.25 из 5

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

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

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