初识pascal.pptVIP

邮箱 xmshong@163.com 上传1寸白底电子照片到邮箱，发邮件时候注明班级和姓名。 初识pascal语言 信息学奥林匹克竞赛是一项益智性的竞赛活动，核心是考查选手的智力和使用计算机解题的能力。选手首先应针对竞赛中题目的要求构建数学模型，进而构造出计算机可以接受的算法，之后要写出高级语言程序，上机调试通过。 程序设计是信息学奥林匹克竞赛的基本功。 程序设计=数据结构+算法 盖房子 钢筋、水泥 原料 设计图纸 　例1：输入一个圆的半径，求出其圆周长。 　　设圆的半径为r，周长为L　　 　　program ex1(input,output); 程序首部 　　const pi=3.14159 ; 　　var L,r:real; 说明部分 　　begin 　　readln(r); 　L:=2*pi*r; 执行部分 　 writeln(‘L=’,L); 　　 end. (1)、程序首部 ??????????? ?Program? 程序名； 程序名由用户自己取，它的第一个字符必须是英文字母，其后的字符只能是字母或数字和下划线组成，程序名中不能出现运算符、标点符和空格。 （2）、变量说明的格式为:?? Var? 变量表：类型； 如：var L,r:real; var a,b,c:integer; 实数类型 整数类型 （3）、赋值语句的格式为: ???????? 变量:=表达式； :=是赋值符号， 赋值语句的作用是将右边表达式的值记录到左边的变量中。 例2：输入两个整数a和b，计算a和b的和。 (假设和为c) program ex2; var a,b,c:integer; begin write(‘a=’); read(a); write(‘b=’); read(b); c:=a+b; writeln(a,‘+’,b, ‘=’，c); end. Free Pascal的运用 例3:将一张100元的大钞票，换成等值的10元、5元、2元、1元一张的小钞票，每次换成40张小钞票，每种至少一张，求有多少种算法。 program ex3; var x,y,z,r,n:integer; begin n:=0; for x:=1 to 10 do for y:=1 to 20 do for z:=1 to 37 do for r:=1 to 37 do if (10*x+5*y+2*z+1*r=100)and(x+y+z+r=40) then n:=n+1; writeln(n); end. 50 100