Search found 3 matches

by sleepchild
Mon May 19, 2003 4:00 am
Forum: Volume 100 (10000-10099)
Topic: 10098 - Generating Fast
Replies: 62
Views: 14062

Thanks for your suggestion,but the problem need you to input char less than 10
can you tell me how to modify my program?
by sleepchild
Sun May 18, 2003 11:56 am
Forum: Volume 100 (10000-10099)
Topic: 10098 - Generating Fast
Replies: 62
Views: 14062

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...
by sleepchild
Sun May 18, 2003 11:55 am
Forum: Volume 100 (10000-10099)
Topic: 10098 - Generating Fast
Replies: 62
Views: 14062

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...

Go to advanced search