Составить программу, которая по введенному номеру и величине радиуса вычисляла: 1 - длину окружности, 2 - площадь круга, 3 - объем шара.
Составить программу, которая по введенному номеру и величине радиуса вычисляла: 1 - длину окружности, 2 - площадь круга, 3 - объем шара.
Ответ(ы) на вопрос:
Гость
const
Pi=3.1416;
var
n:integer;
r:real;
begin
Write('Укажите вариант расчета и радиус: ');
Read(n,r);
case n of
1:Writeln('Длина окружности равна ',2*Pi*r);
2:Writeln('Пдощадь круга равна ',Pi*r*r);
3:Writeln('Объем шара равен ',4/3*Pi*r*r*r)
else Writeln('Вариант должет быть равен 1,2 или 3')
end
end.
Пример
Укажите вариант расчета и радиус: 3 11.7
Объем шара равен 6708.8365344
Не нашли ответ?
Похожие вопросы