{* Задача113 *}

REM basic

' Две прямые описываются уравнениями a1 x + b1 y + c1 = 0; a2 x + b2 y + c2 = 0. Напечатать координаты точки пересечения этих прямых, либо сообщить, что эти прямые совпадают, не пересекаются или вовсе не cуществуют.


CLS
INPUT "Введите количество тестов : ", NTest
For Test = 1 To NTest        
  PRINT "Тест"; Test;
  INPUT ". Введите a1, b1, c1 : ", a1, b1, c1
  INPUT "     Введите a2, b2, c2 : ", a2, b2, c2

  PRINT : PRINT "О т в е т : ";
  If (a1 = 0) And (b1 = 0) Or (a2 = 0) And (b2 = 0) Then
     PRINT "это не прямая (прямые)."
   Else
     If (a1*b2=a2*b1) And (a1*c2=a2*c1) Then
        PRINT "прямые совпадают."
       Else
        If a1*b2 = a2*b1 Then
             PRINT "прямые параллельны."
           Else x=(c1*b2 - c2*b1) / (b1*a2 - b2*a1)
                y=(c2*a1 - c1*a2) / (b1*a2 - b2*a1)
                PRINT "координаты точки пересечения: x="; x ; ", y="; y
        End If
     End If
  End If
  PRINT
Next Test
End