Длина окружности, площадь круга и кольца

На этой странице дано решение примеров Begin13 - Begin15 из задачника Абрамяна. Здесь рассматриваются решения задач, связанные с кругом и окружностью.

Begin13. Даны два круга с общим центром и радиусами R₁ и R₂ (R₁ > R₂). Найти площади этих кругов S₁ и S₂, а также площадь S₃ кольца, внешний радиус которого равен R₁, а внутренний радиус равен R₂:

S₁ = π·(R₁)², S₂ = π·(R₂)², S₃ = S₁ − S₂.

var
  R1, R2, S1, S2, S3: real;

begin
  writeln('Введите радиусы R1 и R2 кругов (R1 > R2):');
  readln(R1, R2);
  S1 := pi * sqr(R1); { <-- Площадь внешнего круга }
  S2 := pi * sqr(R2); { <-- Площадь внутреннего круга }
  S3 := S1 - S2; { <-- Вычисляем площадь кольца }
  writeln('Результат:');
  { Выводим результат на экран: }
  writeln(' S1 = ', S1:0:2);
  writeln(' S2 = ', S2:0:2);
  writeln(' S3 = ', S3:0:2);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

Begin14. Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L = 2·π·R, S = π·R². В качестве значения π использовать 3.14.

const
  pi = 3.14;

var
  L, R, S: real;

begin
  write('Введите длину окружности: L = ');
  readln(L);
  R := L /(2 * pi); { <-- Вычисляем радиус }
  S := pi * sqr(R); { <-- Вычисляем площадь }
  writeln(' R = ', R:0:2); { <-- Выводим радиус на экран }
  writeln(' S = ', S:0:2); { <-- Выводим площадь на экран }
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

Begin15. Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L = π·D, S = π·D²/4. В качестве значения π использовать 3.14.

const
  pi = 3.14;

var
  S, D, L: real;

begin
  write('Введите площадь круга: S = ');
  readln(S);
  D := 2 * sqrt(S / pi); { <-- Вычисляем диаметр круга }
  L := pi * D; { <-- Вычисляем длину окружности }
  writeln('Результат:');
  writeln(' D = ', D:0:2); { <-- Выводим диаметр на экран }
  writeln(' L = ', L:0:2); { <-- Выводим длину на экран }
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

На этом все, на следующей странице будем решать задачи 16-18 из задачника Абрамяна.