1x04 - Körök közös pontja

Sub Gatyapupu()

    Dim kor1(0 To 2) As Double  'Az első kör adatait tároló 3 elemű tömb - az adatok: X, Y, sugár
    Dim kor2(0 To 2) As Double  'A második kör adatait tároló 3 elemű tömb - az adatok: X, Y, sugár

    kor1(0) = InputBox("Add meg az első kör X koordinátáját!")     'Adatbekérés: 1. kör X koordinátája
    kor1(1) = InputBox("Add meg az első kör Y koordinátáját!")     'Adatbekérés: 1. kör Y koordinátája
    kor1(2) = InputBox("Add meg az első kör sugarát!")       'Adatbekérés: 1. kör sugara

    kor2(0) = InputBox("Add meg az első kör X koordinátáját!")     'Adatbekérés: 2. kör X koordinátája
    kor2(1) = InputBox("Add meg az első kör Y koordinátáját!")     'Adatbekérés: 2. kör Y koordinátája
    kor2(2) = InputBox("Add meg az első kör sugarát!")       'Adatbekérés: 2. kör sugara

    x = (kor2(0) - kor1(0))         'Az x átfogó hossza a két pont X távolsága
    y = (kor2(1) - kor1(1))     'Az y átfogó hossza a két pont Y távolsága
    i = Sqr(x ^ 2 + y ^ 2)      'A befogót a kettő négyzetének összegéből vont négyzetgyök adja meg

    If i >= kor1(2) + kor2(2) Then           'Ha a befogó hosszabb, vagy egyenlő,...
        Debug.Print ("A két körnek nincs közös pontja.") '...akkor nincs közös pontjuk
    Else
        Debug.Print ("A két körnek van közös pontja.")   'Egyéb esetben viszont van
    End If

End Sub