Задание 4 Параграф 18 ГДЗ Семакин 9 класс (Информатика)

Задача

program Z_3_4;
var
r1, r2: integer;
s1, s2, s: real;
procedure pl(x: integer; var y: real);
begin
y := sqr(x) * 3.14;
//writeln(y)
end;
begin
write(‘R1, R2 > > ‘);
readln(r1, r2);
pl(r1, s1); pl(r2, s2);
s := s1 — s2;
writeln(‘Площадь кольца = ‘, s)
end.

Подробный ответ

Площадь кольца равна разности площадей двух кругов: внешнего и внутреннего.

Сначала удобно оформить вычисление площади круга в виде процедуры, а затем вызвать её два раза: для внешнего радиуса $$r_1$$ и для внутреннего радиуса $$r_2$$.

program Z_3_4;
var
  r1, r2: integer;
  s1, s2, s: real;
procedure pl(x: integer; var y: real);
begin
  y := sqr(x) * 3.14;
end;
begin
  write(‘R1, R2 >> ‘);
  readln(r1, r2);
  pl(r1, s1);
  pl(r2, s2);
  s := s1 — s2;
  writeln(‘Площадь кольца = ‘, s);
end.

Процедура pl вычисляет площадь круга по формуле $$S=\pi r^2$$ и записывает результат в переменную, переданную через параметр var.

Затем программа находит площадь кольца:

$$S_{\text{кольца}} = S_1 — S_2$$

где $$S_1$$ — площадь круга с радиусом $$r_1$$, а $$S_2$$ — площадь круга с радиусом $$r_2$$.