program ex5_4;const maxn=1000000;var n,i,sumlongint; a.ppt

var m,n:longint ； function gcd(a,b:longint):longint； begin if a mod b=0 then gcd :=b else gcd:=gcd(b, a mod b) end； begin readln(m,n); writeln(gys(m,n)) ; end. 递 归 第三十六次课 var m,n:longint ； function gcd(a,b:longint):longint； begin if a mod b=0 then gcd :=b else gcd:=gcd(b, a mod b) end； begin readln(m,n); writeln(gys(m,n)) ; end. * * program ex5_4; const maxn=1000000; var n,i,sum:longint; a:array[1..maxn] of boolean; procedure work; var i,ii:longint; begin for i:=1 to maxn do a[i]:=true; a[1]:=false; for i:=2 to trunc(sqrt(maxn)) do if a[i]=true then begin ii:=i+i; while ii=maxn do begin a[ii]:=false; ii:=i+i; end; end; end; begin work; sum:=1; for i:=1 to maxn-2 do if (a[i]=true) and (a[i+2]=true) then inc(sum); writeln(sum); end. 出现死循环，问题在那里？ var a:integer; procedure work; var a:integer; begin a:=20; writeln(a); end; begin a:=10; work; writeln(a); end. 看程序，写结果 求两个正整数m和n的最大公约数。　 求两个正整数m和n的最大公约数。 　　分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法： 　　分别用m,n,r表示被除数、除数、余数。 　　①求m/n的余数r. 　　②若r=0,则n为最大公约数.若r≠0,执行第③步. 　　③将n的值放在m中,将r的值放在n中. 　　④返回重新执行第①步。 　　 program ex_gy; var m,n:longint; function gys(a,b:longint):longint; var r:longint; begin r:=a mod b; while r0 do begin a:=b; b:=r; r:=a mod b; end; gys:=b end; begin readln(m,n); writeln(gys(m,n)) ; end. 递归公式： program ex_gy; var m,n:longint; function gys(a,b:longint):longint; var r:longint; begin r:=a mod b; while r0 do begin a:=b; b:=r; r:=a mod b; end; gys:=b end; begin readln(m,n); writeln(gys(m,n)) ; end. gcd(a,b)= b a mod b=0 gcd(b,a mod b) a mod b0 我们把自己内部又有自己本身的这种情况叫做递归。 procedure work; begin . . . work; . . . end; 这种方式是直接调用. procedure work; procedure fac; begin begin .