+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طريقة انشاء الاحتمالات (/showthread.php?tid=9320)
طريقة انشاء الاحتمالات - mohamed49 - 13-04-2018
السلام عليكم
اريد طريقة لحساب الاحتمالات الممكنة
كمثال لدي باسوور رقمي يتكون من 7 حروف وهي رقمية 0-9 ما هو الفنكشن المناسب
والسلام عليكم
RE: طريقة انشاء الاحتمالات - AX302 - 13-04-2018
السلام عليكم
كود :
var
A, B, C, D, E, F, G: integer;
Result, Str: string;
begin
Str := Edit1.Text;
for A := 1 to Length(Str) do
begin
for B := 1 to Length(Str) do
begin
for C := 1 to Length(Str) do
begin
for D := 1 to Length(Str) do
begin
for E := 1 to Length(Str) do
begin
for F := 1 to Length(Str) do
begin
for G := 1 to Length(Str) do
begin
Result := Str[A] + Str[B] + Str[C] + Str[D] + Str[E] + Str[F] + Str[G];
Memo1.Lines.Add(Result);
end;
end;
end;
end;
end;
end;
end;
end;RE: طريقة انشاء الاحتمالات - mohamed49 - 13-04-2018
طريقة ممتازة يعطيك العافية