Question

Найти суммарную площадь N колец, внутренние радиусы которых одинаковы, а значение внешних радиусов образуют последовательность: 5, 10, 15,...,(5N).

Нужно написать решение в турбо паскале, помогите кому не сложно

Answer 1

Площадь кольца вычисляется по формуле :
$S= \pi (R^2-r^2)$
Тут
R - внешний радиус кольца
r - внутренний радиус
Кстати в самом Турбо паскале обзначения R и r не прокатят, он не видит разницы между большими и малыми буквами, т.о. будет воспринимать их как однк переменную.
Далее сумма площадей 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)+..+$
$+\pi (R_{N}^2-r_{N}^2)=\pi [(R_{1}^2-r_{1}^2)+(R_{2}^2-r_{2}^2)+..+(R_{N}^2-r_{N}^2)]$
Чтобы устроить подобныйсчет в паскале придется организовать цикл.
Таким образом общий алгоритм программы проглядывает в таком порядке
1. Объявить все переменные (Данные) это само собой.
2. Присвоить переменным начальные значения (инициализировать) те, что есть по условию (или просто 0, чтоб потом легче отлаживать)
3.Запросить у пользователя недостающие данные, например N может запрашиваться у пользователя.
4. Организация цикла расчета
5. Вывод результатов.

Теперь разберемся с пунктом 4
Для организации цикла как мне представляется надо будет задействовать 2 такие переменные i,  Ssum,Si, Rin, Rout,. Где
i - переменная-счетчик, что изменяется от 1 до N, для организации цикла. (Integer целая)
Ssum - переменная, в которой будет накапливаться суммарная площадь. (Не помню как паскаль поступает с вновь объявленными переменными, но в начале программы лучше присвоить ей нулевое значение, чтобы там не оказалось случайного мусора)
Si - переменная в которой хранится текущая вычисленная площадь.
Rin - текущий внутренний радиус.
Rout - текущий внешний радиус.
Переменные:Ssum,Si, Rin, Rout типа (Realвещественный )
Ну и считаем в следующем порядке
 Перед началом цикла
 Ssum:=0 (о чем уже говорилось)
далее цикл
FOR I:=1 to N
Вычислить текущие значения внешнего и внутреннего радиусов
$Rout:=5*I$
$Rin=r$ (У нас внутренний радиус не меняется, но более общем случае тут мог, быть расчет)
Вычисляем площадь текущего (по счетчику) кольца:
$Si:= \pi (R-r)$
Накапливаем в Ssum суммарную площадь
$Ssum:=Ssum+Si$
 Далее цикл FOR выполняет такие действия:
 увеличивает на 1 переменную счетчик I
I:=I+1
 Сравнивает ее с N, если $I \leq N$ уходим на "следующий виток" цикла, в противном случае выходим из него.
Кстати так можно было организовать цикл типа (Repeat, Until) тогда приращение счетчика надо организовать самому. For делает это сам, если не ошибаюсь.