تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 4 از 4

نام تاپيک: کمک از همه برنامه نویسان P30World

  1. #1
    داره خودمونی میشه alishahbazi's Avatar
    تاريخ عضويت
    Aug 2006
    محل سكونت
    پی سی پدیا
    پست ها
    192

    12 کمک از همه برنامه نویسان P30World

    با سلام خدمت هم دوستان
    من یک برنامه توسط پاسکال دارم مینویسم و میخواهم که 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.

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

  2. #2
    آخر فروم باز hamidreza_buddy's Avatar
    تاريخ عضويت
    Sep 2004
    محل سكونت
    شریف
    پست ها
    1,167

    پيش فرض

    من پاسکال بلد نیستم ولی تقریباً فهمیدم چیکار کردی.

    خوب به جای اینکه برای هر کدام جدا حساب کنی همه را در یک حلقه بذار. اون موقع می تونی به جای 5 هر عددی بدی.
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    البته شبه کد هست و فقط جوری نوشتم که متوجه منظورم بشی.
    در ضمن اعداد رندوم بین صفر تا ده هستن یا هر عددی می تونن باشن؟

  3. #3
    آخر فروم باز Mehran NZ's Avatar
    تاريخ عضويت
    Sep 2006
    پست ها
    2,208

    پيش فرض

    علی جان منکه دیوانه شدم نفهمیدم چیکار کردی خودم برنامش رو نوشتم واست میذارم با یه حلقه مشکل حل میشه
    تحلیل کد:
    randomize رو اول بذار تا هر بار که برنامه اجرا می شه اعداد فرق کنن
    بعقیش هم که دیگه واضحه
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

  4. #4
    داره خودمونی میشه alishahbazi's Avatar
    تاريخ عضويت
    Aug 2006
    محل سكونت
    پی سی پدیا
    پست ها
    192

    پيش فرض

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

    آقایون من اول از همه یک معذرت خواهی بزرگ به شماها بدهکارم که خیلی وقت است که نمیتونم بیام تو سایت.

    من این روش های شما رو بکار بردم ولی من میخواهم که پنج مقدار رو به برنامه بدم (بعنوان ورودی) و این پنج مقدار که من وارد کردم به ترتیب از Rnd[1] تا آخر باهم مقایسه بشوند.

    ممنون از همه دوستان (علی شهبازی)

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •