По координатам трёх вершин некоторого треугольника найдите площадь и периметр - QBasic

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

1)По координатам трёх вершин некоторого треугольника найдите площадь и периметр. 2)Вычислите значения функции z =(a+b+ci)/i,если а изменяется от 0 с шагом 1, b изменится от 5 с шагом 1,ci является элементом массива С(N). 3)Дана квадратная таблица A(N,N), элементами которой являются нули и единицы.Подсчитайте ,сколько в ней содержится квадратов , состоящих из единиц со стороной из двух элементов таблицы и развёрнутых по отношению к таблице на 45 градусов.

Решение задачи: «По координатам трёх вершин некоторого треугольника найдите площадь и периметр»

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

CLS
INPUT "x (1 vershini)"; x1
INPUT "y (1 vershini)"; y1
INPUT "x (2 vershini)"; x2
INPUT "y (2 vershini)"; y2
INPUT "x (3 vershini)"; x3
INPUT "y (3 vershini)"; y3
a = SQR((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
b = SQR((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
c = SQR((x1 - x3) ^ 2 + (y1 - y3) ^ 2)
p = (a + b + c) / 2
s = SQR(p * (p - a) * (p - b) * (p - c))
PRINT "S:"; s
PRINT "P:"; p * 2

Объяснение кода листинга программы

Вот что делает этот код:

Запрашивает у пользователя координаты вершин треугольника (x1,y1), (x2,y2), (x3,y3).
Вычисляет длины сторон треугольника по формуле: a = SQR((x2 - x1) ^ 2 + (y2 - y1) ^ 2).
Вычисляет полупериметр треугольника по формуле: p = (a + b + c) / 2.
Вычисляет площадь треугольника по формуле Герона: s = SQR(p (p - a) (p - b) * (p - c)).
Выводит на экран площадь треугольника и двойную длину его периметра.