求3的15次方的值
pascal吧
全部回复
仅看楼主
level 9
循环
2013年12月20日 11点12分 1
level 12
var x,i:longint;
begin
x:=1;
for i:=1 to 15 do x:=x*3;
writeln(x);
end.
2013年12月20日 14点12分 2
嗯对 我做出来了 一样的 问个问题哈好想有一个是longint的两倍,int64?
2013年12月21日 12点12分
回复 Sprite木宁木蒙 :是longint的2^8倍
2013年12月21日 14点12分
回复 Sprite木宁木蒙 :longword 无符号的longint(即longint的两倍)
2013年12月24日 13点12分
回复 Sprite木宁木蒙 :dword,无符号是longint2倍
2013年12月25日 04点12分
level 11
var x,i:longint;
begin
x:=1;
for i:=1 to 15 do x:=x*3;
writeln(x);
end.
2013年12月24日 01点12分 3
level 7
如果结果超出longint, 就用长整型来做吧.
2013年12月24日 01点12分 4
longint就是长整型 。。。。
2013年12月29日 10点12分
回复 千方残光剑41 : 我是说比他还长的。
2013年12月29日 11点12分
回复 yynet123456 :语序不对啊。。。
2013年12月29日 11点12分
level 6
不是14348907么?
2013年12月24日 07点12分 5
level 7
换底公式 x^y=exp(y*ln(x))
2013年12月24日 13点12分 6
+1
2014年01月01日 05点01分
level 12
qword
2013年12月24日 16点12分 7
level 12
begin writeln(14348907) end.
2013年12月25日 04点12分 8
level 13
begin
writeln(14348907);
end.
2013年12月30日 04点12分 9
level 6
x:=15; y:=3; t:=1;
while x>0 do begin
if x and 1=1 then t:=t*y;
y:=y*y;
x:=x>>1;
end;
2013年12月30日 10点12分 10
level 6
var
i:longint;
x:int64;
begin
x:=1;
for i:=1 to 15 do x:=x*3;
writeln(x);
end.
2014年01月01日 05点01分 11
level 7
不用换底公式的都是高端黑
2014年01月01日 06点01分 12
1