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

وضعیت
موضوع بسته شده است.

alishahbazi

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

دوستان من در حال انجام و نوشتن يک برنامه هستم و به يک مشکل برخوردم. :cry: :cry: :cry:
مشکل من : من ميخواهم در برنامه ام پنج (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 بزن خوب!!
 
وضعیت
موضوع بسته شده است.

Similar threads

بالا