Question

Язык - Pascal
1)Есть ли в нем функция котангенса, или надо выражать самому, как 1/tan?
2) Можно ли эту строчку кода как-то упростить?
if (d <> 1) and (d <> 2) and (d <> 3) and (d <> 4) and (d <> 5) and (d <> 6) and (d <> 7)and (d<>9) and (d<>10) and (d<>11) then

Answer 1

1) Нет котангенса ни в одной из реализаций паскаля (вот за Дельфи только не скажу, нет у меня её).
2) Выражение
d≠1 & d≠2 & d≠3 & d≠4 & d≠5 & d≠6 & d≠7 & d≠8 & d≠9 & d≠10 & d≠11,
если d - целочисленная переменная, можно упростить. Оно говорит, что d не входит в интервал целых чисел от 1 до 11, т.е. d ∉ [1;11].
Но тогда d ∈ [-∞;1), (11,∞), что заменяется парой условий d<1, d>11, или
d<1 or d>11
В синтаксисе языка паскаль: if (d<1) or (d>11) then

Если d имеет тип real, выражение не упрощается.