+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف توليد حروف تلقائيا (/showthread.php?tid=2928)
كيف توليد حروف تلقائيا - yassine_hell - 24-03-2011
السلام عليكم ورحمة الله
اولا اسف على كثرة الاسئلة التي اطرحها مؤخرا , و**** ان شكر جميع من اجابي وساعدني على حلها ^^
سؤالي:
اردت توليد جمل عبارة عن ارقام (9..0)و حروف(a-z) طولها 8 متسلسلة يعني تكون:
aaaaaaaa
baaaaaaa
caaaaaaa
.
.
c982jas6
.
.
الى ان تصل الى
zzzzzzzz
يعني جميع الاحتمالات الممكنة
وماهو مجموع الاحتمالات ؟؟
8^3 ؟؟
وصلت الى كتابة اجراء يولد ارقام فقط :
كود :
procedure TForm1.Button1Click(Sender: TObject);
var i :integer;
c :String;
begin
c:='';
for i := 1 to 10 do
begin
case length(IntToStr(i)) of
1 : c:= '0000000' + IntToStr(i);
2 : c:= '000000' + IntToStr(i);
3 : c:= '00000' + IntToStr(i);
4 : c:= '0000' + IntToStr(i);
5 : c:= '000' + IntToStr(i);
6 : c:= '00' + IntToStr(i);
7 : c:= '0' + IntToStr(i);
end;
Memo1.Lines.Add(c);
Application.ProcessMessages;
end;
end;شكرا
كيف توليد حروف تلقائيا - yassine_hell - 24-03-2011
لم تعمل كما يجب
كود :
s:='aaaaaaaa';
for j := 1 to 8 do
begin
for l := 1 to 26 do
begin
c:=chr(96+l);
s[l]:=c;
Memo1.Lines.Add(s);
for i := 1 to 26 do
begin
c:=chr(96+i);
s[j]:=c;
Memo1.Lines.Add(s);
end;
end;
end;كيف توليد حروف تلقائيا - TF6M - 25-03-2011
السلام عليكم
راجع هذا الموضوع :
[تمرين] مولد ارقام عشوائية (RandomGenerator)
[PracticalWork_02] خوارزمية التجميعات الممكنة
بالتوفيق ,,