Программа нахождения степеней

[Inesto]

Помогите. Нужно составить программу для нахождения степеней числа
3:P = 3^n (3 в n-ой степени).

Спасибо

[Вадим Мошев]

как-то так:

read(n);
k:=1;

for i:=1 to n do
k:=k*3;

write(k);

[Stilet]

3 в n-ой степени

...:=exp(n*ln(3));

Если не опшибаюсь.

[Вадим Мошев]

Виталий, не ошибаешься, всё верно.

[ViktorR]

Только в первом случае результат - целое, а во втором - вещественное.

[Вадим Мошев]

Сообщение от ViktorR

Только в первом случае результат - целое, а во втором - вещественное.

Да, но можно взять от результата функцию round()

[Poma][a]

3:P = 3^n

А шо такое P?

Кстати, стоит упомянуть что вариант Вадима, вычисляет степень только для положительных, целых N.
Вариант Виталия вычисляет для любых N.

Еще можно делать так :

uses
      Math;

...

 := Power (3, n)

[ViktorR]

Я только по сути результата.
Тогда уж можно и так:

k:=trunc(exp(n*ln(3)));

поскольку дробная часть равна нулю.


Как-то так, ...

[Вадим Мошев]

Сообщение от ViktorR

Я только по сути результата.
Тогда уж можно и так:

k:=trunc(exp(n*ln(3)));

поскольку дробная часть равна нулю.


Как-то так, ...

Не могу согласиться.
Дробные числа в компьютере предстают всегда не в том виде, в которым мы ожидаем их увидеть, так как имеются погрешности перевода дробей из двоичной системы счисления в десятичную. Именно поэтому вещественные числа не рекомендуется проверять на равенство, так как результат может оказаться совсем не таким, каким мы бы хотели его видеть.

Что же касается процитироанного мной выражения, то его результатом может быть такое число: 7,9999999999999999994 вместо девяти (ошибся, вместо восьми, Sorry). Вот и получим, что два в кубе равно 7, а не 8 как надо.

[Poma][a]

вместо девяти

Наверное, вместо восьми
Вадим, ты уж извини, что влезаю в разговор, но не могу удержаться..

Теперь по поводу Trunc.. Квадратный корень - функция действительного типа, считается на компьютере с некоторой точностью. Что это значит? Что результат вычисления, например, Sqrt(4) может быть равен 2, а может 1.999999999999. При этом, второе число ДОЛЖНО считаться ПРАВИЛЬНЫМ. Почему? Потому что, если точность вычислений равна d, то два числа, отличающиеся меньше, чем на d, ДОЛЖНЫ считаться РАВНЫМИ. Это - смысл концепции ТОЧНОСТЬ ВЫЧИСЛЕНИЙ. Без понимания этого разговоры про точность - пустой звук.

Далее. Если в некоторый момент ты получаешь, например, Sqrt(100000000) равным не 10000, как ожидается, а 9999.9999999 (и этот результат, повторюсь, ПРАВИЛЬНЫЙ), то что произойдет? Trunc тупо отбросит дробную часть, и конечный результат будет меньше нужного аж на 1!! И вот тогда you're in trouble.. (с) TinMan

Именно поэтому вещественные числа не рекомендуется проверять на равенство

Ага.
Но всё-таки действительные числа можно сравнивать (знаю, что всё это знают, но напишу для будущих поколений) :

const 
    eps = 00000000.1 // например
x, y : Real;

Abs (x-y) <= eps

(Хотя опять же спорный вопрос про знак равно..)
Так же имеет место быть этот замечательный пост : тыц

И правильнее будет (имхо) не использовать транков и раундов, а оставить результат в первозданном виде