دخول

yassine_hell · 24-03-2011, 10:29 PM

السلام عليكم ورحمة الله

اولا اسف على كثرة الاسئلة التي اطرحها مؤخرا , و**** ان شكر جميع من اجابي وساعدني على حلها ^^
سؤالي:
اردت توليد جمل عبارة عن ارقام (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, 10:58 PM

لم تعمل كما يجب

كود :
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, 12:46 AM

السلام عليكم
راجع هذا الموضوع :
[تمرين] مولد ارقام عشوائية (RandomGenerator)
[PracticalWork_02] خوارزمية التجميعات الممكنة
بالتوفيق ,,

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة