计算s=1+2!+3！+……10!课件.pptVIP

计算s:=1+2!+3!+……10! Program hs_exam1; Var i:integer;s :longint;　 过程 第三十三讲 第十二届全国青少年信息学奥林匹克联赛初赛试题 Program ex403; Const NN=7; Type Arr1=array[0..30] of char; var s:arr1; k,p:integer; function fun1(s:arr1; a:char;n:integer):integer; var j:integer; begin j:=n; while (as[j])and(j0) do dec(j); fun1:=j; end; Function fun2(s:arr1; a:char; n:integer):integer; var j:integer; begin j:=1; while (as[j])and(jn) do inc(j); fun2:=j; end; begin for k:=1 to NN do s[k]:=chr(ord(A)+2*k+1); k:=fun1(s,M,NN)+fun2(s,M,NN); writeln(k); end. * * Begin for i:=1 to 10 do S:=s+fac(i); write(‘s=‘,s); readln; End. function fac(n:integer):longint; 　　var k:integer; t:longint; 　　begin　　　t:=1; for k:=2 to n do t:=t*k;  fac:=t; { 将计算结果值赋给函数，返回调用处 }　　end; debug begin writeln(round(5.51)); writeln(int(5.51)); writeln(trunc(5.51)); end. var n:longint;? function cc(x:longint):boolean;? var i:integer;? begin????? for i:=2 to trunc(sqrt(x)) do????? if x mod i=0 then begin cc:=false;exit;end;????? cc:=true;????? if cc=true then write(Yes) else wirte(‘No’);? end;begin? readln(n);? cc(n);end. 大家议一议 本程序对1 ，2是否适用？ If cc(n)=true then write(‘Yes’) else wirte(‘No’); program ex4_9; var a:array[0..9] of integer; i,j,s,t,n:integer; procedure chai(x:integer); begin t:=n mod 10; a[t]:=1; t:=n div 10 mod 10; a[t]:=1; t:=n div 100; a[t]:=1; end; begin for i:=100 to 333 do begin fillchar(a,sizeof(a),0);s:=0; n:=i; chai(n); n:=i*2; chai(n); n:=i*3; chai(n); for j:=1 to 9 do s:=s+a[j]; if s=9 then writeln(i, ,i*2, ,i*3); end; end. 过程的定义 procedure 过程名（形式参数）； var 过程的变量说明； begin 过程体 end; 有时侯过程不用加参数 过程定义的格式如下： function 函数名（形式参数）：函数类型； var 函数的变量说明； begin 过程体 end; 计算如图所示的多边形面积。 function area(a,b,c:real):real; var p:real