资 源 简 介
程序 stleft (var vobn,x1s,y1s,x、 y、 plx x 1,x 2,y1,y2:integer) ;
开始
案例 vobn 的
9,8,12,17,13,19,16,5,15: 开始
y1s: = y1 + y;
x1s: = x 1 + x ;
如果 vobn = 8 然后 y1s: = y1s + 10 ;
如果 vobn = 13 然后 y1s: = y1s + 20 ;
结束 ;
3、 10: 开始
y1s: = y2 + y;
x1s: = x 2 + x ;
结束 ;
2,6、 18: 开始