数组（四）--应用1.pptVIP

一维数组的应用 进制转化 筛法求素数 例 求素数表：输入一个自然数n，输出１到n之间的所有素数。 求100以内的素数 Program exe6_1; Var a:array[2..100]of boolean; i,k:integer; Begin for i:=2 to 100 do a[i]:=true; for i:=2 to 49 do if a[i] then for k:=i+1 to ( ) do if k mod i =0 then ( ); Writeln(‘zishu:’); For i:=2 to 100 do if ( ) then write (i:4); End. 例6-8（p90） 通式s=a[i]+a[(i+1)mod 20] +a[(i+2)mod 20] +a[(i+3)mod 20](0=i=19) 表示什么含义？ 下标i范围为何不取【1..20】？ 当i=18时，分别表示哪4个数相加？ 哪一段程序用于求最大和与最小和？用的什么思想。 还有什么需要解决的问题？ 例6-9（p91） Score数组的功能是什么？ Select in[‘A’,’B’,’C’,’D’]集合运算 用的什么排序方式进行得票数的统计？ 如果改为其他两种方式的排序？程序怎么修改？ 还有什么需要解决的问题？ 江苏省锡山高级中学 信息技术教研组 * 例如：编程实现。将一个十进制整数转换为二进制数。 知识回顾：将十进制整数45转换成二进制数 45 2 22 余数 高位 低位 1 0 1 1 0 1 2 11 2 5 2 2 2 1 0 于是得到：（45）10=（101101）2 一维数组的应用—进制转化 program pjinzhi_1; var b:array[1..50] of 0..1; x:longint; i,length:integer; begin for i:=1 to 50 do b[i]:=0; write(input Decimal data x:); read(x); i:=1; length:=i-1; for i:=length downto 1 do write(b[i]); writeln; end. 一维数组的应用—进制转化 while x0 do begin b[i]:=x mod 2; x:=x div 2; i:=i+1; end; 知识回顾：将十进制小数0.625转换成二进制小数 0.625 2 × 1 . 250 × 2 0 . 500 1 . 000 × 2 整数部分 1 0 1 高位 低位 于是得到：（0.625）10=（0.101）2 想一想：将十进制小数转化为二进制小数用的是乘2取整的方法，如果要求将十进制小数转化为二进制数，程序该如何改动？十进制实数改成二进制呢？ program pjinzhi_2; var b:array[1..50] of 0..1; x:real; i,length:integer; begin for i:=1 to 50 do b[i]:=0; readln(x); i:=1; length:=i-1; write(Binary: 0