PASCAL综合应用.pptVIP

PASCAL语言综合应用 桐乡市高级中学 范建农 201407 一、数组与循环 循环语句 For循环语句 1)递增型 For 控制变量：=表达式1 to 表达式2 do begin 语句； end; 2）递减型 For 控制变量：=表达式1 downto 表达式2 do begin 语句； end; While 循环 While 布尔表达式 do begin 语句； end; 直到型循环（repeat --until） Repeat 语句序列； Until 布尔表达式 验证哥德巴赫猜想 任意一个充分大的偶数n(n=4)，都可以用两个素数之和表示。例如： 4=2+2 6=3+3 8=3+5 96=17+79 输入一个数，不是偶数输出：“is not even.”，否则表示它的两个素数。 题目分析 充分大的偶数用n表示 将它分成p和q，使得n=p+q P从1开始(每次加1) 则q=n-p 若p、q均为素数，则输出结果，否则以p+1再试 如何判断输入的是偶数 readln(n) If n mod 2=0 then … Else writeln(‘is not even.’) 如何判断n是否为素数？ Flag:=true; For i:=2 to trunc(sqrt(n)) do if n mod i=0 then flag:=false; 如何找p、q？ p:=1; repeat p:=p+1; q:=n-p; 判断p是否为素数； 判断q是否为素数; Until ; writeln(p,’ ’,q); 子程序 计算机程序设计和问题求解的最基本思想是：将一个大的复杂的问题分解成更小、更简单和更容易处理的子问题。在Pascal语言提供了函数和过程，使得问题的分解和处理更加方便。 函数或过程：将对应于一个子问题求精的语句写在一起，作为一个单独的程序模块。 数值形参和变量形参 Procedure show(a:integer) 对应的实在参数可为表达式 与实在参数之间传递关系是传值 仅视作输入参数，它有入口值，而无出口值，故不能表示计算的结果 例1、杨辉三角 .打印杨辉三角形，杨辉三角形形状如下： 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 例2、约瑟夫问题 n个人围成一圈，从第一个人开始报数，数到k的人出圈。再由下一个人开始报数，数到k的人出圈，……依次输出出圈人的编号。N的值和k的值由键盘输入。 例如n=8，k=6 依次出圈的为：6、4、3、5、8、7、2、1。 算法分析一 这个问题乍看起来很复杂，又是拉手，又是围成圈，报数报到k时退出圈等等问题，似乎很难下手。 ①先用数组a[n]表示n个人，其下标的值表示小朋友的编号，用数字1，0来表示数组元素的值，1表示在圈上，0表示已退出圈。 ②数人数是把每个数组元素的值相加，当和等于k时，将相应的数组元素值改为0，表示已退出圆圈，下次计数时也不会影响“报数”，如此反复。 ③设置变量j用来计数，j从1开始增加，当超过n时，则给h重新赋值为1，这样做就连成圈了。(if jn then j:=1;) ④sum为“报”出的数，sum=k时，输出h值，将a[h]赋为0。 ⑤用p记住已出圈人数，显示p=n时游戏结束。 算法分析二 用a[] 来记录每个人的状态 a[i] = 1 表示第i个人还没有出圈 a[i] = 0 表示第i个人已经出圈 s 来计数 每次数到还没出圈的人 s:=s+1 ， 当s = m 的时候就让这个人出圈  var n,m,s,f,t:integer; a:array[1..100] of 0..1; begin writeln(input n,k); readln(n,k); for t:=1 to n do a[t]:=1; f:=0;t:=0;s:=0; repeat  t:=t+1;  if t=n+1 then t:=1;  if a[t]=1 then s:=s+1;  if s=k then  begin  s:=0;  write(t,