Условие задачи : Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса (Язык 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.