Задачка на цикл 'пока'...

[Андрю)(@]

Всем доброго времени суток...
Вот не никак не полуается задачка, помогите плиз...
С помощью цикла "пока" или цикла "до" написать программу возведения числа A в целую степень N.
Как я понимаю вылетает запрос 'введите число А'
потом 'введите степень N'
и потом вылеает ответ...
Пожалуйста помогите справиться с данной проблемой...

[maladoy]

program vstep;
uses crt;
var i,n,a,s:integer;
begin
writeln('vvedi a');
readln(a);
writeln('vvedi n') ;
readln(n);
i:=0;
s:=1;
while i<n do
begin
s:=s*a;
i:=i+1;
end;
writeln(a,' v stepeni ',n,' = ',s);
readln;
end.

[capta1n]

лучше byte использовать как тип переменных в этой задаче

[Greblin]

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

лучше byte использовать как тип переменных в этой задаче

И много у Вас степеней в байте поместится? Если только i и n, и то лучше так не делать. Там не сказано, что А целое, так что может вообще такая ситуация возникнуть: 1.01^1000

var a, s: real; i, n: integer;

[capta1n]

я про степень, а не про основание - это раз, а во-вторых - ну кому понадобится возводить в степень больше 255 - мало того, что такая программа непроизводительна и равняется почти зацикливанию - в цикл загонять возведение в большую степень - это долго ты будешь ждать лучше функцию написать или вон по формуле y:=exp(ln(A)*n) и все - если уж на то дело пошло, то все программы надо писать с переменными COMP или EXTENDED чтоб уж точно на любые числа в пределах миллиардов миллиардов миллиардов

[capta1n]

<<<<<<<<<<