Составьте программу находящую площадь круга и вычисляющую 30% от площади круга, используя подпрограмму ФУНКЦИЯ. Язык - паскаль. пи =3.14
Составьте программу находящую площадь круга и вычисляющую 30% от площади круга, используя подпрограмму ФУНКЦИЯ. Язык - паскаль. пи =3.14
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
radius, area: real;
function CalculateAreaOfCircle(radius: real): real;
const
pi = 3.14;
begin
CalculateAreaOfCircle := pi * radius * radius;
end;
begin
write('Enter the radius of the circle: ');
readln(radius);
area := CalculateAreaOfCircle(radius);
writeln('Area of the circle: ', area:0:2);
writeln('30% of the area of the circle: ', 0.3 * area:0:2);
end.