常州小孩编程,小孩电脑学习,pascal培训

劳逸结合,保兴趣
Pascal作为程序设计语言相对于LOGO的图形编程来讲要抽象、难懂些。作为自控能力不是很强的小学生，教师在教学过程中要有针对性，要尽量劳逸结合,想方设法让学生保持高昂的学习兴趣。
因材施教 巧辅导
（一）降低难度，弃难从易
首先，要从教材和辅导内容上降低难度。
小学生Pascal程序设计竞赛辅导的过程其实也是一个探究如何找到小学生心智所能达到的思维及创造力的临界点。既要灌输一般人认为只有初、高中学生才能学及的数学知识及思维方式，又要让学生乐此不疲，吃得饱，撑不到。它可以培养学生严密的逻辑思维能力、积极的探索创造能力、严谨的科学研究精神、丰富的空间想象能力。这些能力和精神完全可以迁移到其他课程的学习和生活当中去，也可为学生就读初、高中后参加更高层次的全国青少年信息学奥林匹克竞赛(NOI)打下坚实基础
求把一个整数n无序划分成k份互不相同的正整数之和的方法总数。
[分析] 这是一道动态规划题，动态方程如下：
　　　　　　　f[i-1,j]+f[i,j-i]+1 （(j mod i=0) and (j div i=1)）
　　f[i,j]:= f[i-1,j] (i>=j)
　　　　　　　f[i-1,j]+f[i,j-i] （else）
　　s:=f(k,n-k)
本题可以用循环来实现递推,也可以考虑用递归求解。主过程如下：方案一：
Procedure work(I,j:longint; var s:longint);
　Var t:longint;
　Begin
If (i=1) or (j=1) then s:=1
　Else if (i=0) or (j=0) then s:=0
　　　Else begin
　　　　　　　if (j mod i=0) and (j div i=1) then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　work(i-1,j,s);
　　　　　　　　　　　　　t:=s;
　　　　　　　　　　　　　work(i,j-1,s);
　　　　　　　　　　　　　s:=s+t+1;
　　　　　　　　　　　　end
　　　　　　　　　　　　else if (i>=j) then
　　　　　　　　　　　　　　　　　　　　　　work(i-1,j)
　　　　　　　　　　　　　　else begin
　　　　　　　　　　　　　　　　　　work(i-1,j,s);
　　　　　　　　　　　　　　　　　　t:=s;
　　　　　　　　　　　　　　　　　　work(I,j-1,s);
　　　　　　　　　　　　　　　　　　s:=s+t;
　　　　　　　　　　　　　　　　　end;
　End;

方案二：procedure search(v,w,last:byte);
var i:byte;
begin
　if w=0 then inc(count)
　else
　　if w=1 then
　　　if v>=last then search(0,0,0) else
　　else for i:=last to v-1 do search(v-i,w-1,i);
end;