回 帖 发 新 帖 刷新版面

主题:帮忙啊!!能解多少就解多少!!小弟谢过了!

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

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

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

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

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

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

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的最简分数值.

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

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.                        1.63              如图: 7 个学生按顺时针
                        ①                  方向手拉手围成一圈,并顺
             1.72 ⑦          ② 1.70       序编号 ① ... ⑦, 用一
          1.64 ⑥               ③ 1.60   个程序描述这 7个人按身高
                1.67 ⑤     ④ 1.68        由矮到高重新排列面向内手
                                            拉手的位置关系.
    图中小圈内的数字为编号, 小圈外的数字为各人的身高.

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

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

42. 编一过程, 打印直方图,直方图为4行,每列表示1% .
ww
44. 编写一个过程, 倒序输出一正整数每位数字.

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

(详见Turbo Pascal的Page 146-17)

46. 打印由1——N*N组成的N*N的螺旋方阵.  (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!=2*2*2*3*4*5

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

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

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

56. 用递归方法求幂函数mn.

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

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)

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


69. 编写布尔函数,以函数f为自变量,如果在x=0,0.1,0.2,0.3...1.0时,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个数,经过处理,要求奇数在前,偶数在后,找所有排法.

回复列表 (共31个回复)

21 楼

ord (x)
   判定编码   哦壳了

22 楼

56

program p56(input,output);
  {qiu m de n ci mi }

  var
    m, n, g  :integer;

  function f(m,n:integer):integer;
    {qiu m de n ci mi de di gui han shu}
    begin
      if n=1
        then f:=m
        else f:=m*f(m,n-1)
    end;

  begin
    {input}
    read(m, n);
    writeln('m=', m:6, 'n=', n:6);
    {main}
    g:=f(m,n);
    {output}
    writeln('m^n=', g)
  end.

23 楼

呵呵~  写10.   程序你自己写吧
   前500米均分4段~   理由是行驶距离和路程间取公约数因为运油是往返运动所以每段都取125  然后每次都在上一个点上运送250的油~消耗也是250 剩下就是循环了很简单    最后应该减去125的油量~~ 实际用油是8000-125
    OK了~~~   如果不对大家就当没看到    ^_^

24 楼

32题
  var
    x,mark:integer;
    a:array[0..10] of integer;
  begin
    fillchar(a,sizeof(a),0);
    while not eof() do 
       begin
         read(mark);
         x:=mark div 10;
         inc(a[x]);
       end;
  文件操作及
   输出就不用了吧```

25 楼


57题谁会呀?

26 楼

回溯

27 楼

回复第16题。2000以内的勾股数共有323组。(不包含诸如30,40,50之类的派生勾股数),其中100以内有16组,1900至2000之间有17组。详细解答请点击本网站<勾股数>我文的标题是<奉献全部勾股数>

28 楼

32题有用条件语句,那就用循环语句while(不知道pascal里面有没有这东西)

29 楼

19.
var n:integer;
function tuzi(x:integer):integer;
   begin
    if x=1 then tuzi:=1
             else
              if x=2 then tuzi:=2
                       else
                        tuzi:=tuzi(x-1)+tuzi(x-2);
   end;
begin
readln(n);
writeln(tuzi(n));
end.





63.输入一串(<100个),且最后以'.'结束的字符,判断它们是否构成回文.
var x:array [1..100] of char;
    i,j:integer;
    ch:char;
    f:boolean;
begin
 f:=true;
   repeat
     read(ch);
      i:=i+1;
     x[i]:=ch;
   until ch='.';
    for j:=1 to i div 2 do
      if x[j]<>x[i-j] then
        begin
          f:=false;
          break;
        end;
writeln(f);
end.

30 楼

5555555555555欺负我............1道都不会啊..我才6年级

我来回复

您尚未登录,请登录后再回复。点此登录或注册