Thanks for your suggestion,but the problem need you to input char less than 10
can you tell me how to modify my program?
Search found 3 matches
- Mon May 19, 2003 4:00 am
- Forum: Volume 100 (10000-10099)
- Topic: 10098 - Generating Fast
- Replies: 62
- Views: 15640
- Sun May 18, 2003 11:56 am
- Forum: Volume 100 (10000-10099)
- Topic: 10098 - Generating Fast
- Replies: 62
- Views: 15640
10098 Why output limit exceed
Pascal code PROGRAM exp1_7; var a:string; p:char; k,n,m,j,l,o:integer; procedure swap(var a:string;k,i:integer); var t:char; begin t:=a[k];a[k]:=a ;a :=t; end; procedure perm(a:string;k,n:integer); var i:integer; begin if k=n then writeln(a) else for i:=k to n do begin swap(a,k,i); perm(a,k+1,n); en...
- Sun May 18, 2003 11:55 am
- Forum: Volume 100 (10000-10099)
- Topic: 10098 - Generating Fast
- Replies: 62
- Views: 15640
10098 Why output limit exceed
Pascal code PROGRAM exp1_7; var a:string; p:char; k,n,m,j,l,o:integer; procedure swap(var a:string;k,i:integer); var t:char; begin t:=a[k];a[k]:=a ;a :=t; end; procedure perm(a:string;k,n:integer); var i:integer; begin if k=n then writeln(a) else for i:=k to n do begin swap(a,k,i); perm(a,k+1,n); en...