Задача поднесения в степень
Написал задачу на возведение числа а в степень б, думал все путем, но тут обнаружыл что когда подносишь большое число в большую степень выходит минусовое число, вот код, может кто чем поможет.
Зарание спасибо.
Зарание спасибо.
Цитата:
Program stepen;
uses crt;
var a,b,n,c:integer;
begin clrscr;
writeln('vvedite chislo a');
readln(a);
writeln('vvedite stepen v kotoruyu vi hotite podnesti chislo a');
readln(b);
c:=1;
n:=1;
while n<=b do
begin
n:=n+1;
c:=c*(a);
end;
writeln('chislo a podnesenoe v stepen b=',c);
end.
uses crt;
var a,b,n,c:integer;
begin clrscr;
writeln('vvedite chislo a');
readln(a);
writeln('vvedite stepen v kotoruyu vi hotite podnesti chislo a');
readln(b);
c:=1;
n:=1;
while n<=b do
begin
n:=n+1;
c:=c*(a);
end;
writeln('chislo a podnesenoe v stepen b=',c);
end.
не знаю что такое поднесенное число
но не забывайте что при возведении в степень вы можете выйти за пределы >32000 и будет переполнение
ps как то странно while цикл когда проще for i:=1 to b do c:=c*a
но не забывайте что при возведении в степень вы можете выйти за пределы >32000 и будет переполнение
ps как то странно while цикл когда проще for i:=1 to b do c:=c*a
Цитата: nilbog
не знаю что такое поднесенное число
но не забывайте что при возведении в степень вы можете выйти за пределы >32000 и будет переполнение
ps как то странно while цикл когда проще for i:=1 to b do c:=c*a
но не забывайте что при возведении в степень вы можете выйти за пределы >32000 и будет переполнение
ps как то странно while цикл когда проще for i:=1 to b do c:=c*a
Боьшое спасибо.:)
Цитата: nilbog
не знаю что такое поднесенное число
Ой, извеняюсь
Или, можно сделать тип не integer, а word(0..65536) или longint(-2^31..2^31-1)
а если ФриПаскаль то int64, там вообще дофига...
http://freepascal.org/docs-html/ref/refsu5.html вам в помощь
http://freepascal.org/docs-html/ref/refsu5.html вам в помощь