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

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

chenzhong [专家分：250] 发布于 2005-08-27 18:38:00

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

本帖地址： http://bbs.pfan.cn/post/100562.html

回复列表（共24个回复）

21 楼

绿步甲 [专家分：1610] 发布于 2005-08-28 20:00:00

读入的是否是三人一排,五人一排,七人一排排尾的人数

22 楼

yukangcool [专家分：460] 发布于 2005-08-29 22:04:00

我教你一招，准把你老师吓一跳，什么图形都用我的方法可以PRINT出来！
方法如下：
program
  begin
    writeln('          ');
    writeln('    答    ');
    writeln('          ');
    writeln('    案    ');
    writeln('          ');
  end.
我聪明吧！

23 楼

chenzhong [专家分：250] 发布于 2005-08-30 22:06:00

够狠[em12][em12]

24 楼

绿步甲 [专家分：1610] 发布于 2005-08-31 20:34:00

点兵:
a,b,c,i,j,k:integer;
ok:boolean;
begin
read(a,b,c);i:=3;j:=5;k:=7;
repeat
i:=i+a;j:=j+b;k:=k+c;
if i=j=k
then begin ok:=true;writeln(i:3,j:3,k:3);
else begin
i:=i-a+3;j:=j-b+5;k:=k-c+7;
end;
until ok=true;
end;

表忘了加分~~

我来回复

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

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

回复列表（共24个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

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

回复列表 （共24个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共24个回复）