Question

Составьте программу находящую площадь круга и вычисляющую 30% от площади круга, используя подпрограмму ФУНКЦИЯ. Язык - паскаль. пи =3.14

Answer 1

function sq(x:real):real;

begin

sq:=pi*x*x;

end;

var r,s:real;

begin

write('R = ');

readln(r);

s:=sq(r);

writeln('30% от площади круга = ',0.3*s);

end.

Пример:

R = 2

30% от площади круга =  3.769911184307752e+00

Answer 2

Для написания программы на языке Паскаль, которая вычисляет площадь круга и 30% от этой площади, используя подпрограмму (функцию), можно следующим образом:

pascalCopy code
program CircleAreaCalculation;

const
  pi = 3.14;

function CalculateCircleArea(radius: real): real;
begin
  CalculateCircleArea := pi * radius * radius;
end;

function Calculate30PercentOfArea(area: real): real;
begin
  Calculate30PercentOfArea := 0.3 * area;
end;

var
  circleRadius, circleArea, thirtyPercent: real;

begin
  writeln('Введите радиус круга: ');
  readln(circleRadius);

  circleArea := CalculateCircleArea(circleRadius);
  writeln('Площадь круга: ', circleArea:0:2);

  thirtyPercent := Calculate30PercentOfArea(circleArea);
  writeln('30% от площади круга: ', thirtyPercent:0:2);
end.

Это простая программа на Паскале, которая позволит пользователю ввести радиус круга, вычислит его площадь и 30% от этой площади, используя две подпрограммы (функции) CalculateCircleArea и Calculate30PercentOfArea. Обратите внимание, что для вычисления 30% от площади круга, мы умножаем площадь на 0.3. Значение с плавающей точкой % здесь не используется.