作业帮 > 综合 > 作业

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次方
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.