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

1、高中信息技术高中信息技术算法与程序设计算法与程序设计知识树教案学案知识树教案学案算法与程序设计知识树算法与程序设计知识树算法与程序设计知识树算法与程序设计知识树算法与程序设计知识树算法与程序设计知识树揭开计算机病毒的神秘面纱揭开计算机病毒的神秘面纱我们的信息高速公路我们的信息高速公路网络技术与网站设计网络技术与网站设计计算机操作系统计算机操作系统一一一一一一. 基础知识 (30%)1. 程序的三种基本结构程序的三种基本结构:2. 计算机硬件直接识别的语言计算机硬件直接识别的语言: 3. pascal语言编译执行命令语言编译执行命令:compile4. turbo pascal快捷键快捷键ctr

2、l+f9，alt+f5。5. 变量的四种基本类型变量的四种基本类型 var n:xx6. 计算机通用的二进制编码计算机通用的二进制编码7. pascal表达式运算符表达式运算符 sqr sqrt mod div succ pred ord8. 布尔表达式布尔表达式 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. 二二二二二二 写出程序运

3、行结果40%运行结果：1 2 3 4 56 7*8=92、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.

4、 运行结果 9 2008 m=2008 n=94. 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 g5var pref, lastf, ff, n : integer; 运行结果 2 3 5 8 13 fibonaccibegin pref:=2; lasft:=3; writeln(pref , lastf) ; for n:= 1 to 12 do begin ff: =pref+last

5、f; pref:=lastf; last:=ff; writeln(ff : 6) end end.6 program t6 ; 运行结果 1 1 1 2 1 3 2 1 2 2 2 3var 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 writel

6、n (prime ,no) ; break; endend . 三、找出程序中的错误, 并指出错误原因(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%； 1000a=90 且且 s=90 t f打印打印 pass y+s185 t f输出输出pass打印打印fail杨辉三角 var i , j : integer; begin for i:=0