Question

Написать программу, которая вычисляет площади трех кругов. Вычисление площади круга вынести в функцию. На паскале

Answer 1

var

 r:real;

 i:integer;

 

function Ploshad(x:real):real;

 begin

   Ploshad:=pi*sqr(x);

 end;

 

begin

 writeln('Показания упрощены до сотых!');

 for i:=1 to 3 do

   begin

     write('Введите радиус ',i,'-го круга: ');

     readln(r);

     writeln('Его площадь: ',Ploshad(r):0:2);

   end;

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!

Answer 2

Для написания программы на Pascal, которая вычисляет площади трех кругов и использует функцию для вычисления площади круга, вы можете воспользоваться следующим кодом:

pascalCopy code
program CalculateCircleArea;

const
  Pi = 3.14159265359; // Значение числа Пи

function CalculateArea(radius: Real): Real;
begin
  // Формула для вычисления площади круга: Площадь = Pi * r^2
  CalculateArea := Pi * radius * radius;
end;

var
  radius1, radius2, radius3: Real;
  area1, area2, area3: Real;

begin
  // Введите радиусы трех кругов
  Write('Введите радиус первого круга: ');
  ReadLn(radius1);

  Write('Введите радиус второго круга: ');
  ReadLn(radius2);

  Write('Введите радиус третьего круга: ');
  ReadLn(radius3);

  // Вычислите площади кругов, вызывая функцию CalculateArea
  area1 := CalculateArea(radius1);
  area2 := CalculateArea(radius2);
  area3 := CalculateArea(radius3);

  // Выведите результаты
  WriteLn('Площадь первого круга: ', area1:0:2);
  WriteLn('Площадь второго круга: ', area2:0:2);
  WriteLn('Площадь третьего круга: ', area3:0:2);

  ReadLn;
end.

Эта программа сначала запрашивает радиусы трех кругов от пользователя, а затем использует функцию CalculateArea для вычисления площадей каждого круга. Результаты выводятся на экран с точностью до двух знаков после запятой.