信息学编程基础培训第一篇.pdfVIP

信息学编程基础培训 第一篇 程序的体验与入门 一、体验感知计算机程序的功能和奥妙 【例1】 百元买百鸡问题：公鸡3 元/只，母鸡5元/只，小鸡 1元/3 只，请问如果用100元 钱刚好买100 只鸡，应该如何买 （简单计算问题） program lx1(input,output); var i,j,k,p:integer; begin writeln( mj, gj, xj); for i: 1to20 do forj: 1to 33 do begin p: i*5+j*3; if(100-p)*3+i+j 100thenwriteln(i:5,j:5,(100-p)*3:5); end; end. 【例2】 计算从三角形中能切割出多少个正方形？ （推理计算问题） a 一等腰直角三角形，腰长为 ，从三角形中依次分离出 2 2 2 (a/2) (a/4) (a/8) 面积为 、 、 ，……的正方形，直到剩余的面 积等于或小于原面积的10%为止，问至少可以分离出多少个 15 正方形？ （答案 个） program qgzfx(input,output); var i,k:integer; s,s0,a:real; begin write(InputA );read(a); s0: (a*a)/2; s: s0; i: 1; k: 0; repeat a: a/2; s: s-a*a*i; k: k+i; i: i*2; until s 0.1*s0; writeln(); writeln(K ,k); end. 【例3】 求豆子下落到各档内的概率问题？ （随机计算问题） 有一个容器，入口处为一个通道，经过一个菱形隔板后变成两 个通道，再经过两个菱形隔板后又变成三个通道。依此类推，最底 层为七个格子，将豆子从容器中的入口处一粒一粒落下，豆子每经 过一个隔板，向左向右下落的机会均等，试分析豆子落入最底层每 格的概率是多少？ （正态分布） program lx2(intput,output); var i,j,t:integer; r:real; a:array [1..7] ofinteger; begin randomize; for i: 1to 1000 do begin t: 1; forj: 1to 6do begin r: random; ifr0.5then t: t+1; end; a[t]: a[t]+1; end; for i: 1to 7 dowriteln(a[,i,] ,a[i],,a[i]/1000:5:2); end. 【例4】 计算通讯员所跑路程问题 （计算问题） A B 100 A 5-10 / 一次演习， 、 两队约好同一时间从相距 公里的各自驻地出发相向运动， 队速度为 公里 B 4-8 / A 小时， 队为 公里小时，通讯员骑车从 队驻地也在同一时间为行进中的两队传递消息，骑车速度为 30-60 / 0.5 公里小时，往返于两队之间，当两队相距 公里时，通讯员停下，请计算他共跑了