帮忙改一pascal程序

program xj;

var

a:array[15,15]of integer;

i,j,k:integer;

procedure xj1;

begin

for i:=1 to 5 do

begin

for j:=1 to 5 do

write(a[i,j]:3);

writeln;

end;

writeln;

end;

procedure xj2(x,y,i:integer);

var

j,k:integer;

begin

if i<26 then

begin

if (x+1<=5) and (y+2<=5) and (a[x+1,y+2]=0)

then begin a[x+1,y+2]:=i;xj2(x+1,y+2,i+1);a[x+1,y+2]:=0;end;

if (x+2<=5) and (y+1<=5) and (a[x+2,y+1]=0)

then begin a[x+2,y+1]:=i;xj2(x+2,y+1,i+1);a[x+2,y+1]:=0;end;

if (x+2<=5) and (y-1>=1) and (a[x+2,y-1]=0)

then begin a[x+2,y-1]:=i;xj2(x+2,y-1,i+1);a[x+2,y-1]:=0;end;

if (x+1<=5) and (y-2>=1) and (a[x+1,y-2]=0)

then begin a[x+1,y-2]:=i;xj2(x+1,y-2,i+1);a[x+1,y-2]:=0;end;

if (x-1>=1) and (y-2>=1) and (a[x-1,y-2]=0)

then begin a[x-1,y-2]:=i;xj2(x-1,y-2,i+1);a[x-1,y-2]:=0;end;

if (x-2>=1) and (y-1>=1) and (a[x-2,y-1]=0)

then begin a[x-2,y-1]:=i;xj2(x-2,y-1,i+1);a[x-2,y-1]:=0;end;

if (x-2>=1) and (y+1<=5) and (a[x-2,y+1]=0)

then begin a[x-2,y+1]:=i;xj2(x-2,y+1,i+1);a[x-2,y+1]:=0;end;

if (x-1>=1) and (y+2<=5) and (a[x-1,y+2]=0)

then begin a[x-1,y+2]:=i;xj2(x-1,y+2,i+1);a[x-1,y+2]:=0;end;

end

else if i=26 then xj1;

end;

begin

a[1,1]:=1;

xj2(1,1,2);

end

现写来不及了 给你个现有的改下吧

下面的代码是一个在55的棋盘上的跳马问题。只输出了所走过的各位置的坐标。

#include "stdioh"

#define MAX 8

int a[MAX][MAX];

int b[MAXMAX],c[MAXMAX];

int scheme;

//显示符合规则的跳马方案

void print(void)

{

int i;

for(i=0;i<MAXMAX-1;i++)

printf("(%d,%d)\t",c[i],b[i]);

//统计方案总数

++scheme;

printf("\n");

}

//跳马函数，通过递归调用，寻找下一步的位置

int horse(int x,int y,int step)

{

int i,j;

//标识棋子在棋盘中的当前位置已跳过

a[x][y]=1;

//记录棋子在棋盘中的当前位置

b[step]=x;

c[step]=y;

//判断是否找到符合规则的完整的跳马方案(跳马步数为24步时)

if(step>=MAXMAX-1)

print(); //打印完整的跳马路径

//寻找下一步位置，共有八种可选位置，逐一迳行试探，

//如果符合要求(此位置不越界，在棋盘内，且此点未被跳过),

//则继续递归调用寻找此位置的下一位置，如此点不符合要求，

//则返回0，递归回退。

if((i=x+1)>=0 && (i=x+1)<MAX && (j=y+2)>=0 && (j=y+2)<MAX && !a[i][j])

if(horse(i,j,step+1))

return 1;

if((i=x+2)>=0 && (i=x+2)<MAX && (j=y+1)>=0 && (j=y+1)<MAX && !a[i][j])

if(horse(i,j,step+1))

return 1;

if((i=x+2)>=0 && (i=x+2)<MAX && (j=y-1)>=0 && (j=y-1)<MAX && !a[i][j])

if(horse(i,j,step+1))

return 1;

if((i=x+1)>=0 && (i=x+1)<MAX && (j=y-2)>=0 && (j=y-2)<MAX && !a[i][j])

if(horse(i,j,step+1))

return 1;

if((i=x-1)>=0 && (i=x-1)<MAX && (j=y+2)>=0 && (j=y+2)<MAX && !a[i][j])

if(horse(i,j,step+1))

return 1;

if((i=x-2)>=0 && (i=x-2)<MAX && (j=y+1)>=0 && (j=y+1)<MAX && !a[i][j])

if(horse(i,j,step+1))

return 1;

if((i=x-2)>=0 && (i=x-2)<MAX && (j=y-1)>=0 && (j=y-1)<MAX && !a[i][j])

if(horse(i,j,step+1))

return 1;

if((i=x-1)>=0 && (i=x-1)<MAX && (j=y-2)>=0 && (j=y-2)<MAX && !a[i][j])

if(horse(i,j,step+1))

return 1;

//对没找到合适位置的处理

//至当前位置状态为0，恢复未跳过状态

a[x][y]=0;

//清除设置记录跳过位置的坐标

b[step]=c[step]=-1;

return 0;

}

int main(int argc, char argv[])

{

int i,j;

//初始化棋盘位置

for(i=0;i<MAX;i++)

for(j=0;j<MAX;j++)

a[i][j] = 0;

//初始化记录坐标数组

for(i=0;i<MAX;i++)

b[i] = c[i] = -1;

//寻找符合要求的方案

horse(0,0,0);

printf("There are %d schemes\n",scheme);

return 1;

}

#include<iostreamh>

#include<iomaniph>

#include<stdioh>

const int N = 8;

int w = 0;

int way1[8] = {-2, -1, 1, 2, 2, 1, -1, -2};

int way2[8] = { 1, 2, 2, 1, -1, -2, -2, -1};

int ch[NN] = { 0 };

int a[NN+1][3] = { 0 };

int dir[N][N][8];

int st = 1;

char c = 'y';

int weight[N][N];

void caculate();

void dirctions();

void print();

int check(int i, int j);

void caculate() { //计算各点的权值

int i, j, k;

for(i = 1; i <= N; i++)

for(j = 1; j <= N; j++)

for(k = 0; k < N; k++) {

int x, y;

x = i + way1[k];

y = j + way2[k];

if ( x >= 1 && x <= N && y >= 1 && y<=N )

weight[i-1][j-1]++;

}

}

int check(int i,int j) { //检查(i,j)是否在棋盘内

if( i < 1 || i > 8 || j < 1 || j > 8 )

return 0;

return 1;

}

void directions() { //求出各点的最佳方向序列，即优先向权值小的方向

int i, j, k, m, n1, n2, x1, y1, x2, y2, way_1, way_2;

for(i = 0; i < N; i++)

for(j = 0; j < N; j++) {

for(k = 0; k < 8; k++)

dir[i][j][k] = k;

for(k = 0; k < 8; k++) {

for(m = k + 1; m < 8; m++) { //对每个方向考察看有没有更好的

way_1 = dir[i][j][k];

x1 = i + way1[way_1];

y1 = j + way2[way_1];

way_2 = dir[i][j][m];

x2 = i + way1[way_2];

y2 = j + way2[way_2];

n1 = check(x1+1,y1+1);

n2 = check(x2+1,y2+1);

if( ( n1==0 && n2 ) || //k方向不可达到，而m方向可达到

( n1 && n2 && weight[x1][y1] > weight[x2][y2] )//都可达到但m方向权值小

) {

dir[i][j][k] = way_2;

dir[i][j][m] = way_1; //交换两个方向值

}

}

}

}

}

void print() {

int x, y;

cout<<"\n---------"<<++w<<"answer---------\n";

for(x = 1; x < N + 1; x++) {

cout<<endl;

for(y = 1; y < N + 1; y++)

cout<<setw(3)<<ch[(x-1)N+y-1];

cout<<endl;

}

cout<<"\nPress n to quit ,press any other key to continue\n";

c = getchar(); //询问是否继续输出结果

}

void main() {

int x, y, way, way0;

caculate();

directions();

cout<<"Please enter the row and column of the starting point\n";

cin>>a[1][0]>>a[1][1]; //输入行数和列数

getchar(); //接收回车符

x = a[1][0], y = a[1][1];

ch[(x-1)N+y-1] = 1; //在ch数组中对相应点赋值

while(1) {

if(a[1][2] >= 8) //出发点的八个方向都已走过，表示所有的方法均已找出

break;

if(a[st][2] >= 8) { //此点的八个方向都已走过，应该退回到上一次走的点

x = a[st][0];

y = a[st][1];

ch[(x-1)N+y-1] = 0; //将这一点被走过的痕迹抹去

a[st][0] = a[st][1] = a[st][2] = 0;

a[st-1][2]++; //使上一次走的点走的方向发生变化

st--; //步数减一

}

else { //此点的八个方向未全走过，应走此方向

way0 = a[st][2];

a[st][2]++; //确定下次应走的方向

x = a[st][0];

y = a[st][1];

way = dir[x-1][y-1][way0];

x = a[st][0] + way1[way];

y = a[st][1] + way2[way]; //确定按这次的方向走应走到的x,y坐标

if(x<1||y<1||x>N||y>N||ch[(x-1)N+y-1]!=0) //此点不满足要求

continue;

ch[(x-1)N+y-1] = ++st; //走到这一点

a[st][0] = x;

a[st][1] = y;

a[st][2] = 0; //标记这一步

if(st == NN) { //步数已满

print(); //输出结果

if(c == 'n')

break;

ch[(x-1)N+y-1] = 0;

a[st][0] = a[st][1] = a[st][2] = 0;

a[st-1][2]++;

st--; //退回前一步

}

}

}

}

COS(X+30) 0≤X<10

Y= (COS(X+75))2 10≤X<20

(COS(X+40))4 20≤X<30

2 读入一个三位数字的正整数,将其反向输出

3 输出三个数中的最大数

4 x,y,z的值分别为1,11,111,将它们靠左边对齐输出

5 x,y,z的值分别为1,11,111,将它们靠右边对齐打印输出

6 对于输入的方程系数,求二元一次方程组的解

7 输入两整数,求出它们的最大公约数和最小公倍数

8 对于输入的MAX个数字,统计其中奇,偶数的个数

9 找出10个数中的最大和最小数字

10 吉普车问题希望一辆吉普车以最少的燃料消耗跨越1000公里的沙漠 现已知吉普车总装油量为500升,耗油率为 1 升/公里在沿途无加油站 所以利用吉普车自己运油逐步前进问要多少油才能使吉普车以最少油耗跨越 1000公里沙漠

11 求下面第N个fibonacci数其定义为

f(0)=0,f(1)=1,f(n)=f(n-1)+f(n-2) (n>=2)

12 求下面的Armstrong数,Armstrong数是一个N位数,它的值等于每位数字的N次幂的和例如153=1^3+5^3+3^3试求999以内的Armstrong数

13 马戏团有鸟和大象,它们共有 36 个头,100只脚问有多少只鸟和大象

14 100匹马驮100担货,大马一匹驮3担,中马一匹驮2担,小马2匹驮1担计算大,中,小马的数目

15 打印数字金字塔 1

1 2 1

1 2 3 2 1

1 2 3 4 3 2 1

16 找出2000以内的勾股数 (a2=b2+C2)

17 将1元钱兑换成1,2,5分及1,2,5角钱,有多少种可能

18 打印乘法口诀表

19 有一对兔子,出生一个月后变成一对小兔子,两个月后生出第一小兔子, 自己变成一对老兔子,此时共有二对兔子,(一老一小),三个月后,老兔子又生出一对小兔子,上个月生的小兔子变成大兔子,此时共有三对(老,大小各一对),四个月后,大变老,小变大,二对老兔子又生二对小兔子,此时共有五对(老,小各二对,大的一对)计算11个月后共有多少对兔子？

20 打印方阵 A B C D E

B C D E A

C D E A B

D E A B C

E A B C D

21 按字母表顺序和逆序每隔一个字母打印即输出如下:

a c e g i k m o q s u w y

z x v t r p n l j h f d b

22 计算机产生一个 0-100的随机整数,由你猜计算机对你猜的数分别不同情况作出三种不同的反应,太大(TOO BIG),太小(TOO SMALL),正好(FIT)当猜着时,就输出你猜的次数和猜中的数

23 如果一个自然数等于它的全部约数(不包括这个数本身)之和,则这个自然数称为完全数例如6本身以外的约数为 1,2,3,而6=1+2+3所以6是一个完全数求出自然数中前3个完全数

24 将一真分数写成几个分子是一的分数的和的形式

25 有趣的数学问题: 某学校组织 M 名学生前往离校 X 公里处参加军事训练可是,目前只有一部可坐 N 个人的汽车,其中M>=N假如已知学生们的步行速度为A公里/小时,汽车的速度是 B 公里/小时,其中 A<B,学生们上下车的时间忽略不计,试设计一个程序求出全体学生到达目的地的最短时间

26 现有零件若干盒,每盒有零件100个,一个小组在制作某种机器时,需要这种零件,第一,二天不需要,第三天需要3个,第四天需要4个,第N天需要N天需要N个,已知此小组工作了40天以上,且恰好用了M盒零件,5<=M<=10,问此小组一共工作多少天,用了几盒零件

27 验证哥德巴赫猜想任意大于 6 的偶数均可表示为二素数之和

28 编程找出M,N(M<N,N为自然数)为何值时,1989的M次方与1989的N次方的最后三位数相等,且M+N的值最小

29 求1/a+1/b,1/a+1/b+1/c,a/b+c/d的最简分数值

30 打印 1 2 3 4 5 6

1 2 3 4 5 6

1 2 3 4 5 6

1 2 3 4 5 6

1 2 3 4 5 6

1 2 3 4 5 6

1 2 3 4 5 6

31 输入5数,倒序输出

32 不用条件语句计算各分数段人数

33 约瑟夫环问题,max人围成一圈,每数到jump,则该人出圈,直至所有人全部出圈为止 试求出圈顺序

34 约瑟夫环问题:

编号为 1,2,3,,N 的N个人按顺时针方向围坐一圈,每人持有一个密码(正整数)从指定编号为 1 的人开始,按顺时针方向自 1 开始顺序报数,报到指定值M时停止报数,报第M的人出列,并将他的密码作为新的M值,从他在顺时针方向的下一人开始,重新从 1 报数,如此类推,直至所有人全部出列为止试编一程序求出列顺序,其中 N<=30,N及密码数从键盘输入

35 编制一程序,要求输出20个数字(0-9),然后统计出在这个数组中相临两数字对出现的次数,如:0,1,5,9,8,7,2,2,2,3,2,7,8,7,8,7,9,6,5,9则程序得到7,8这一数字对出现次数为2;而8,7这一数字对出现次数为3

36 163 如图: 7 个学生按顺时针

① 方向手拉手围成一圈,并顺

172 ⑦ ② 170 序编号 ① ⑦, 用一

164 ⑥ ③ 160 个程序描述这 7个人按身高

167 ⑤ ④ 168 由矮到高重新排列面向内手

拉手的位置关系

图中小圈内的数字为编号, 小圈外的数字为各人的身高

37 读入若干个数,滤掉中值为20的数

38 任意输入N，求数列1,1/2,2/2,1/3,2/3的前N项。

39 将18k的自然数表示成2k行,要求奇数在下,偶数在上(k>0)

例如k=1,则输出: 2 4 6 8

1 3 5 7

k=4,则输出: 2 4 6 8

1 3 5 7

10 12 14 16

9 11 13 15

18 20 22 24

17 19 21 23

26 28 30 32

25 27 29 31

40 打印数字螺旋方阵,这个数字方阵的特点是:数字从外圈向里圈按自然数顺序转圈递增,从左上角的1到中心位置的NN为止,这里的N正好是方阵的行数或列数

41 编写一过程, 读入一个实型表示的度数,将其变成度,分,秒并显示

42 编一过程, 打印直方图,直方图为4行,每列表示1%

43 编写一个函数, 返回一正整数的倒序数字

44 编写一个过程, 倒序输出一正整数每位数字

45 幻方(奇阶和4的倍数阶)

(详见Turbo Pascal的Page 146-17)

46 打印由1——NN组成的NN的螺旋方阵 (N<=50)

例如: N=3 N=4

7 8 9 7 8 9 10

6 1 2 6 1 2 11

5 4 3 5 4 3 12

16 15 14 13

47 验证任意自然数的阶乘均可表示为任意个素数的乘积的形式表示方法:

例如: 5!=222345

48 以输入的自然数N作为行数, 打印杨辉三角形

49 求出输入的N个自然数的最大公约数

50 N 个人进入会场开会(场内只有 N 个坐位), 本应对号入坐,可是N个人全都坐错了位置, 编程输出全都坐错了位置的所有可能坐法,并累计总数,N由键盘输入

51 求B/A+D/C结果表示成最简分数

52 求I!+J!+K!,其中I,J,K由键盘输入

53 求N!

54 将十进制数变为等值二进制数字

55 根据键盘输入的两个数G和H,求出[G,H]中的所有质数如果G<=2或G>H则要求重新输入

56 用递归方法求幂函数mn

57 跳马问题,55方阵,从左上角出发,跳遍所有格

58 一梯子有N格,小明上梯子有时一步上1格,有时一步上2格,编一程序,对任意输入的自然数N,打印出上梯子的所有可能的上法,并指出一共有多少种上法

59 第 13 届世界杯足球赛进入前八名的国家:

ARGENTINA(阿根廷),ENGLAND(英格兰),SPAIN(西班牙),BELGIUM(比利时)

GERMANY (西 德),MEXICO (墨西歌),FRANCE(法 国),BRAZIL (巴 西)

这八个国家的英文名藏在一个字块中:

A M U I G L E B P

P R W Y U B W R Y 需要设计一个程序查找这八个

W V G S T E X A N 国家的第一个字母所在的行和列以

Q N Q E C Y M Z A 及字母的走向字母的走向规定为

H O R N N Z E I M 八个方向,分别用八个字符串加以

W P A G L T X L R 标注,如图:

J R M L K J I L E UP LEFT UP UP RIGHT

F S P A I N C N G LEFT RIGHT

A K W N G F O I A BOEN LEFT DOWN DOWN RIGHT

B P J D C D E H J

要求按国名字符的先后次序打印查找结果, 输出格式规定如下:

NAME(国名) ROW(行) COL(列) DIRECTION(方向)

60 如果一个自然数N写在每个自然数之后则得到一个新数,它们都能被N整除 请找出

61 编一过程READOCAL,读入八进制序列,转换成正整数

62 设计一程序,要求在1到30的数中,读入一个数字,列出它的平方,立方和它本身都含有数字D的数,例如1,则11,121,1331都是这样的数

63 判断一数是否回文数

64 设计一个递归函数计算一个自然数有多少种加表示法

例如:5的加表示法有如下 7 种:

5,4+1,3+2,3+1+1,2+2+1,2+1+1+1,1+1+1+1+1

65 设计一个计算Ackerman函数的函数说明Ackerman函数定义为:

Ack(0,n)=n+1 (n>=0)

Ack(m,o)=Ack(m-1,1) (m>=1)

Ack(m,n)=Ack(m-1,Ack(m,n-1) (m,n>=1)

66 10数已排好序,现要插入一新数,使得新数列仍为排序数列

67 设p(x)是十进制整数x的所有数码的乘积,如整数12 的p(x)值为12=2 试求使下式成立的一切正整数: p(x)=x2-10x-22

68 识别字符串abababab,符合此规律的字符串,输出true,否则输出false,字符串总长度为N

69 编写布尔函数,以函数f为自变量,如果在x=0,01,02,0310时,f(x)均为正,则布尔函数值为true,否则为false

70 在1( )2( )3( )4( )5=( )中填入+,-,及合理数字,使之成为合理等式

71 在1()2()3()4()5()6()7()8()9=S中填入加减号使式子成立

72 在下面算式○中填入加号或减号,使算式结果等于键盘输入的S(S<200的自然数,且 S 是 9 的倍数)如果某个○不填符号,则将前后两个数字连成一个数(如:第一个○不填符号,即读成12),不允许相邻的两个○都不填符号如果对S有多种填法,必须全部填出,如果找不到填法,则打印\'NO!\'

1○2○3○4○5○6○7○8○9=S

73 有如图方阵: R A D A R 试从其中任意R出发,找出产生RADAR

A D A R A 的路线打印每一种方案

D A R A D

A R A D A

R A D A R

74 求1到500之间本身和它二进制全是回文数的数

75 计算s除以1992后的商及余数(利用了字符串)

76 高精度加法

77 高精度乘法

78．对于任意输入的字符串判定其数据类型

79 对于任意N个数,经过处理,要求奇数在前,偶数在后,找所有排法

80有一个火车调度如图:

出口 -----\\ /------ 入口 有5列火车分别编号1,2,3,4,5

-----\\ \\/ /------ 1,2,3,4,5 依次排列于入口处,调度员可以

\\ / 在任意时刻将入口处的头一列

| | 火车拉入车站也可将最后进入

| | 车站的那列火车拉至出口处

车站

编程要求: 1模拟调度员的工作,使所有入口处的火车在出口处重新排列;

2打印出所有的火车在出口处的可能次序;

3若入口处的火车进一步增加到 N 列呢

81 设 X 为一个一维整数数组,其元素由1--N之间的所有整数随机排列,数组下标上限N由键盘输入 设计程序对数组X 的元素按如下定义的打印规则P打印:

(1) 如果 X 为空数组,打印"EMPTY";

(2) 如果 X 的长度是 1,打印出 X 的这个元素值;

(3) 如果 X 的长度大于1,设a是X的最小元素,B和C分别是a的左边元素和右边元素组成的子数组;

(4) 对B,C的所有元素按(1)(2)(3)规则处理,直至数组长度为1 为止

打印规则 P 将 X 数组的所有元素按上述处理原则打印,格式如下:

a

L:B(L 表示 a 的左边)

R:C(R 表示 a 的右边)

例如: X=(4,3,5,1,2),则打印成:

1

L: 3

L: 4

R: 5

R: 2

上述结果表示,数组X的最小元素为 1,1的左边元素组成的子数组B=(4,3,5) 而B的最小元素为 3, 3的左边元素为 4,右边元素为 5; 1的右边元素组成的数组为C=(2),只有一个元素

82 要求设计一个程序,在每行的字间插入适当空白,使得所有行都在同一列结束例如:

OPEN TOP COVER

TRACTOR FIXING RELEASE

在插入空白后变成:

OPEN TOP COVER

TRACTOR FIXING RELEASE

在每行字间插入空白时除了右端需对齐外,还需满足:

(1) 在不同的相临字间的空格最多相差 1;

(2) 对偶数(奇数)行, 所必须出现的空格出现在右端(左端)

83 对键盘输入的任意字符串,比较其相临的每两个字符,相同则输出+,不同输出-,再对新生成的+,-串作同样处理,直至剩一个字符为止

例如: 输入: 101101

则输出: --+--

+--+

-+-

--

+

84 有 NM (N列M行)张邮票连在一起,但其中第T张被挖掉了

举例:下面是45的邮票情况,其中第 13 张被挖掉了,

┌—┬—┬—┬—┐ 现在要求从这些邮票中撕出4张连在一起的邮

│ 1│ 6│11│16│ 票如1,2,3,4或1,2,6,7或 1,2,6,11等,

├—┼—┼—┼—┤ 问符合条件的4张相连的邮票有多少种撕法

│ 2│ 7│12│17│ (注:1,2,3,4 与2,3,4,5看作不同撕法)

├—┼—┼—┼—┤ 要求编写一个通用程序,并按如下格式打印:

│ 3│ 8│ │18│ 输入: 撕几连张

├—┼—┼—┼—┤ 邮票形状 N,M=

│ 4│ 9│14│19│ 被挖掉的邮票位置 N1,N2=

├—┼—┼—┼—┤ 输出: 打印所有撕法及总方案数

│ 5│10│15│20│

└—┴—┴—┴—┘

85 高精度乘方

86 有一个 NN (N为偶数)的图形,请你用 NN/2 个长为 2,宽为1 的长方块,将它全部覆盖,编程找出所有盖法要求每一种盖法不能重复,这里的重复是指经过旋转一个角度,或反过来时相同,输出最好用图形,也可用别的方式

87 MN 矩阵的各顶点随机填 0 和 1, 找出第一个四顶点值相同且面积最小的矩形

88 输入任一单词,统计其中元音和辅音字母出现的次数

89 设有一集合类型为set of 1n,n是主程序中用const说明的整数,试编一过程求出集合元素的个数

90 编一函数,决定一给定字符是字母,数字,空格,标点符号或其它符号

91 编一函数,若传递给它的整数仅包含数字1,3,5,7,9,则返回true,否则返回 false

92．用筛法求素数(255以内)

93 将十进制数N转化为二进制,并将1的所在位数存于集合

94．城市路线问题(如图) ,寻找最短路线图中括号内为里程数

⑽

┏━━━━━━━━━━┓

┃ ⑺ ┃

⑺┏━━━━B━━━━━━┓ ┃

┃ ┃ ┃ ┃

┃ ┏━━╋━━C━━━┻━┓ ┃

┃⑹┃ ┃ ┃ ┃ ┃

┃ ┃ ┃ ⑼┃ ⑸┃ ┃

A ━┫ ┃ ┃ ┃ ┃

┃ ┗━━╋━━╋━━━━━━D┫

┃ ⑽ ┃ ┃ ┃

┃ ┃ ┃ ┃

┃ ┗━━┻━━━━━┓ ┃⑹

┃ ⑽ ┃ ┃

┗━━━━━━━━━━━━━E━┛

(13)

95 一笔画问题 找出一笔画遍全图的所有方法

96 数码管问题找每两个位数字的数码笔画相差一的五位数 1

┌—┐

2│ │3

├ 4┤

5│ │6

└—┘

7

97 四色原理问题

98 表达式求值( 包括+,-,,/,^,(,) )

99 有一种绝对回文数,其十,二进制均为回文,请打印出1--500之间的绝对回文数(二进制最前面的0不能算)例如99(1100011)即是。

100 一人带狼,羊,白菜过河,狼吃羊,羊吃白菜,河中只有一条船,此人一次只能带一物过河用最少步全部过河

100道题``练习是够了 答案的话可以问你孩子的老师``

这些题有些比较基础的可以做 觉的难的可以放弃``因为许多东西你的孩子还没学到``

以上就是关于帮忙改一pascal程序全部的内容，包括:帮忙改一pascal程序、中国象棋跳马的遍历 的程序、一道《C语言版数据结构》的题目！帮帮忙啊！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！