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
Похожие записи/страницы:
- Вычислить периметр треугольника и площади,если даны координаты вершин (x1;y1)(x2;y2)(x3;y3)- QBasic(Бейсик)
- Ввести с клавиатуры координаты точки А(x1;y1;z1), которая лежит на поверхности шара, и координаты точки…
- Составить программу определения типа треугольника (равносторонний, равнобедренный, разносторонний) по заданным…
- Составить программу определения принадлежности точек А (х1, у1), B (х2, у2), C (х3, у3) одной прямой- QBasic(Бейсик)
- Построить совокупность попарно связанных n точек с заданными координатами - QBasic(Бейсик)
- Подсчитать число точек, находящихся внутри круга радиусом R с центром в начале координат, координаты заданы…