Составить программу для решения задачи: ввести с клавиатуры координаты точки А(x1;y1;z1),которая лежит на поверхности шара,и координаты точки В(x2;y2;z2),которая является центром шара. Найти объем шара — QBasic(Бейсик)

CLS
INPUT "Vvedite koordonati tochki  x1"; x1
INPUT "Vvedite koordonati tochki y1"; y1
INPUT "Vvedite koordonati tochki z1"; z1
INPUT "Vvedite koordonati tochki x2"; x2
INPUT "Vvedite koordonati tochki y2"; y2
INPUT "Vvedite koordonati tochki z2"; z2
R = SQR(((x2 - x1) ^ 2) + ((y2 - y1) ^ 2) + ((z2 - z1) ^ 2))
V = (4 / 3) * 3.14 * R ^ 3
PRINT V
END

Тестирование выполнено в программе QB64

Leave a Comment