排列

请将112233进行排列    问:  有多少种排法(要求无重复)
09-12-20  mengxuehao 发布
2个回答
时间
投票
  • 0

    moi312

    您好
    最简单写法:
    program 1;
    var i:integer;
    begin
    i:=1   {pascal中必须有变量,且每个变量必须赋值}
    writeln('*');
    writeln('**');
    writeln('***');
    writeln('****');
    writeln('*****');
    end.
    for语句写法:
    program 1;
    var i.j:integer;
    begin
    for i:=5 downto 1 do
     begin
      for j:=1 to 6-i do write('*');
      writeln;
     end;
    end.
    while语句写法:
    program 1;
    var i,j:integer;
    begin
    i:=5;j:=1;
    while i>0 do
     begin
      while j<7-i do
       begin
        write('*');
        j:=j+1;
       end;
       writeln;
      i:=i-1;
     end;
    end.
    repeat-until语句写法:
    program 1;
    var i,j:integer;
    begin
    i:=5;j:=1;
    repeat
     repeat
      write('*');
      j:=j+1;
     until j>5;
     writeln;
     i:=i-1;
    until i<1;
    end.

    还有,我是学pascal的,有问题找我,用知道的发送消息功能(我没OICQ号)

    09-12-20 | 添加评论 | 打赏

    评论读取中....

  • 0

    shesenmao

    解:A6取6/A2取2
    =(6X5X4X3X2X1)/(2X1)
    =360种
    即有360种排法。

    09-12-21 | 添加评论 | 打赏

    评论读取中....

精华知识
更多  
意见反馈 帮助