Площадь кольца вычисляется по формуле :
![S= \pi (R^2-r^2)](https://tex.z-dn.net/?f=S%3D+%5Cpi+%28R%5E2-r%5E2%29)
Тут
R - внешний радиус кольца
r - внутренний радиус
<em>Кстати в самом Турбо паскале обзначения R и r не прокатят, он не видит разницы между большими и малыми буквами, т.о. будет воспринимать их как однк переменную.</em>Далее сумма площадей N колец, это нечто эдакое:
![S_{sum}=S_{1}+S_{2}+S_{3}+..+S_{N}= \pi (R_{1}^2-r_{1}^2)+\pi (R_{2}^2-r_{2}^2)+..+](https://tex.z-dn.net/?f=S_%7Bsum%7D%3DS_%7B1%7D%2BS_%7B2%7D%2BS_%7B3%7D%2B..%2BS_%7BN%7D%3D+%5Cpi+%28R_%7B1%7D%5E2-r_%7B1%7D%5E2%29%2B%5Cpi+%28R_%7B2%7D%5E2-r_%7B2%7D%5E2%29%2B..%2B)
<em>Чтобы устроить подобный</em><em>
счет в паскале придется организовать цикл.
Таким образом общий алгоритм программы проглядывает в таком порядке
1. Объявить все переменные (Данные) это само собой.
2. Присвоить переменным начальные значения (инициализировать) те, что есть по условию (или просто 0, чтоб потом легче отлаживать)
3.Запросить у пользователя недостающие данные, например N может запрашиваться у пользователя.
4. Организация цикла расчета
5. Вывод результатов.
</em>
Теперь разберемся с пунктом 4
Для организации цикла как мне представляется надо будет задействовать 2 такие переменные
<em>i, Ssum</em>,<em>
Si</em>
, Rin, Rout,. Где
<em>i</em><em /> - переменная-счетчик
<em>,</em> что изменяется от 1 до N, для организации цикла.
<em> (Integer </em><em>целая</em>
<em>)
Ssum</em> - переменная, в которой будет накапливаться суммарная площадь. <em>(Не помню как паскаль поступает с вновь объявленными переменными, но в начале программы лучше присвоить ей нулевое значение, чтобы там не оказалось случайного мусора) </em>
<em>Si</em> - переменная в которой хранится текущая вычисленная площадь.
Rin - текущий внутренний радиус
.
Rout - текущий внешний радиус.
Переменные:
<em>Ssum</em>,<em>
Si</em>
, Rin, Rout типа (<em>
Real</em><em>вещественный )</em>
Ну и считаем в следующем порядке
Перед началом цикла
Ssum:=0 (о чем уже говорилось)
далее цикл
<em>FOR</em> I:=1 to N
Вычислить текущие значения внешнего и внутреннего радиусов
![Rout:=5*I](https://tex.z-dn.net/?f=Rout%3A%3D5%2AI)
![Rin=r](https://tex.z-dn.net/?f=Rin%3Dr)
(У нас внутренний радиус не меняется, но более общем случае тут мог, быть расчет)
Вычисляем площадь текущего (по счетчику) кольца:
![Si:= \pi (R-r)](https://tex.z-dn.net/?f=Si%3A%3D+%5Cpi+%28R-r%29)
Накапливаем в <em>
Ssum </em>суммарную площадь
![Ssum:=Ssum+Si](https://tex.z-dn.net/?f=Ssum%3A%3DSsum%2BSi)
Далее цикл FOR выполняет такие действия:
увеличивает на 1 переменную счетчик I
<em>I:=I+1</em> Сравнивает ее с<em>
N</em>, если
![I \leq N](https://tex.z-dn.net/?f=I+%5Cleq+N)
уходим на "следующий виток" цикла, в противном случае выходим из него.
Кстати так можно было организовать цикл типа (
<em>Repeat, Until)</em> тогда приращение счетчика надо организовать самому.
<em>For</em> делает это сам, если не ошибаюсь.