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

[pa_darya]

با سلام
اگر امکانش هست جواب اين 5 سوال را برايم ارسال کنيد.سوالها مربوط به بحث آرايه ها می باشد.

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

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

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

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

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

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

 

[n.s]

سلام
اینا تمرینای برنامه سازی 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

 

[pa_darya]

مرسی از لطفت جوابهای ديگه را از کجا بيارم ببينم مگه شما برنامه سازی 2 داشتی؟ميتونی جواب کل تمرينها را واسم بفرستی از کجا بايد بيارمشون؟

 

[pa_darya]

جواب سوال 2 مطمئنی درستهif S=4 then وnum(j,i=num(0,0))را واسه چی نوشتی؟

 

[n.s]

بله ما هم برنامه سازی 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"

 

[n.s]

جواب سوال 2 مطمئنی درستهif S=4 then وnum(j,i=num(0,0))را واسه چی نوشتی؟

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

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

 

[n.s]

اینم جواب سوال 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"

 

[pa_darya]

منم مثل شما شاگردم و معلم خوبی ندارم هر چی زودتر واسم ارسال کنيد بهتر مرسی از لطفت

 

[n.s]

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

 

[n.s]

این یه برنامه ست که 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

 

[n.s]

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

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

 

[pa_darya]

مرسی از لطف شما