1 2 3 4 5 6 7 8 9 10 11 | 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