برنامه ای برای چاپ5 عدد به صورت اتفاقي( هيچ کدام با هم برابر نباشند)

[alishahbazi]

با سلام خدمت همه دوستان عزیز و تبریک فراوان به مناسبت حضرت محمد(ص)و امام جعفر صادق (ع)

دوستان من در حال انجام و نوشتن يک برنامه هستم و به يک مشکل برخوردم.
مشکل من : من ميخواهم در برنامه ام پنج (5) عدد به صورت اتفاقي چاپ بشه و هيچ کدوم از اين 5 تا عدد با هم برابر نباشند :

اين هم يک تکه از برنامه​

[LEFT]Var 
s1,s2,s3,s4,s5:Byte;
Begin
Randomize;
s1:=Random(10);write(s1);
s2:=Random(10);Write(s2);
s3:=Random(10);Write(s3);
s4:=Random(10);Write(s4);
s5:=Random(10);Write(s5);
{aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa}
Readln;
End.[/LEFT]

با تشکرات فراوان (علي شهبازي)

 

[payman2007]

ميتوني يه آرايه تعريف كني و تو يه حلقه while بعد از درست شدن هر عدد random، تو ايندكس هاي قبلي آرايه رو بگردي ، اگه عددي مساوي اون پيدا نشد عدد جديد رو به آرايه اضافه كن ،در غير اينصورت دوباره يه عدد random توليد كن و كاراي قبلي رو تكرار كن تا همه درايه هاي آرايه پر بشه كه شرط بيرون اومدن از حلقه while هم همينه.

 

[bache_mahal]

خوب عزیز جان تو که نوشتی برنامه رو!! مشکل چیه پس؟؟!!
تست کردن هم نمیخواد مطمئن باش هیچ کدوم تکراری نمیشه. میخوای مطمئن تر باشی random(10) نزن. 100 بزن خوب!!