tion 我们定义,如果a和a+2都是素数（如5和7）,那么我们.pptVIP

过程 第二十五讲 标识符的作用域 1.全局变量和它的作用域全局变量是指在程序开头的说明部分定义和说明的量。 它的作用域分为两种情况： (1)在全局变量和局部变量不同名时，其作用域是整个程序。 (2)在全局变量和局部变量同名时，全局变量的作用域不包含同名局部变量的作用域。 2.局部变量和它的作用域凡是在子程序内部使用的变量，必须在子程序中加入说明。这种在子程序内部说明的变量称为局部变量。 全局变量与局部变量 Program pj; Var m:integer; Procedure test1; begin m:=100; end; Begin m:=5; writeln(‘q:’,m); Test1; writeln(‘h:’,m); End. 第十二届全国青少年信息学奥林匹克联赛初赛试题 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. * * Description 我们定义，如果a和a+2都是素数（如5和7），那么我们就称a和a+2是一对挛生素数。请写一个程序找出2-N之间的所有挛生素数。 Input 一个整数N（ 2 N 1000 ）。 Output 若干行，每行两个整数，即一对挛生素数。 Sample Input 10 Sample Output 3 5 5 7 program ex1302; var n,i:integer; function pd(x:integer):boolean; var j:integer; begin pd:=true; for j:=2 to trunc(sqrt(x)) do if x mod j=0 then begin pd:=false;exit; end; end; begin read(n); for i:=2 to n-2 do if pd(i) and pd(i+2) then writeln(i, ,i+2); end. 一个整体，地位同var一样 实现两段交换 1 2 3 4 5 3 6 11 45 23 i j 1-3 4-5 搬动 思路：先搬动4-5，再搬动1-3，搬动操作一样，不同的就是搬的起点到终点 函数作用是带回值，如果就是完成一个任务应当如何？ a b 过程的定义 procedure 过程名（形式参数）； var 过程的变量说明； begin 过程体 end; 有时侯过程不用加参数 过程定义的格式如下： function 函数名（形式参数）：函数类型； var 函数的变量说明； begin 过程体 end; 实现两段交换 1 2 3 4 5 3 6 11 45 23 i j 1-3 4-5 搬动 a b 搬动过程必须从主程序得到要搬动段的起点与终点坐标q,h for i:=q to h do begin b[j]:=a[i]; inc(j); end; Procedure work(q,h:integer); Var i:integer; begin end. Procedure work(q,h:integer); Var i:integer; begin for i:=q to h do begin b[j]:=a[i]; inc(j); end; en