Решаем задачи Абрамян на Паскале. Proc 18

Proc18. Описать функцию CircleS($$R$$) вещественного типа, находящую площадь круга радиуса $$R$$ ($$R$$ — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса $$R$$ вычисляется по формуле $$S = \pi*R^2$$. В качестве значения $$\pi$$ использовать 3.14.

Решение:

program Proc18;

function CircleS(R: Real): Real;
begin
 CircleS:=3.14*sqr(R);
end;

var
  r1,r2,r3: real;
begin
  Write('Введите радиус первой окружности: ');
  Readln (r1);
  Write('Площадь первой окружности равна: ');
  Writeln(CircleS(r1));

  Write('Введите радиус второй окружности: ');
  Readln (r2);
  Write('Площадь второй окружности равна: ');
  Writeln(CircleS(r2));

  Write('Введите радиус третьей окружности: ');
  Readln (r3);
  Write('Площадь третьей окружности равна: ');
  Writeln(CircleS(r3));
  Readln;
end.

program Proc18;

function CircleS(R: Real): Real;

begin

CircleS:=3.14*sqr(R);

end;

var

r1,r2,r3: real;

begin

Write('Введите радиус первой окружности: ');

Readln (r1);

Write('Площадь первой окружности равна: ');

Writeln(CircleS(r1));

Write('Введите радиус второй окружности: ');

Readln (r2);

Write('Площадь второй окружности равна: ');

Writeln(CircleS(r2));

Write('Введите радиус третьей окружности: ');

Readln (r3);

Write('Площадь третьей окружности равна: ');

Writeln(CircleS(r3));

Readln;

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc 18

Комментарии:

Добавить комментарий Отменить ответ