Составить подпрограмму нахождения объема шара, зная его радиус - QBasic

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

Задание 1

Составить подпрограмму нахождения объема шара, зная его радиус. С помощью данной подпрограммы вычислить объем для трех шаров.

Задание 2

Описать подпрограмму PowerA234(A), вычисляющую корень второй, третьей и четвертой степени из числа A.С помощью этой подпрограммы вычислить корни для трех данных чисел.

Решение задачи: «Составить подпрограмму нахождения объема шара, зная его радиус»

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

DECLARE SUB POWERA234 (A!)
CLS
DIM SHARED KA2
DIM SHARED KA3
DIM SHARED KA4
 
FOR I = 1 TO 3
INPUT A
CALL POWERA234(A)
PRINT "KOREN VTOROI STEPENI CHISLA"; A; ": "; KA2
PRINT "KOREN TRETEI STEPENI CHISLA"; A; ": "; KA3
PRINT "KOREN CHETVERTOI STEPENI CHISLA"; A; ": "; KA4
NEXT I
 
 
SUB POWERA234 (A)
KA2 = SQR(A)
KA3 = A ^ (1 / 3)
KA4 = A ^ (1 / 4)
END SUB

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

Объявлена подпрограмма POWERA234(A!)
Задана переменная A
Выполняется цикл от 1 до 3
В каждой итерации цикла происходит ввод значения переменной A
Вызывается подпрограмма POWERA234 с аргументом A
Выводится сообщение KOREN VTOROI STEPENI CHISLA и значение переменной A, затем значение переменной KA2
Выводится сообщение KOREN TRETEI STEPENI CHISLA и значение переменной A, затем значение переменной KA3
Выводится сообщение KOREN CHETVERTOI STEPENI CHISLA и значение переменной A, затем значение переменной KA4
Выполняется следующая итерация цикла
После завершения цикла выполняется завершающий блок кода
В подпрограмме POWERA234 присваивается значение переменной KA2 равное квадратному корню из аргумента A
Присваивается значение переменной KA3 равное аргументу A в степени 1/3
Присваивается значение переменной KA4 равное аргументу A в степени 1/4
Конец подпрограммы POWERA234