+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إحصاء جميع الإحتمالات الممكنة من محارف وارقام (/showthread.php?tid=3134)
إحصاء جميع الإحتمالات الممكنة من محارف وارقام - عادل علي - 29-05-2011
السلام عليكم ورحمة الله وبركاته
هل يمكن انشاء معادلة تظهر جميع الاحتمالات الممكنة بدون تكرار
مثال :
لوحات السيارات (أ أ أ 1 1 1) الى (ج ج ج 9 9 9) ;
هنا يكمن التحدي البرمجي
وشكرا لكم
وبارك الله فيكم لجهودكم الجبارة في المنتدى
إحصاء جميع الإحتمالات الممكنة من محارف وارقام - kachwahed - 29-05-2011
وعليكم السلام ورحمة الله وبركاته
أهلا ومرحبا بك في دلفي للعرب
هنا ألق نظرة:
http://www.delphi4arab.net/forum/showthread.php?tid=3502
بالتوفيق.
إحصاء جميع الإحتمالات الممكنة من محارف وارقام - عادل علي - 29-05-2011
اهلا ومرحبا بك kachwahed
شكرا لاهتمامك
لقد رأيت هذا
http://www.delphi4arab.net/forum/showthread.php?tid=3707
وهذا
http://www.delphi4arab.net/forum/showthread.php?tid=3502
وهذا
لكن كلها للاسف ليست المطلوبة
إحصاء جميع الإحتمالات الممكنة من محارف وارقام - عادل علي - 01-06-2011
هذي محاولتي الفاشلة في كتابة الكود
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.