Pascal语言基础知识一分析.ppt

* * Pascal语言程序设计 山东师范大学附中 赵宗昌 信息学奥赛的内容： 程序=计算机语言+数据结构+算法 Free Pascal 信息学奥林匹克竞赛属于智力与应用计算机解题能力的比赛，题目有相当的难度，解好这类题目，需要具备很强的综合能力． 1、观察和分析问题的能力； 2、将实际问题转化为数学模型的能力； 3、灵活地运用各种算法的能力； 4、熟练编写程序并将其调试通过的能力； 5、根据题目的要求，自己设计测试数据，检查自己的解法是否正确、是否完备的能力． 能够参加信息学竞赛的选手应该具有很强的自学能力，需要学习有关组合数学、图论、基本算法、数据结构、人工智能有哪些信誉好的足球投注网站算法及数学建模等知识，还要学会高级语言和编程技巧，要具备很强的上机操作能力． 考察的能力： 选手应具备的条件： 前提：综合成绩突出 1、扎实的数学基础。 2、很强的自学能力。 3、与同学之间的密切友好的合作与交流。 4、持之以恒，坚持不懈的学习。 5、耐得住枯燥与寂寞。 6、不能以参加竞赛为理由而耽误了其他文化课的学习。 7、坚决抵制玩游戏、上网聊天。 例1： 要将一张100元的大钞票，换成等值的10元、5元、2元、1元一张的小钞票，每次换成40张小钞票，每种至少1张。 如，有一种换法： 10元： 1 张 5元： 5 张 2元： 31 张 1元： 3 张 问：一共有多少种换法。 问题举例： 例2 、 n个客人围着一个桌子吃饭，每一个人都至少认识其他的2个客人。请设计程序求得n个人的一种坐法，使得每个人都认识他左右的客人。 例3：问题描述 有N个硬币正面朝上排成一排（N=6），每次将5个硬币翻过来放在原位置，直到最后全部硬币翻成反面朝上为止。编程找出最少翻硬币的次数数。 输入 只有一个整数N（1015） 输出 翻硬币的最少次数 样例： 输入：8 输出：4 例4、编一个程序，从键盘输入一个真分数的分子和分母，输出它的小数形式，精确到小数点后1000位。 第一讲 Pascal语言基础一 程序的基本结构 程序的上机调试和运行 语言基础一 例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. 上机调试运行步骤： 1、运行: Free Pascal 2、file?new :新建文件 3、compile?make :编译，找错误。 4、run —〉run：运行 5、debug?output:察看结果