关于pascal计算2^n……(1

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/18 17:40:40
关于pascal计算2^n……(1关于pascal计算2^n……(1关于pascal计算2^n……(1Vara,b,c:Array[1..201]Ofword;i,j,k,m,n,p,t:Longin

关于pascal计算2^n……(1
关于pascal计算2^n……(1

关于pascal计算2^n……(1
Var a,b,c:Array[1..201]Of word; i,j,k,m,n,p,t:Longint; Begin Readln(p);Writeln(Trunc(Ln(2)/Ln(10)*p)+1); k:=0; repeat inc(k); a[k]:=p mod 2; p:=p div 2 until p=1; b[1]:=2;n:=1; for m:=k downto 1 do begin fillchar(c,sizeof(c),0); for i:=1 to n do for j:=1 to n do begin if i+j-1>200 then break; t:=i+j-1; inc(c[t],b[i]*b[j]); inc(c[t+1],c[t] div 10); c[t]:=c[t]mod 10; end; if a[m]=1 then begin b:=c;fillchar(c,sizeof(c),0); for i:=1 to t do begin c[i]:=c[i]+b[i]*2; if c[i]>9 then begin inc(c[i+1]);c[i]:=c[i]mod 10 end; end; end; n:=t+1;b:=c end; For i:=200 Downto 1 Do Begin Write(c[i]); If i Mod 50=1 Then Writeln End; end. 这类似于NOIP2003 第三道 “麦森数”
麻烦采纳,谢谢!

关于pascal计算2^n……(1 计算 1/1 + 1/2 + 1/3 + …… + 1/n 的值,输出保留 3 位小数pascal 关于Pascal语言的编程问题 要求完整的1求:N!= 1*2*3*…*n 的值(n 用递归的方法求1+2+3+……+(n-1)+n 用PASCAL 编写程序,输入正整数n,计算它的阶乘n!(n!=n×(n-1)×…×3×2×1).请大家用PASCAL语言,不要用c语言啊! pascal用高精度方法求s=1+2+3+……+n的精确值 pascal用高精度方法求s=1+2+3+……+n的精确值 pascal 输入n(1 pascal 输入n(1 pascal中定义2的n次方pascal中如何定义某变量为2的n次方(n可变,变量可取2^1,2^2,2^3……2^n) Pascal 程序题计算:e=1+1/(2!)+1/(3!)+ …… +1/(n!)(1)求到第50项(2)求最后一项小于10^(-5) 【程序设计】PASCAL语言实现设有一个数列a1,a2,a3,…,a(n),其中a1,a2由键盘输入,从a3开始,通过下列四种情况的公式计算:a(n-2) a(n-1) a(n)偶数 奇数 2a(n-2)+a(n-1) 用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少?用pascal编程、用键盘输入整数S,然后计算1+2+3+…+N的和,在和未超过S(包括相等)的情况下,最大的N是多少? pascal 循环结构计算1+2+3+4.+n之和、奇数和与偶数和.输入格式 Input Format 一个正整数n(n 计算S=1+3+5……+97+99 pascal 计算1*2*3*.*n>1000的第一个n值(用pascal语言,while循环和repeat循环来做) pascal高精度计算1!+2!+…+n!求改用高精度计算出S=1!+2!+3!+...+n!(n=10 then begin h[q]:=h[q]-10;h[q+1]:=h[q+1]+1;end;end;end;i:=100;while h[i]=0 do i:=i-1;for j:=i downto 1 do write(h[i]);end.--------------------------------------分割 pascal编程:阶乘题目描述用高精度计算出S=1!+2!+3!+…+n!(n≤50) 其中“!”表示阶乘,例如:=5*4*3*2*1.输入格式一个正整数N.输出格式一个正整数S,表示计算结果.样例输入 3 样例输出 9