انتقاء عدة قيم عشوائيا

شكرا

شكرا أخي romanof

لقد جلبت هذه الخوارزمية من موقع الماني

و قد طورتها الان لتوزع الارقام على اربع مجموعات

فمثلا اذا قمت بكتابة لعبة شدة يمكنك ان توزع الاوراق على الاعبين دون اية مشاكل

اليكم الخوارزمية الجديدة في مثال لتوزيع ورق اللعب على اربعة لاعبين

طبعا يمكنك تطوير الخوارزمية بشك افضل كأن نستخدم التعاودية

لكني سأقدمها هكذا فقط حتى يشغل الزوار عقولهم حيث اني الحظ ان الكثير

من الاسئلة تطلب الحل كاملا مكملا و احيانا البرنامج بشكل كامل

Card_Game.zip

أخي romanof

على الأقل حمل المثال و راجعه قبل أن ترد

الرابط الذي وضعته يتحدث عن تعليمة Random

والتي تعيد رقما عشوائيا لكن ما الذي يضمن ان القيمة 15 مثلا لن تعاد مرتين بهذه الطريقة اذا قمنا

Randomize;
x:=RandomRange(10,20);
y:=RandomRange(10,20);

حيث ان randomize لا تمنع تكرار ظهور الرقم لكنها تضمن ان التعليمة

Random لن تعيد نفس المتتالية من الارقام عند استدعائها عند إغلاق البرنامج و فتحه من جديد

لكن في مثالي ان فالورقة التي توزع للاعب لا يمكن أن توزع للاعب غيره

:rolleyes:

انا فاهم يا اخي مثالك

انا كنت ابحث عن موضوع قديم

بنفس الفكرة اسف يا عزيزي

02:48 AM
 :D  :D

مارأيكم في طرح مسألة كتمرن

وكل واحد يحاول كتابة الحل بطريقته

لدينا كرة تسقط تنتقل عشوائيا في 10 أماكن أو مناطق

بحيث لا تسقط في نفس المكان مرتين

الأماكن مرقمة من 1 إلى 10

أكتب خواريزمية تعطيك الأماكن عشوائيا كل مرة

مثلا:

1,6,8,4,2,3,7,9,5,10

أو

1,9,7,3,4,6,8,2,5,10

المهم الحصول على الأرقام من 1 إلى 10 عشوائيا

بحيث لا يكون هناك عددين متتاليين

أي لا يجب الحصول على الأرقام ممتابعة

مثلا 1,5,6,4,9,7,8,2,3,10 غير مرغوب فيه

بإنتظار مشاركاتكم

حسنا و هذه هي مشاركتي

procedure TForm1.Button1Click(Sender: TObject);
var A: Array[1..10] of Boolean;
    B: Array[1..10] of byte;
  i, z: Integer;
begin
Randomize;
for i:= 1 to 10 do
A:=false;
z:=random(10)+1;
B[1]:= z ;
A[z]:=true;
i:=1;
repeat
z:=random(10)+1;
if not A[z] then
if (z<>B+1)and (z<>B-1) then
 begin
  i:=i+1;
  B:=z;
  A[z]:=True;
 end;
until i=10;

Edit1.Text:='';
for i:=1 to 10 do
Edit1.Text:=Edit1.Text+' '+Inttostr(B)+' ';
end;

و هاكم النسخة التنفيذية

Project1.zip

procedure TForm1.Button1Click(Sender: TObject);
 var A: Array[1..10] of Boolean;
   B: Array[1..10] of byte;
 i,d,z: Integer;
begin
Randomize;
for i:= 1 to 10 do
  A:=false;
d:=random(5)+2;
b[1]:=random(10)+1;
A[b[1]]:=true;
  i:=1;
repeat
  i:=i+1;
  b:=b[i-1]+d;
  while (b>10) do
      b:= b-10;
  if (A[ b ]= false) then
      A[ b ]:= true
  else
       i:=i-1;
  d:=random(5)+2;
until i=10;

 Edit1.Text:='';
for i:=1 to 10 do
Edit1.Text:=Edit1.Text+' '+Inttostr(B)+' ';

end;

procedure TForm1.BtnRandomClick(Sender: TObject);
Var
 i,Index,TheNo : Integer;
 LstIn,LstOut : TStringList;
begin
Edit1.Clear;
LstIn := TStringList.Create;
For i := 1 To 10 do
 LstIn.Append(IntTostr(i));

 Randomize;
 Repeat
  Index := Random(LstIn.Count);
  If Abs(TheNo - StrToInt(LstIn[Index])) > 1 Then
   begin
    TheNo := StrToInt(LstIn[Index]);
    Edit1.Text := Edit1.Text + ' ' +   LstIn[Index];
    LstIn.Delete(Index);
   end;
  until LstIn.Count = 0;
LstIn.Free;
end;

يا سلام 3 مشاركات :D نتمنى من باقي الأعضاء المشاركة

وهاذه محاولتي

Var
 x,y,z,i : byte;
 B:Array[1..10] of byte;

begin
 Randomize;
 For i:=1 to 10 Do B := i;

 Repeat
 z:=0;
 For i := 1 to 5 do Begin
 x:=Random(5)+1;
 y:=Random(5)+6;
 B[x]:=B[x]+B[y];
 B[y]:=B[x]-B[y];
 B[x]:=B[x]-B[y];
 end;
 For i := 1 to 9 do
 if Abs(B-B[i+1])=1 then Inc(Z);
 Until Z=0;

 Edit1.Clear;
 For i:=1 to 10 Do Edit1.Text := Edit1.Text +' '+inttostr(B);
end;

عندي طريقتين :

الأولى : B)

var
  intCount,intNum,intTemp,i : Integer;
  strsNumber , strsRes : TStrings;
begin
Try
  strsNumber := TStringList.Create;
  strsRes := TStringList.Create;
  intTemp := -1;     Randomize;
  With strsNumber do
  Begin
    for i:= 0 To 10 do // 0--> 10
      Add(IntToStr(i));
    Repeat
      intNum := Random(Count); // take rand index to array from 0 -->10
      if(strsRes.Count > 0)then
        intTemp := StrToInt(strsRes[strsRes.Count - 1]);
      if(strsRes.IndexOf(strsNumber[intNum])< 0)Then
        if(not(StrToInt(strsNumber[intNum])in[intTemp+1,intTemp-1]))then
        Begin
          strsRes.Add(strsNumber[intNum]);
          Delete(intNum);
        end;
    Until(Count=0);
  End;
Finally
  ListBox1.Items := strsRes;
end;
end;

الثانية : B)

var
  i,j,Next ,Sum,subSum :Integer;
  Bol : Boolean;
  Ar_Result :  Array[0..10] of Integer;
begin
  i := 0;    
  ListBox1.Items.Clear;
Repeat
  Randomize;
  Next:= Random(High(Ar_Result));
  if(i = 0)then  Ar_Result := Next
  else
  Begin
    Repeat
      Bol := True;
      for j:=0 to (i-1)do
      Begin
        if(Next in [Ar_Result[j],Ar_Result[i-1],Ar_Result[i-1]+1 ,Ar_Result[i-1]-1])Then
        Begin
          Bol := False;
          Break;
        End;
      end;
      if(not bol) then
      Begin
        Randomize;
        Next:= Random(HIGH(Ar_Result));
      End;
      if(i=High(Ar_Result))Then
          Exit;
      until(Bol);
    Ar_Result := Next;
  End;
  ListBox1.Items.Add(IntToStr(Next));
  Inc(i);
until(i=High(Ar_Result) + 1);  // count+1= 11

end;

المبرمج عماد

أخي imadouzoun هناك خطا بسيط في مثاليك فوق

قم بالتعديل به لكي لا يعطي الصفر، و إختر واحد من المثالين فوق فقط :D

أتمني مشاركة باقي الأعضاء

قبل طرح التمرين الموالي :) كتتمة للتمرين الأول

اذا كان الأمر كذلك

فلماذا لا نغير عنوان الموضوع إلى "خوارزميات"

و ان يثبت الموضوع بحيث يستطيع المشاركون طرح ما يملكون من خوارزميات او

المشاركة فيما يطرح من خوارزميات تحتاج للحل

عندي سؤال بسيط،

كيف نستطيع الحصول على قيم عشوائية؟

إذا وضعتم قانون أو خوارزمية فهذه القيم لم تعد عشوائية.. فهي تتبع لخوارزمية معينة..

فكيف يمكن أن أحصل على قيم عشوائية لا تتبع لخوارزمية ؟

أرجو أن يكون سؤالي مفهوم وأن توضحوا لي الفكرة..

عندي فكرة لا أعلم إن كانت جيدة أم لا..

ما رأيكم على سبيل المثال لو نضرب تاريخ اليوم بالشهر بالسنة بالساعة بالثانية ثم نضرب برقم ثابت.. هكذا نحصل على رقم عشوائي،

لأن الزمن لا يتوقف ويمشي باتجاه واحد..

وإذا كانت هذه المعادلة كبيرة، => يمكن قسمتها على ثابت معين..

هل تنفع هذه المعادلة لتوليد أرقام عشوائية غير مرتبطة ببعضها اعتماداً على أن الزمن يمشي باتجاه واحد؟

اقتباس

أخي imadouzoun هناك خطا بسيط في مثاليك فوق

قم بالتعديل به لكي لا يعطي الصفر، و إختر واحد من المثالين فوق فقط 

أخي DeltaAziz أنا لم أقرأ السؤال الحقيقة لكن شاركت على حسب مشاركة زميلي تمام اللي

وضح لي عمل الخوارزمية .......... لدلك الصفر قمت بوضعه وكنت أستطيع حدفه من المصفوفة بسهولة

على كل حال عدّل متل ما بدك بالخوارزميات فهي مجرد تمرين ..........

ونحن ننتظر التالي على جمر ..... :wacko: .........متل ما شايف

المبرمج عماد...... B)

اقتباس

فلماذا لا نغير عنوان الموضوع إلى "خوارزميات"

و ان يثبت الموضوع بحيث يستطيع المشاركون طرح ما يملكون من خوارزميات او

المشاركة فيما يطرح من خوارزميات تحتاج للحل

أخي تمام هناك الكثير من المواضيع تطرح و تنتهى بالشكر فقط

الهدف هو الأنتقال من فكرة أو تمرين إلى شيئ قد يكون مفيد

إن كثر المشاركون يثبت الموضوع

اقتباس

كيف نستطيع الحصول على قيم عشوائية؟

إذا وضعتم قانون أو خوارزمية فهذه القيم لم تعد عشوائية.. فهي تتبع لخوارزمية معينة..

فكيف يمكن أن أحصل على قيم عشوائية لا تتبع لخوارزمية ؟

...

ا رأيكم على سبيل المثال لو نضرب تاريخ اليوم بالشهر بالسنة بالساعة بالثانية ثم نضرب برقم ثابت.. هكذا نحصل على رقم عشوائي،

لأن الزمن لا يتوقف ويمشي باتجاه واحد..

وإذا كانت هذه المعادلة كبيرة، => يمكن قسمتها على ثابت معين..

هل تنفع هذه المعادلة لتوليد أرقام عشوائية غير مرتبطة ببعضها اعتماداً على أن الزمن يمشي باتجاه واحد؟

أخي علاء تقريبا كل الأمثلة فوق

تعتمد على Random() التي تختار عدد غير عشوائي في الحقيقة

مسألة الحصول على قيم عشوائية حقيقية مشكلة :D

حتى مثالك فوق لا يمكنه إعطاء عدد عشوائي حقيقي

بعض الأمثلة في هذه الصفحة

اقتباس

أنا لم أقرأ السؤال الحقيقة لكن شاركت على حسب مشاركة زميلي تمام اللي

وضح لي عمل الخوارزمية .......... لدلك الصفر قمت بوضعه وكنت أستطيع حدفه من المصفوفة بسهولة

على كل حال عدّل متل ما بدك بالخوارزميات فهي مجرد تمرين

أخي عماد

تذكر المثل: فهم السؤال نصف الجواب

فما بالك بعدم قرائة التمرين

و المثال مثالك قم أنت بالتعديل عليه

كل يعمل على مثاله :D

أين مشاركات باقي الأعضاء:unsure:

جزاك الله خيراً أخي DeltaAziz

شكراً على التوضيح،

:)