Question

Составьте программу вычисляющую площадь круга и вычисляющую 30% от площади круга, используя подпрограмму ПРОЦЕДУРА. Язык - паскаль. пи =3.14

Answer 1

begin

 var r := ReadReal();

 var S: Action2<real, real> :=  

   (percent, radius)-> Println(percent * Round(Pi, 2) * radius ** 2);

 S(1, r);

 S(0.3, r);

end.

Answer 2

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

pascalCopy code
program CalculateCircleArea;

const
  pi = 3.14;

var
  radius, circleArea, thirtyPercentArea: real;

// Процедура для вычисления площади круга
procedure CalculateAreaOfCircle(r: real; var area: real);
begin
  area := pi * r * r;
end;

// Процедура для вычисления 30% от площади круга
procedure CalculateThirtyPercentArea(originalArea: real; var thirtyPercent: real);
begin
  thirtyPercent := 0.3 * originalArea;
end;

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

  // Вычисление площади круга
  CalculateAreaOfCircle(radius, circleArea);

  // Вычисление 30% от площади круга
  CalculateThirtyPercentArea(circleArea, thirtyPercentArea);

  // Вывод результатов
  writeln('Площадь круга: ', circleArea:0:2);
  writeln('30% от площади круга: ', thirtyPercentArea:0:2);
end.

При запуске этой программы она попросит вас ввести радиус круга. После этого она вычислит площадь круга, а затем вычислит 30% от этой площади и выведет оба значения на экран.