Задачи по Pascal. Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.

Автор cyber На чтение 2 мин.

Условие задачи : Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса (Язык Pascal)

Сложность : легкая .

Решение задачи :

Для начала продумаем наше решение. Сначала введем радиус, потом просто подставим в формулы:

Сначала формулы. Первая у нас это длина окружности :

Дальше площадь круга :

Ну и объема шара :

Для того чтобы решить задачу нам понадобятся следующие переменные :

Переменная R — для радиуса
Переменная dlOkr — для длины окружности
Переменная sqKrug — для площади круга
Переменная Vshara — для объема шара

Начнем мы с каркаса нашей программы :

var
    R, dlOkr, sqKrug, Vshara : real;
    
begin
    write('Введите радиус : '); readln(R);
end.

Тут мы объявили переменные, которые описаны выше, и попросили пользователя ввести радиус, теперь осталось подставить радиус в формулы и всё :

dlOkr := 2*3.14*R;
sqKrug := R*R*3.14;
Vshara := (4/3)*Power(R,3)*3.14;

Довольно всё просто. Функция power возводит число R в третью степень.

Теперь осталось только вывести результат :

writeln('Длина окружности : ', dlOkr);
writeln('Площадь круга : ', sqKrug);
writeln('Объем шара : ', Vshara);

Всё решение задачи Pascal :

var
    R, dlOkr, sqKrug, Vshara : real; // объявляем переменные
    
begin
    write('Введите радиус : '); readln(R); // вводим радиус
    
    dlOkr := 2*3.14*R; // считаем длину окружности
    sqKrug := R*R*3.14; // считаем площадь круга
    Vshara := (4/3)*Power(R,3)*3.14; // считаем объем шара
    
    writeln('Длина окружности : ', dlOkr:2:2); // выводим результат 
    writeln('Площадь круга : ', sqKrug:2:2); // выводим результат 
    writeln('Объем шара : ', Vshara:2:2); // выводим результат 
    
    readln; // чтобы программа не закрывалась
end.