خرید بک لینک,خرید رپورتاژ آگهی
zula

چند سوال لطفا جواب دهيد

شروع موضوع توسط pa_darya ‏5 اکتبر 2007 در انجمن Visual Basic 6

  1. pa_darya

    pa_darya کاربر تازه وارد

    تاریخ عضویت:
    ‏11 ژوئن 2007
    نوشته ها:
    19
    تشکر شده:
    0
    با سلام
    اگر امکانش هست جواب اين 5 سوال را برايم ارسال کنيد.سوالها مربوط به بحث آرايه ها می باشد.

    1- 10 دانش آموز و 3 نمره از هر يک را از ورودی دريافت کنيد سپس نام هر دانش اموز را به همراه معدل او نمايش دهيد در پايان نام دانش آموزانی که بالاترين و پايين ترين معدل را دارند اعلام کنيد.

    2- برنامه ای بنويسيد که تعدادی عدد را دريافت ودر يک ماتريس4*4قرار دهد.سپس اين ماتريس را روی فرم نمايش دهد و با پيغامی اعلان کند که آيا عناصر قطر اصلی با هم برابر هستند یا نه؟

    3- برنامه ای بنويسيد که تعدادی عدد را دريافت ودر يک ماتريس4*4قرار دهد سپس عددی را گرفته وآن را در ماتريس جستجو کنيد و تعداد تکرار آن را بگويد.

    4- برنامه ای بنويسيد که تعدادی عدد را دريافت ودر يک ماتريس3*3قرار دهد. سپس اين ماتريس را روی فرم نمايش دهد و اعلام کند که بالا مثلثی است يا پايين مثلثی.

    5- برنامه ای بنويسيد که نام ونمره رياضی8نفر را گرفته و اعلام کند رتبه دوم کيست.

    از شما خواهش می کنم که به سوالهايم جواب دهيد واقعآ واسم مهمه تو را به خدا کمکم کنيد.
     
  2. کوتاه کننده لینک
  3. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    سلام
    اینا تمرینای برنامه سازی 2 سال سومه درسته ؟؟؟
    اینا آسونن سعی کن خودت بنویسی ...
    با این حال من دارمشون برات کداشو مینویسم ...

    این جواب سوال 2
    کد:
    S=0
    Dim num(4,4) as integer
    for i=0 to 3
     for j=0 to 3
      num(i,j)=inputbox("Enter ....")
      print num(i, j);
      if i=j and num(j,i)=num(0,0) then S=S+1
     next j 
     print
    next i
    if S=4 then 
     print "yes"
    else 
    print " no"
    end if 
    
    
    
    
     
  4. pa_darya

    pa_darya کاربر تازه وارد

    تاریخ عضویت:
    ‏11 ژوئن 2007
    نوشته ها:
    19
    تشکر شده:
    0
    مرسی از لطفت جوابهای ديگه را از کجا بيارم ببينم مگه شما برنامه سازی 2 داشتی؟ميتونی جواب کل تمرينها را واسم بفرستی از کجا بايد بيارمشون؟
     
  5. pa_darya

    pa_darya کاربر تازه وارد

    تاریخ عضویت:
    ‏11 ژوئن 2007
    نوشته ها:
    19
    تشکر شده:
    0
    جواب سوال 2 مطمئنی درستهif S=4 then وnum(j,i=num(0,0))را واسه چی نوشتی؟
     
  6. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    بله ما هم برنامه سازی 2 داشتیم . یعنی ما اولین گروهی بودیم که کتابای تازه عوض شده رو خوندیم .
    من الان ترم 1 کاردانی کامپیوترم ...ولی حالا حالا ها خیلی باید یاد بگیرم ...
    اینم جواب سوال 3


    S=0
    dim b as integer
    dim A(4,4) as integer
    b=text1.text
    for i=0 to 3
    for j=0 to 3
    A(i,j)=inputbox("enter ...")
    print A(i,j);
    if A(i.j)=b then
    S=S+1
    end if
    next j
    print
    next i
    if S=0 then print"Value not found"
     
  7. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    آره باید درست باشه ... ما اینا رو تو کلاس نوشته بودیم ...
    اونم num ( 0,0) واسه اینه که اولین عددی که وارد میکنی میره تو این قسمت آرایت یعنی نقطه 0و 0
    قطر اصلی آرایه 4 تا عدد باید داشته باشه که این چهار تا با هم باید برابر باشن و اولینشون هم همین عددیه که تو خونه 0.0 وارد میشه در کل اون سه تای دیگه باید با اون عددی که تو 0.0 هست مساوی شن
    num(i,j)=num(0.0) البته اینجا یدونهj=i هم داریم که مختصاتش همون قطر اصلی رو نشون میده .
    s=4 هم همون مسئله 4 تاست اگه جمعشون چهار شد درسته وگر نه درست نبید ...

    نمیدونم تا چه حد متوجه شدی ... کلا من معلم خوبی نیستم :happy:
    حالا به بزرگی خودتون ببخشید
    بقیشونم سعی میکنم واست بزارم ...فقط تا کی میخوای ؟؟؟
     
  8. خرید بیت کوین
  9. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    اینم جواب سوال 4 البته باز متغیر ها و پیغام ها رو میتونی تغییر بدی اینا یه خورده چرتن :happy:
    در مورد این شوالم این که چون معلم ما درست و حسابی نبود چندان به سوالامون جواب نمیداد
    اینارو هم با استدلال بی استدلال خودمون نوشتیم ... درست جواب میده امیدوارم منطقشم درست باشه
    اون دو تا رم برات تونستم مینویسم ... موفق باشی

    Dim A(3,3) as integer
    for i=0 to 2
    for j=0 to 3
    A(i,j)=inputbox("Enter....")
    print A(i,j)
    next j
    print
    next i
    if A(1,0)=A(0,2)=A(2,1) then print "Bala Mosalasi"
    if A(0,1)=A(0,2)=A(1,2) then print "Payin Mosalasi"
     
  10. pa_darya

    pa_darya کاربر تازه وارد

    تاریخ عضویت:
    ‏11 ژوئن 2007
    نوشته ها:
    19
    تشکر شده:
    0
    منم مثل شما شاگردم و معلم خوبی ندارم هر چی زودتر واسم ارسال کنيد بهتر مرسی از لطفت
     
  11. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    سلام ...
    ببخشید اگه دیر کردم ...
    من جواب چند تا از سوالا رو برات مینویسم ... امیدوارم به کارت بیاد ...بازم خواستی بگو بقیشم میذارم برات ...
     
  12. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0
    این یه برنامه ست که 70 تا نقطه در محل های تصادفی و با رنگ های تصادفی ایجاد میکنه ...

    کد:
    cls 
    
    for i= 1 to 70 
    
     ((form1.pset ( int(100*rnd()) , int(1000*rnd()),RGB(int(rnd*255),int(rnd *255) , int(rnd*255
    
    next i
    
    
     
  13. n.s

    n.s کاربر تازه وارد

    تاریخ عضویت:
    ‏2 اکتبر 2007
    نوشته ها:
    59
    تشکر شده:
    0

    کد:
    CLS
    S=100
    For i=1 to 8
     S=S+100
     form1.circle(500,1000),S,RGB(...,...,...)
    next  
    

    اینم یه برنامه که 8تا دایره نتحدالمرکز با فاصله 10 پیکسل از هم ترسیم میکنه ...
     
  14. pa_darya

    pa_darya کاربر تازه وارد

    تاریخ عضویت:
    ‏11 ژوئن 2007
    نوشته ها:
    19
    تشکر شده:
    0
    مرسی از لطف شما
     
avanak عسل طبیعی و گرده گل ایرانی همکاری در فروش