1 / 16

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

高中信息技术 算法与程序设计 知识树教案学案. 东风一中信息技术组. 算法与程序设计知识树. 1. 信息技术与电子计算机. 2. 揭开计算机病毒的神秘面纱. 3 编程序解决实践问题. 4 我们的信息高速公路. 1.5 网络技术与网站设计. 1.6 计算机操作系统. 退出. 一 . 基础知识 (30%). 1. 程序的三种基本结构 : 计算机硬件直接识别的语言 : PASCAL 语言编译执行命令 :compile 4. Turbo Pascal 快捷键 Ctrl+F9 ， ALT+F5 。 5. 变量的四种基本类型 var n:XX

shay
Download Presentation

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

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 高中信息技术算法与程序设计知识树教案学案 东风一中信息技术组

  2. 算法与程序设计知识树 1.信息技术与电子计算机 2.揭开计算机病毒的神秘面纱 3 编程序解决实践问题 4我们的信息高速公路 1.5网络技术与网站设计 1.6计算机操作系统 退出

  3. 一. 基础知识 (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) 的值( ).

  4. 二写出程序运行结果40% 1. Program t1( output ) ； Var i ： integer ； Begin write( 1,2 ); writeln( 3,4,5 ); write( 6 ); writeln( ‘7*8= ’ ) ; writeln( 9 ); END. • 运行结果： • 2 3 4 5 • 7*8= • 9

  5. 2、program t2(input,output); Var i ： integer ； Begin for i：= 5 downto 1 do write(' * ') ； END. • 运行结果*****

  6. 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 m<n then Begin t:=m; m:=n; n:=t end Writeln(‘m=’ , m , ‘n=’ , n ) END. 运行结果 9 2008 m=2008 n=9

  7. 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

  8. 5．Var pref, lastf, ff, n : integer; 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. • 运行结果 { 2 3} 5 8 13 …… Fibonacci

  9. 6 Program t6 ; Var m , n：integer; Begin for m：=1 to 2 do for n:= 1 to 3 do writeln (m , n) ; End. • 运行结果 • 1 1 • 1 2 • 1 3 • 2 1 • 2 2 • 2 3

  10. 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 .

  11. 三、找出程序中的错误, 并指出错误原因(6%) PROGRAM T9 ( input , output ) VAR m, n：integer ; S：real； BEGIN read( m , S) ； n：= m + S ； writeln( n：10：2) END

  12. 2.找错误 • PROGRAM T10( input , output )　； • VAR x , y ：integer； • BEGIN • Readln(x)； • If x<0 then y：= —1 ； • else y：=0 • else y：=1 ; • writeln(y,f ) • END.

  13. 常见错误: • 结束符 . • 分号 ; • 未加说明的变量 • IF/ELSE 格式 • 类型相容性 • 单、双场宽

  14. 四、程序设计（ 8+ 9+ 3=20） 1．计算S= 1+2*2+3*3+4*4+……+25*25 2．邮费根据路程的折扣： (a金额， R折扣） a< 500 元 R=0%; 500≤a<1000 R=5%； 1000≤a<2000 R=8%; 2000≤a R=10%; 输入路程数，输出所需交的费用.

  15. 五、根据流程图完善代码

  16. 杨辉三角 • VAR I , j : integer; • Begin • For i:=0 to 10 do • begin • C:=1; • Write(c： 40-i*3); • For j:=1 to i do • c:=c*(i-j+1) div j; • Write(c:6); • Writeln; • End; • End.

More Related