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

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

Вычислить длины окружностей, площади кругов и объемы шаров для ряда заданных радиусов. Признаком окончания счета является нулевое значение радиуса. Используя оператор цикла Repeat.

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

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

var S:real; {площадь}
    C:real; {длинна}
    V:real; {объем}
    R:integer; {радиус}
begin
{организовываем цикл}
Repeat
 
writeln('Введите радиус'); readln(R);
 {формулы}
S:=Pi*sqr(R);
C:=2*Pi*R;
V:=4/3*Pi*R*R*R ;
 
writeln('Площадь круга = ',S:3:2); {3 - размер поля для цифры}
writeln('Длинна окружности = ',C:3:2); {2 - число цифр после запятой}
writeln('Объем шара = ',V:3:2);
 
until R=0;
 
end.

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

Создается переменная S типа real, которая будет использоваться для хранения площади круга.
Создается переменная C типа real, которая будет использоваться для хранения длины окружности.
Создается переменная V типа real, которая будет использоваться для хранения объема шара.
Создается переменная R типа integer, которая будет использоваться для хранения радиуса.
В цикле Repeat пользователю предлагается ввести радиус.
После ввода радиуса, значения переменной R сохраняются в переменные S, C и V с использованием соответствующих формул.
Выводится значение площади круга, длины окружности и объема шара.
Цикл повторяется до тех пор, пока пользователь не введет радиус равный 0, что означает конец ввода данных.
Программа завершается.