Як звести в ступінь в pascal. звести число до степеня одна друга.

Мова програмування Паскаль відрізняється від більшості інших тим, що в ньому відсутня оператор піднесення до ступінь . Тому фрагмент програми для здійснення цього математичного дії доводиться складати самостійно.
Інструкція
1
Найбільш простий випадок виникає, коли число необхідно звести в невелику цілу позитивну ступінь . Таке математичне дію можна виконати буквально за один рядок. Наприклад, якщо число необхідно завжди зводити в четверту ступінь , скористайтеся такою рядком: b: = a * a * a * a; Самі змінні a і b повинні мати тип, відповідний діапазону і виду чисел, що піддаються зведенню в ступінь .
2
Якщо число також зводиться в цілу і позитивну ступінь , але вона велика, і, до того ж, може змінюватися, скористайтеся циклом. Для цього помістіть в програму такий фрагмент: c: = a; if b = 0 then c: = 1; if b> = 2 then for i: = 2 to b do c: = a * c; Тут a - число, яке підлягає зведенню в ступінь , b - показник ступеня, c - результат. Змінні i і b - обов'язково типу integer.
3
Щоб звести число в дробову ступінь , скористайтеся властивостями логарифмів. Відповідний фрагмент програми при цьому буде виглядати так: c: = exp (b * ln (a)); Даний спосіб не дозволяє працювати з нулем і негативними числами. Для усунення першого з цих недоліків скористайтеся такою конструкцією: if a = 0 then c: = 1 else c: = exp (b * ln (a)); Це дозволить обійти обмеження на діапазон значень вхідного параметра натурального логарифма, який при нулі не має математичного сенсу. Другий недолік, однак, залишиться в силі: зводити в ступінь негативні числа по колишньому не вдасться. Всі змінні використовуйте типу real.
4
Щоб звести в ступінь негативне число, візьміть його модуль, підставте в попередній вираз, після чого поміняйте знак результату. На мові Паскаль це буде виглядати наступним чином: c: = (- 1) * exp (b * ln (abs (a))); Потім, якщо сама ступінь є парною, візьміть модуль від результату: if round (b/2) = b/2 then c: = abs (c);
5
Іноді виникає необхідність в універсальному фрагменті програми, що дозволяє здійснювати зведення в ступінь щодо будь-яких чисел. Тоді складіть його наступним чином: c: = 0; if a0 then c: = exp (b * ln (a)); if b = 0 then c: = 1; if round (b/2) = b/2 then c : = abs (c); Тут всі змінні - також типу real.