Поднесение к степени

[Halifath]

Уважаемые, подскажите. Можно ли как-то (возможно, формулой) написать программу для решения примера вида x в степени y, где икс и игрек не заранее прописаны, а могут быть введены абсолютно любые через оператор read? Я знаю, как решить такое именно через циклы (там элементарно), а без прибегания к циклам и постоянному повторению if (вернее, иф будет использоваться без сомнения, однако не примитивным перебором вида if y=2 then Write(x*x))?

[Sazary]

Пользуйтесь поиском. Обсуждалось миллион раз.
http://programmersforum.ru/showthread.php?t=4192
http://programmersforum.ru/showthread.php?t=39639
http://programmersforum.ru/showthread.php?t=53950
и куча других.

Степень ищется через логарифмы.

[Halifath]

Не совсем то. Другие ответы тоже просмотрел. Конкретизирую: решение должно быть без экспонент и логарифмов. Использовать можно +-*abs, mod
Основание - число типа real. Может быть и положительным, и отрицательным. Степень - целое число, которое также может быть и отрицательным, и положительным.

[ОДИНОЧЕСТВО В СЕТИ]

так пойдет

 function _Power(const x,y:real):real; //x>0!
asm
  fld y
  fld x
  fyl2x
  fld st(0)
  frndint
  fsubr st(0),st(1)
  f2xm1
  fld1
  faddp
  fscale
  fxch st(1)
  fstp st
 end;

[sheka]

можна использовать рекурсию. (только для натуральных у)

uses crt;

function power(x:real;y:integer):real;
begin
  if y=1 then power:=x
  else power:=power(x,y-1)*x;
end;

begin
  clrscr;
  writeln(power(2.888,5):0:8);readln;
end.

Подходит?

[Serge_Bliznykov]

ОДИНОЧЕСТВО В СЕТИ, сомневаюсь, что TC Ваше решение подойдёт, но прикольно! (и, что характерно, условиям задачи, имхо, соответствует )

sheka, 1) а зачем рекурсия, когда тут и обычный цикл вполне даже подойдёт!
сорри!! Понял, зачем... по условию задачи автор хочет без циклов обойтись.

2) не проверяется нулевая степень
3) и, главная ошибка/недочёт данного решения, - не проверяются отрицательные значения степени (программа уйдёт в бесконечный цикл)

Halifath - цикл то сами сможете написать?! и ещё, без операции деления, по моему, не решается - отрицательную степень - это 1/(число в abs(степени)), не взять...

[Stilet]

а без прибегания к циклам

А чем циклы то не устраивают?

[Serge_Bliznykov]

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

А чем циклы то не устраивают?

+1

Halifath, действительно, чем циклы не угодили? Какую Вы задачу перед собой поставили - решить что-то не используя стандартные средства? Типа головоломка для программиста?