pascal中定义2的n次方
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/16 23:09:21
pascal中定义2的n次方
pascal中如何定义某变量为2的n次方(n可变,变量可取2^1,2^2,2^3……2^n)
pascal中如何定义某变量为2的n次方(n可变,变量可取2^1,2^2,2^3……2^n)
var a:array[1..10000]of longint;
n,i,w:longint;
procedure asd;
var i,x:longint;
begin
x:=0;
for i:=1 to w do begin
a[i]:=a[i]*2+x;
x:=a[i] div 10;
a[i]:=a[i] mod 10;
end;
while x>0 do begin
inc(w);
a[w]:=x mod 10;
x:=x div 10;
end;
end;
begin
readln(n);
a[1]:=1;
w:=1;
for i:=2 to n do asd;
for i:=w downto 1 do write(a[i]);
end.
n,i,w:longint;
procedure asd;
var i,x:longint;
begin
x:=0;
for i:=1 to w do begin
a[i]:=a[i]*2+x;
x:=a[i] div 10;
a[i]:=a[i] mod 10;
end;
while x>0 do begin
inc(w);
a[w]:=x mod 10;
x:=x div 10;
end;
end;
begin
readln(n);
a[1]:=1;
w:=1;
for i:=2 to n do asd;
for i:=w downto 1 do write(a[i]);
end.
pascal中定义2的n次方
PASCAL求2的n次方
pascal中n次方咋用?
pascal 中 n次方怎么表示
用PASCAL怎么求x的N次方
pascal:定义一个函数,求正整数中奇数阶乘的连续和,最大奇数为n(数据保证n为奇数)
free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数:因子之和等于它本身的自然数,
用极限的定义证明n的2011次方除以2的n次方极限为0
用定义证明:当n趋于无穷时,2的n次方为无穷大
pascal求定义一函数fz3,求1—n之间3的倍数之和.定义一函数fz5,求任意自然数n的各位数字之和.
pascal中shl的用法
求N!左边第二位的数字 pascal