با سلام خدمت هم دوستان
من یک برنامه توسط پاسکال دارم مینویسم و میخواهم که 5 عدد به طور اتفاقی برایم چاپ کند به گونه ای که هیچ کدام از این 5 عدد با هم دیگر مساوی نباشند .
این هم کد مربوطه که من این شر ط ها را نوشتم و دوستان یک نگاه بندازید ببینید چه جوری و من چه کاری بایستی بکنم.
Program ALI;
Var
Rnd:Array[1..5] of Byte;
Begin
Randomize;
Rnd[1]:=Random(10);writeln(Rnd[1]);
Rnd[2]:=Random(10);writeln(Rnd[2]);
Rnd[3]:=Random(10);writeln(Rnd[3]);
Rnd[4]:=Random(10);writeln(Rnd[4]);
Rnd[5]:=Random(10);writeln(Rnd[5]);
{-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-____========}
If ((Rnd[1])=(Rnd[2])) Or ((Rnd[1])=(Rnd[3])) Or ((Rnd[1])=(Rnd[4])) Or ((Rnd[1])=(Rnd[5])) Then
Begin
Rnd[1]:=Random(10);writeln(Rnd[1]);
End
Else
If ((Rnd[2])=(Rnd[1])) Or ((Rnd[2])=(Rnd[3])) Or ((Rnd[2])=(Rnd[4])) Or ((Rnd[2])=(Rnd[5])) Then
Begin
Rnd[2]:=Random(10);writeln(Rnd[2]);
End
Else
If ((Rnd[3])=(Rnd[2])) Or ((Rnd[3])=(Rnd[1])) Or ((Rnd[3])=(Rnd[4])) Or ((Rnd[3])=(Rnd[5])) Then
Begin
Rnd[3]:=Random(10);writeln(Rnd[3]);
End
Else
If ((Rnd[4])=(Rnd[2])) Or ((Rnd[4])=(Rnd[3])) Or ((Rnd[4])=(Rnd[1])) Or ((Rnd[4])=(Rnd[5])) Then
Begin
Rnd[4]:=Random(10);writeln(Rnd[4]);
End
Else
If ((Rnd[5])=(Rnd[2])) Or ((Rnd[5])=(Rnd[3])) Or ((Rnd[5])=(Rnd[4])) Or ((Rnd[5])=(Rnd[5])) Then
Begin
Rnd[5]:=Random(10);writeln(Rnd[5]);
End
{Exit IF}
Readln;
End.