pascal:varans :double;now,i :longint;beginans:=0;now:=1;for i:=0 to 10 dobeginans:=ans+1/now;now:=now*2;end;writeln(ans);end.// 512=2^10 当然如果你需要的是课本上的qbasic...那个现在其实是没人用的啦啦.....