Question

Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов,используя подпрограмму вычисления площади круга(два варианта: с процедурой и функцией).

Answer 1

Вариант 1: с использованием процедуры

Программа будет состоять из двух процедур: одна для вычисления площади круга, другая для вычисления площади кольца.

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

Процедура для вычисления площади кольца: ``` procedure CalculateRingArea(innerRadius, outerRadius: real; var area: real); var innerArea, outerArea: real; begin CalculateCircleArea(innerRadius, innerArea); CalculateCircleArea(outerRadius, outerArea); area := outerArea - innerArea; end; ```

Основная программа: ``` var innerRadius, outerRadius, ringArea: real; begin write('Введите внутренний радиус кольца: '); readln(innerRadius); write('Введите внешний радиус кольца: '); readln(outerRadius); CalculateRingArea(innerRadius, outerRadius, ringArea); writeln('Площадь кольца: ', ringArea); end. ```

Вариант 2: с использованием функции

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

Функция для вычисления площади круга: ``` function CalculateCircleArea(radius: real): real; begin result := 3.14 * radius * radius; end; ```

Основная программа: ``` var innerRadius, outerRadius, ringArea: real; begin write('Введите внутренний радиус кольца: '); readln(innerRadius); write('Введите внешний радиус кольца: '); readln(outerRadius); ringArea := CalculateCircleArea(outerRadius) - CalculateCircleArea(innerRadius); writeln('Площадь кольца: ', ringArea); end. ```

Оба варианта программы позволяют вычислить площадь кольца по заданным значениям внутреннего и внешнего радиусов, используя подпрограмму для вычисления площади круга. Результат выводится на экран.