回 帖 发 新 帖 刷新版面

主题:问题又来了

1.有一种病毒叫黑色星期5,如果当天是星期5,又恰好是13号,就会发作.试编程找出90年代这种病毒发作的日期.
2.有81个零件,其中有一个是次品,重量轻,限用4次称量,找出这个次品.要求打印出每次称量过程.
3.由M个数构成一个圆环,找出四个相邻的数,使其和为最大,最小.

最近我在进行题海战术,帖子多,大家一定要尽力帮忙啊[em8]

回复列表 (共18个回复)

11 楼

比如M=8 圆环为         1
                     2   3
                    4     5
                     6   7
                       8
找出相邻4个数,使其和最大,最小.(第3题)

12 楼

就是说,如1,他想林的数是2,3,4,5.

13 楼

相邻4个数也就是说连续4个数[em6]

14 楼

2.3 题什么意思  一题回答的确实漂亮

15 楼

第三题:
  var m:word;
begin
  readln(m);
  if m>4 then writeln(m*4-6) else writeln('Error');
  readln;
end.

16 楼

第二题原来书上讲的用二分法,但是也要称六次
用二楼的思路就好多了

17 楼

学编程序,就是要学思路,不能光学会一道题,至少要学会一种题!
像第7楼的风花雪月☆雨,竟然说出这种话!给你来个最简单的:人工输出第n个质数(素数)0<n<1E+10

18 楼

第 8 楼 是这个意思吗?当然了我是说第一题

uses dos,crt;
  var
    nn,ny,nr,nx:word;
    nian,yue,n{nian},y{yue},r{ri},x{xingqi}:word;
begin
  clrscr;
  getdate(nn,ny,nr,nx);
  for nian:=1990 to 1999 do
    for yue:=1 to 12 do begin
      setdate(nian,yue,13);
      getdate(n,y,r,x);
      if x=5 then writeln(n:4,',',y:2,',',r:2);
      delay(500);clrscr;
    end;
  setdate(nn,ny,nr);
  readln;
end.


我来回复

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