zoukankan      html  css  js  c++  java
  • 全排列问题pascal解题程序

    var
    a,b:array[0..9]of longint;
    n:longint;
    procedure print;
    var
    i:longint;
    begin
        for i:=1 to n do
        write(a[i]:5);//要保留五个常宽
        writeln;
    end;
    procedure search(dep:longint);//dep是当前填到的第几个数
    var
    i:longint;
    begin
        if dep>n then//如果填完了就输出
        begin
            print;
            exit;
        end;
        for i:=1 to n do//n个位置
        begin
            if b[i]=0 then//若第i个位置还没填
            begin
                b[i]:=1;//变为已用
                a[dep]:=i;//把i填进去
                search(dep+1);//搜下一位
                b[i]:=0;//回溯
            end;
        end;
    end;
    begin
        read(n);
        fillchar(b,sizeof(b),0);//赋值
        search(1);//搜索
    end.
  • 相关阅读:
    软件工程课程设计团队项目总结与项目报告
    个人总结
    团队项目UI
    黄金点
    wordcount
    小学运算
    第七周
    第八周
    第六周博客
    第五周博客
  • 原文地址:https://www.cnblogs.com/YYC-0304/p/9500260.html
Copyright © 2011-2022 走看看