高中信息技术算法与程序设计知识树教案学案.ppt

高中信息技术 算法与程序设计 知识树教案学案,东风一中信息技术组,算法与程序设计知识树,1.信息技术与电子计算机,2.揭开计算机病毒的神秘面纱,3 编程序解决实践问题,4我们的信息高速公路,1.5网络技术与网站设计,1.6计算机操作系统,退出,一. 基础知识 (30%),1. 程序的三种基本结构: 计算机硬件直接识别的语言: PASCAL语言编译执行命令:compile 4. Turbo Pascal快捷键Ctrl+F9，ALT+F5。 5. 变量的四种基本类型 var n:XX 6. 计算机通用的二进制编码 7. PASCAL表达式运算符 SQR SQRT mod div Succ Pred ORD 8. 布尔表达式 not ( 5 div 3 = 1) 的值( ).,1. Program t1( output ) ； Var i ： integer ； Begin write( 1,2 ); writeln( 3,4,5 ); write( 6 ); writeln( 7*8= ) ; writeln( 9 ); END.,二 写出程序运行结果40%,运行结果： 2 3 4 5 7*8= 9,2、program t2(input,output);,Var i ： integer ； Begin for i：= 5 downto 1 do write( * ) ； END.,运行结果*,3、 Program t3( input , output ) ； Var m , n, t ：integer；,Begin m:=8; n:=m+2000; m:=m+1; Writeln (m:5, n:5) ； If mn then Begin t:=m; m:=n; n:=t end Writeln(m= , m , n= , n ) END.,运行结果 9 2008 m=2008 n=9,4. Program t4( input , output ) ；,Var k , ch ：char； Begin FOR k：=c TO h do begin Ch：= pred(k) Write(ch) ； end END.,运行结果： b c d e f g,5Var pref, lastf, ff, n : integer;,运行结果 2 3 5 8 13 Fibonacci,Begin Pref:=2; lasft:=3; Writeln(pref , lastf) ; For n:= 1 to 12 do Begin ff: =pref+lastf; Pref:=lastf; Last:=ff; Writeln(ff : 6) End end.,6 Program t6 ;,运行结果 1 1 1 2 1 3 2 1 2 2 2 3,Var m , n：integer; Begin for m：=1 to 2 do for n:= 1 to 3 do writeln (m , n) ; End.,7 PRIME,7. Program t7( input , output ) ； Var P, k：integer; Begin p:=889; for k：=2 to p-1 do begin if ( p mod k =0 ) then writeln (prime ,no) ; break; end End .,三、找出程序中的错误, 并指出错误原因(6%),PROGRAM T9 ( input , output ) VAR m, n：integer ; S：real； BEGIN read( m , S) ； n：= m + S ； writeln( n：10：2) END,2.找错误,PROGRAM T10( input , output ) ； VAR x , y ：integer； BEGIN Readln(x)； If x0 then y：= 1 ； else y：=0 else y：=1 ; writeln(y, f ) END.,常见错误:,结束符 . 分号 ; 未加说明的变量 IF/ELSE 格式 类型相容性 单、双场宽,四、程序设计（ 8+ 9+ 3=20）,1计算S= 1+2*2+3*3+4*4+25*25 2邮费根据路程的折扣： (a金额， R折扣） a 500 元 R=0%; 500a1000 R=5%； 1000a2000 R=8%; 2000a R=10%; 输入路程数，输出所需交的费用.,五、根据流程图完善代码,杨辉三角,VAR I , j : integer; Begin For i:=0 to 10