第1讲Pascal语言基础知识.pptVIP

第一讲 Pascal语言基础;信息学奥赛的内容： 程序=计算机语言+数据结构+算法; 信息学奥林匹克竞赛属于智力与应用计算机解题能力的比赛，题目有相当的难度，解好这类题目，需要具备很强的综合能力． 1、观察和分析问题的能力； 2、将实际问题转化为数学模型的能力； 3、灵活地运用各种算法的能力； 4、熟练编写程序并将其调试通过的能力； 5、根据题目的要求，自己设计测试数据，检查自己的解法是否正确、是否完备的能力． 能够参加信息学竞赛的选手应该具有很强的自学能力，需要学习有关组合数学、图论、基本算法、数据结构、人工智能搜索算法及数学建模等知识，还要学会高级语言和编程技巧，要具备很强的上机操作能力．;选手应具备的条件： 前提：综合成绩突出 1、扎实的数学基础。 2、很强的自学能力。 3、与同学之间的密切友好的合作与交流。 4、持之以恒，坚持不懈的学习。 5、耐得住枯燥与寂寞。 6、不能以参加竞赛为理由而耽误了其他文化课的学习。 ;程序的基本结构 ;例1： 要将一张100元的大钞票，换成等值的10元、5元、2元、1元一张的小钞票，每次换成40张小钞票，每种至少1张。 如，有一种换法： 10元： 9 张 5元： 1 张 2元： 2 张 1元： 1 张 问：一共有多少种换法。;program ex1; var x1,x2,x3,x4,n:integer; begin n:=0; for x1:=1 to 10 do for x2:=1 to 20 do for x3:=1 to 50 do for x4:=1 to 100 do if (10*x1+5*x2+2*x3+x4=100)and(x1+x2+x3+x4=40) then n:=n+1; writeln(n); end.;例2? 、 已知： s=1+1/2+1/3+…+1/n 求：使s的值大于10时最小的n。;var s : real; n : integer; begin s:=0; n:=0; while s=10 do begin n:=n+1; s:=s+1/n; end; writeln(n); end.;例3、编一个程序，从键盘输入一个真分数的分子和分母，输出它的小数形式，精确到小数点后1000位。 ;var n,m,r,q,i:integer; begin read(n,m); r:=n; write(0.); i:=1; while i=1000 do begin q:=10*r div m; r:=10*r mod m; write(q); i:=i+1; end; end.;上机调试运行步骤：;program 程序名；{可以省略}var 　变量说明；begin　语句；　语句；　……　语句;end.;;2、完整的pascal程序框架：;知识预备 基本符号、保留字、标识符 一、变量的定义说明： 二、Pascal数据类型（整型、实型） 三、基本语句(赋值语句、输入语句read、输出语句write) 四、算术运算符和算术表达式 五、标准函数（数值型函数）;基本符号、保留字、标识符;2．保留字： 保留字是指pascal语言中一些有特殊含义的英文单词，它们已被pascal语言自己使用，都有专门的用途。 Pascal 语言中保留字有36个，可分为以下六种类型： ① 程序、函数、过程的符号： program，function，procedure ② 说明部分的专用定义符号： array，const，file，label，packed，var，record，set，type，of ③ 语句专用符号： case，do，downto，else，for，goto，if，repeat，then，to，until，while，with，forward ④ 运算符号： and，div，in，mod，not，or ⑤ 分隔符号： begin，end ⑥ 空指针常量： Nil 7. PROTECTED, PUBLIC, PUBLISHED, TRY, FINALLY,