На плоскости даны две окружности. Требуется проверить, пересекаются ли они. - QBasic

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

1) На квадратном клетчатом листе бумаги размером 6х6 клеток нарисовано несколько прямоугольников. Каждый прямоугольник состоит из целых клеток, различные прямоугольники не накладываются друг на друга и не соприкасаются. Написать программу, которая считает число этих прямоугольников Входные данные: Исходными данными является массив 6х6, в котором элемент А[i,j]=0, если клетка [i,j], принадлежит какому либо прямоугольнику, и А[i,j]=0, в противном случае. Выходные данные: единственное число- количество прямоугольников 2)На плоскости даны две окружности. Требуется проверить, пересекаются ли они. Входные данные: Две строки. на каждой из которых записана информация об одной окружности - координаты ее центра х и у (целые числа по модулю не превосходящие 5000) и радиус (целое число от 1 до 1000) Выходные данные: "YES" или "NO"

Решение задачи: «На плоскости даны две окружности. Требуется проверить, пересекаются ли они.»

textual
                            Листинг программы 
                        

                            INPUT x1, y1, r1
INPUT x2, y2, r2
r = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
IF r1 + r2 < r OR r1 + r < r2 OR r2 + r < r1 THEN PRINT "NO" ELSE PRINT "YES"
                        