even=p+q*r*s
这也称为1+3问题
陈景润证明出：对任一充分大的偶数even，可以找到3个素数p、q、r。使得 even=p+q*r
这也称为1+2问题。
而真正的哥德巴赫猜想是：对任一充分大的偶数even，可以找到两个素数p、q。使得 even=p+q
即1+1问题。此问题还未得到最后的证明。
我们这里只是对有限范围内的数，用计算机加以验证，不算严格证明。 读入偶数even，将它分成p和q，使even=p+q。 p从2开始（每次加1），q=even-p。如果p、q均为素数，则输出结果，否则将p加1再试。
一级算法：
1、读入一个数even；
2、判断even是否为偶数，如果是偶数，则继续，否则结束程序； 3、FOR p:=2 TO trunc(even/2) 3-1 q:=even-p
3-2 判断p是否为素数（pyn:=1表示p为素数，pyn:=0表示p不是素数） 3-3 判断q是否为素数（qyn:=1表示q为素数，qyn:=0表示q不是素数） 3-4 IF pyn=1 AND qyn=1
THEN writeln(even,’=’,p,’+’,q) 二级求精： 1、read(even)
2、IF even MOD 2=0 THEN 第3步 3-2、n:=2
WHILE n IF p MOD n=0 THEN pyn:=0; END; 3-3、n:=2 WHILE n IF q MOD n=0 THEN qyn:=0; END; 31 PROGRAM T75_008; VAR even,p,q,n,pyn,qyn:integer; BEGIN write('Please input a even:'); read(even); IF even MOD 2=0 THEN BEGIN FOR p:=2 TO trunc(even/2) DO BEGIN q:=even-p; n:=1; pyn:=1; qyn:=1; WHILE n IF p MOD n=0 THEN pyn:=0; END;{WHILE-1} n:=1; WHILE n IF q MOD n=0 THEN qyn:=0; END;{WHILE-2} IF (pyn=1) AND (qyn=1) THEN writeln(even,'=',p,'+',q); END;{FOR} END{IF} ELSE writeln('You must input a even!'); END. T75_009 打印杨辉三角形 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 …… …… 1 10 45 …… 45 10 32 1 n 讨论：杨辉三角形中，每个数据值可以由组合Cm来计算。上列杨辉三角形可以写成： 0 C01 C10 C1012 C2 C2 C20123 C3 C3 C3 C3…… …… 0128910 C10 C10…… ……C10 C10 C10 C10 已知 m?n?1)?nm(m?1)(m?2)...(C??m1?2?3...n?10?m?1,2,3,... ?n?1,2,3,...m??0Cm?1,m?0,1,2,...10可以由递推公式计算Cm 0?Cm?1??nn?1(m?n?1)C?Cm?mn?n m?0,1,2,...10n?1,2,3,...m 为了输出三角形，我们将中心线位置定在40格处。每一行的第一个值应往左移3格， 最大数是3位整数，每个数之间留3个空格，因此输出值的场宽可以定义为6。 这是一个二重循环问题，且内循环n的次数依赖于外循环m（对应每行输出不同的个数）。 一级算法 FOR m:=0 TO 10 DO BEGIN 1、输出每行的第一个值，左面留空 2、输出每行的其余值 3、换行 END 二级求精 第1步 输出每行的第一个值，左面留空 c:=1 33 write(c:40-3*m) 第2步 输出每行的其余值 FOR n:=1 TO m DO BEGIN c:=c*(m-n+1) DIV n write(c:6) END 34 第9课PASCAL编程基本知识复习20080407 一、填空题： 1、标识符是__以字母开头的字母、数字组合__。标识符可用来表示_常量_、__变量__、类型、文件、函数、过程、程序的名字。标识符的长度是没有限制的。但标准PASCAL规定能区分的有效标识符长度是__8__。标识符的选取最好__有一定的含义__，这样便于记忆，也增加了程序的可读性。（5） 2、尽可能多地写出你知道的函数名称及功能（20） 函数 例：sqrt() abs( ) sqr( ) ord( ) chr( ) pred( ) succ( ) odd( ) trunc( ) 3、写出四种标准数据类型标识符（4） 实型 real 字符型 char 4、从程序的结构看，PASCAL程序的四种基本结构包括：_顺序结构_、__选择结构_、__循环结构__、函数与过程结构。（3） 35 功能 开方 绝对值 平方 取序号 取字符 前导字符 后继字符 奇函数 去掉小数部分 函数 round( ) exp( ) ln( ) sin( ) cos( ) arctan( ) 功能 四舍五入，取整数 以e为底的指数 以e为底的自然对数 正弦函数 余弦函数 余切函数 整型 integer 布尔型 boolean