Площадь кольца вычисляется по формуле : Тут R - внешний радиус кольца r - внутренний радиус Кстати в самом Турбо паскале обзначения R и r не прокатят, он не видит разницы между большими и малыми буквами, т.о. будет воспринимать их как однк переменную. Далее сумма площадей N колец, это нечто эдакое: Чтобы устроить подобный счет в паскале придется организовать цикл. Таким образом общий алгоритм программы проглядывает в таком порядке 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 Вычислить текущие значения внешнего и внутреннего радиусов (У нас внутренний радиус не меняется, но более общем случае тут мог, быть расчет) Вычисляем площадь текущего (по счетчику) кольца: Накапливаем в Ssum суммарную площадь Далее цикл FOR выполняет такие действия: увеличивает на 1 переменную счетчик I I:=I+1 Сравнивает ее с N, если уходим на "следующий виток" цикла, в противном случае выходим из него. Кстати так можно было организовать цикл типа (Repeat, Until) тогда приращение счетчика надо организовать самому. For делает это сам, если не ошибаюсь.
Sub SetColor() For Each C In Range(Range("A1").Value) If C.Value = Range("E1") Then With C.Font .Bold = Range("D1").Font.Bold .Color = Range("D1").Font.Color .Italic = Range("D1").Font.Italic .Underline = Range("D1").Font.Underline End With C.Interior.Color = Range("D1").Interior.Color Else With C.Font .Bold = False .Italic = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With C.Interior.Color = vbWhite End If Next C End Sub
если в ячейках, указанных в А1, значения те же, что и в Е1, то эти ячейки меняют свое оформление на то же, что и ячейка D1, если там другое значение - ставится стандартное оформление
![+\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)]](/tpl/images/0407/8707/696e9.png)
(У нас внутренний радиус не меняется, но более общем случае тут мог, быть расчет)
уходим на "следующий виток" цикла, в противном случае выходим из него.
Объяснение:
386/2=193 (0)
193/2=96 (1)
96/2=48 (0)
48/2=24 (0)
24/2=12 (0)
12/2=6 (0)
6/2=3 (0)
3/2=1 (1)
(1)
386₁₀=110000010₂