回 帖 发 新 帖 刷新版面

主题:有几道编程题做不来,各位大虾来救火

1.读一组整数,用0作为终止符号,打印其中正,负的个数及的序号.
2.选票统计,有A,B,C,D四位候选人,N位投票人.统计时,A,B,C,D以外的字符为弃权,按得票多少打印出候选人代号及得票数.
3.三齐王点兵的故事,相传三齐王韩信才智过人,从不直接点数自己的军队.只是让士兵以3人1排,5人1排,7人1排地变换队形,而他只要看一眼队伍的排尾就知道总人数了(不超过100人).
4.打印下列图形:(键入N,控制图形行数,以下图形均为N=3)
  ****    ****                  +    +
   ****  ****                   ++  ++
    ********                    ++++++

  edcba                         1
   cba                         357
    a                         91357

5.求两个自然数的最大公约数和最小公倍数.

答对+++++30

回复列表 (共24个回复)

11 楼

第四题:
1、
for i:=1 to n do
begin
  for j:=1 to i-1 do
    write(' ');{一个空格}
  write('****');
  for j:=1 to n-i do
    write('  '); {两个空格}
  writeln('****');
end;

12 楼

第四题:
2、
for i:=1 to n do
begin
  for j:=1 to i do
    write('+');
  for j:=1 to n-i do
    write('  ');{两个空格}
  for j:=1 to i do
    writeln('+');
end;

13 楼

第四题:
3、
for i:=1 to n do
begin
  for j:=1 to i-1 do
    write(' ');{一个空格}
  for j:=(n-i)*2+1 downto 1 do
    write(chr(j+96));
  writeln;
end;

14 楼

第四题:
4、楼主,这个图形不是很明白,是不是当n=5时图形如下?
      1
     357
    91357
   9135791
  357913579

15 楼

恩[em6][em6][em6]

16 楼

那就是:
k:=1;
for i:=1 to n do
begin
  for j:=1 to n-i do
    write(' ');{一个空格}
  for j:=1 to i*2-1 do
  begin
    write(k);
    k:=k+2;
    if k=11 then k:=1;
  end;
  writeln;
end;

17 楼

噢,忘了说,楼主帮我加分啊!!!

18 楼

我已经给你加满了50分了[em12][em12][em12][em12][em12]

19 楼

请问第三题要做什么?问题是什么?

20 楼

第3题是说按照韩信点兵方法编程,计算出士兵数量[em14]

我来回复

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