х в степени н

[anksunamun]

в паскале нужно сделать программу: вычислить у=х в степени н, где н - целое число.
вот что получилось у меня:
var
n,i:integer;
x,y:real;
BEGIN
writeln('Vvedite chislo x');
readln(x);
writeln('Vvedite stepen n');
readln(n);
y:=x;
for i:=1 to (n-1) do
begin
y:=y*x;
end;
writeln(y);
END.

но так не получается, если степень минусовая. подскажите, что сделать, чтобы программа работала с любой степенью

[redeezko]

если степень минусовая то считаешь также, только y присваиваешь y:=1/y*x

[anksunamun]

спасибо большое

[anksunamun]

ой, что-то я туплю. вроде поставила
if i>=0 then
y:=y*x
else
y:=1/(y*x);
а он возвращает то же значение, не возведя его ни в какую степень..(
где у меня ошибка?

[Arigato]

5^0=1, а у вас получится в ответе 5.

[Greblin]

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

если степень минусовая то считаешь также, только y присваиваешь y:=1/y*x

Я конечно извиняюсь за резкие слова, но желательно всё таки немного подумать, прежде чем писать ответ. Начальное значение y = x. После первой итерации Вашего цикла y = 1/x*x = 1, после второй y = 1/1*x = x и т.д.

anksunamun
Измените Ваше решение следующим образом:

y:=1;
for i:=1 to abs(n) do
begin
y:=y*x;
end;
if n < 0 then y := 1 / y;
writeln(y);

Так работает правильно и для n = 0

[anksunamun]

у меня слишком широкий угол зрения, объясните, пожалйуста, поострее)

[anksunamun]

спасибо за объяснение

[anksunamun]

да, теперь всё ок. всех благодарю

[alecto]

A если у меня так:
A[i]:=(A[i-2]+a[i-1])/2^i-1
Подскажите пожалуйста как записать два в степени и минус 1.