إحصاء جميع الإحتمالات الممكنة من محارف وارقام

[عادل علي]

السلام عليكم ورحمة الله وبركاته
هل يمكن انشاء معادلة تظهر جميع الاحتمالات الممكنة بدون تكرار
مثال :
لوحات السيارات (أ أ أ 1 1 1) الى (ج ج ج 9 9 9) ;


هنا يكمن التحدي البرمجي

وشكرا لكم
وبارك الله فيكم لجهودكم الجبارة في المنتدى

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
أهلا ومرحبا بك في دلفي للعرب
هنا ألق نظرة:
http://www.delphi4arab.net/forum/showthr...p?tid=3502
بالتوفيق.

[عادل علي]

اهلا ومرحبا بك kachwahed
شكرا لاهتمامك
لقد رأيت هذا
http://www.delphi4arab.net/forum/showthr...p?tid=3707
وهذا
http://www.delphi4arab.net/forum/showthr...p?tid=3502
وهذا
لكن كلها للاسف ليست المطلوبة

[عادل علي]

هذي محاولتي الفاشلة في كتابة الكود

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  i,i1,i2,m1,m2,m3,loob2,loob3:Integer;a1,a2:string; dar:array of string; dd:Integer;
 label lable1,lable2,lable3,lable4 ;
begin
  dd:=1;
  Randomize;
hash:= Edit1.Text;
salt:= Edit2.Text;
a:= Edit4.Text;
m1:=Length(a);
a2:=a[m1];
a1:=a[1];
loob2:=0; loob3:=0;
for i:=1 to 100 do begin
if (a1[2] and a1[3])=Length(a)then begin

for i1:=1 to Length(a) do begin //( ab )
a1:=  a1+a[i1];
Memo1.Lines.Add(a1);
if  i1 := Length(a) then begin
i1:=1;
a1:= a[1]+a1;

case Length(a1) of
 2 :begin Inc loob2; a1[2]:= a[loob2];
 3:begin Inc loob3 ; a1[3]:= a[loob3];
end;
end;

case Pos(a2,a1) of
 //1 : begin a1:=a[1] + a1 ;
 >1 : ;
else ;
end;
end;

 end;
 end;  }
 end;
 end;
end.