回 帖 发 新 帖 刷新版面

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

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个回复)

沙发

晕,6题这么垃圾的题也好意思拿出来问呀?直接求根公式不就搞定

板凳

埃,你搞这么多题不怕别人吓着啊。我已经吓着了
我先做????????22题把
var
  i,s,j:integer;
begin
  randomize;
  s:=random(101);
  readln(i);j:=1;
  while i<>s do
    begin
    if i>s then writeln('too big')
           else writeln('to small');
    inc(j);readln(i);
    end;
  writeln('fit!');
  writeln(j);
  writeln(s);
end.

3 楼

第二简单的是76题把

4 楼

var
  a,b:array[0..10000]of integer;
  i,l1,l2:integer;
  c:char;
  d,e:string;
begin
  fillchar(a,sizeof(a),0);l1:=0;fillchar(b,sizeof(b),0);l2:=0;
  readln(d);l1:=length(d);readln(e);l2:=length(e);
  for i:=1 to l1 do a[i]:=ord(d[i])-48;
  for i:=1 to l2 do b[i]:=ord(e[i])-48;
  if l2>l1 then l1:=l2;
  for i:=l1 downto 1 do
    begin
      b[i]:=b[i]+a[i];
      b[i-1]:=b[i-1]+b[i] div 10;
      b[i]:=b[i] mod 10;
    end;
  i:=0;
  while (a[i]=0)and(i<=255) do
  inc(i);
  if i=256 then begin i:=1; l1:=1; end;
  for l2:=i to l1 do write(b[l2]); writeln;
end.

5 楼

77.高精度乘法,也懒得写了,我以前发的帖中有自己去看吧

http://www.programfan.com/club/showbbs.asp?id=112972

6 楼

我说,我那么辛苦作,搂主怎么不给加分
??

7 楼

32题谁会,我搞不懂了
还有25题哪里有趣了?。。。。。。
我做35题

因为格式不清楚,我自己随便了

var
  a:array[0..8]of integer;
  i,j,k,l:integer;
begin
  fillchar(a,sizeof(a),0);
  randomize;k:=random(10);
  write(k,' ');
  for i:=1 to 9 do
    begin
      j:=random(10);
      write(j,' ');
      if abs(j-k)=1 then begin
                           if j>k then j:=k;
                           inc(a[j]);
                         end;
      k:=j;
    end;
  writeln;
  for i:=0 to 8 do
    begin
      if a[i]>0 then begin writeln(i,' ',i+1,' :',a[i]);
      end;
    end;
end.



8 楼

这是什么心态阿?
这样子还不如什么都不做

9 楼

56
  program a;
    var
      a,b,i:integer;
   begin
      for i:1 to 10 do 

a:=b*b

10 楼

8楼的,你的意思我不懂啊
还有9楼的,你的我也不懂啊。。。。。。
40题
var
  i,j,k,m,n,a,b,t:integer;
  s:array[1..100,1..100]of integer;
begin
  readln(n);k:=n*n;
  fillchar(s,sizeof(s),0);
  t:=1;i:=1;
  while i<k do
    begin
      for j:=t to n-t+1 do begin s[t,j]:=i; inc(i); end;
      for j:=t+1 to n-t+1 do begin s[j,n-t+1]:=i; inc(i); end;
      for j:=n-t downto t do begin s[n-t+1,j]:=i; inc(i); end;
      for j:=n-t downto t+1 do begin s[j,t]:=i; inc(i); end;
      inc(t);
    end;
  if n mod 2=1 then s[t,t]:=i;
  for i:=1 to n do
    begin
    for j:=1 to n do write(s[i,j]:5);
    writeln;
    end;
end.

我来回复

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