Определить, в каком квадранте плоскости или на оси находится заданная координатами x и y точка.

[Nod123]

Написать программу-Определить, в каком квадранте плоскости или на оси находится заданная координатами x и y точка.


Учебная практика ,а увы в программировании я не силён(


VBA или Delphi
Прошу прощения что не добавил в названии темы языки "Случайно нажал Enter( а как изменить не понимаю"

[Stilet]

в программировании я не силён(

А значит и код, если тебе дать, скомпилировать не сможешь. Да?

[Nod123]

Сообщение от Stilet

А значит и код, если тебе дать, скомпилировать не сможешь. Да?

Не понял к чему это, просто я не знаю как составить формулу решения этой задачи и алгоритм

[Аватар]

у-у формула, а просто из определения осей и квадрантов?

Если x=0 и y=0 тогда начало координат
Иначе Если x=0 тогда ось ординат
Иначе Если y=0 тогда ось абсцисс
Иначе Если x>0 и y>0 тогда 1-ый квадрант
Иначе Если y>0 тогда 2-ый квадрант
Иначе Если x<0 и y<0 тогда 3-ый квадрант
Иначе 4-ый квадрант

[Stilet]

я не знаю как составить формулу

Делфи

var x,y:double;
...
if (x>0) and (y>0) then write('1 квадрант') else
if (x<0) and (y>0) then write('2 квадрант') else
if (x<0) and (y<0) then write('3 квадрант') else
if (x>0) and (y<0) then write('4 квадрант') ;

Бейсик

dim x,y as double
...
if (x>0) and (y>0) then 
 print "1 квадрант"
end if
if (x<0) and (y>0) then 
 print "2 квадрант"
end if
if (x<0) and (y<0) then 
 print "3 квадрант"
end if
if (x>0) and (y<0) then 
 print "4 квадрант"
end if

Если не ошибаюсь.

[Nod123]

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim X, Y As Double

        X = TextBox1
        Y = TextBox2

        If (X > 0) And (Y > 0) Then
            Print("1 квадрант")
        End If
        If (X < 0) And (Y > 0) Then
            Print("2 квадрант")
        End If
        If (X < 0) And (Y < 0) Then
            Print("3 квадрант")
        End If
        If (X > 0) And (Y < 0) Then
            Print("4 квадрант")
        End If

Это пока сырой код поэтому прошу не придирайтесь))Проверяю работу TextBox но выдаёт ошибку

"\\edu.local\public\studenthomes\20 122100\my documents\visual studio 2012\Projects\WindowsApplication2\W indowsApplication2\Form1.vb(8) : error BC30311: Невозможно преобразовать значение типа "System.Windows.Forms.TextBox" в "Double"." Где я ошибся не могу понять

[p51x]

X, Y это объекты, а вам нужно то, что записано в них, т.е. Value

[Stilet]

X = CDbl(TextBox1.Text);

не?