اموزش Qbasic (دستور DIM)

دستور DIM

با استفاده از این دستور می توان یک آرایه تعریف کرد شکل کلی آن :
نوع داده AS (دامنه یا تعداد عناصر) نام متغیر آرایه DIM
نام متغیر آرایه : همان نام اشتراکی است که توسط آن می توانید به عناصر آرایه دسترسی پیداکنید .
دامنه یا تعداد عناصر : حداکثر خانه های لازم (حد اکثر یک آرایه) جهت ذخیره سازی مقادیر را در آرایه تعیین می کند. تعداد می تواند بصورت عدد یا دامنه ای به شکل حد پائین به سمت حد بالا باشد.
نوع داه : نوع آرایه را مشخص می کند و می تواند INTEGER =% صحیح LONG =& , صحیح بلند SINGLE =! , اعشاری با دقت معمولی DOUBLE =# , اعشاری با دقت مضاعف STRING =$ , رشته ای باشد .
DIM B(20) آرایه B از نوع اعشاری معمولی با 21 عنصر ( از صفر تا 20 )
DIM N(5 To 45) آرایه N اعشاری معمولی با 41 عنصر
DIM A%(10) آرایه A از نوع عددی صحیح با 11 ( از صفر تا 10) عنصر
DIM C$(5) آرایه C از نوع رشته ای با 6 عنصر
DIM num(1 To 5) AS SINGLE آرایه num اعشاری معمولی دارای 5 عنصر
DIM N(10 , 10) آرایه دو بعدی با نام N اعشاری معمولی دارای 11 سطر ( صفر تا 10) و 11 ستون (از صفر تا 10) .

دستور OPTION BASE برای تعریف کوچکترین اندیس آرایه برای شروع به شکل OPTION BASE m
M عدد شروع که می تواند صفر یا 1 باشد .

کد:

CLS
OPTION BASE 1
DIM x(4) 
DIM name$(3)
X(1) = 10 : x(2) = 20 : x(3) = -70 : x(4) = 12.35
Name$(1) = " Ali" : name$(2) = " Hamid " : name$(3) = " Davood "

در مثال بالا ابتدا آرایه های X و name$ تعریف شده سپس عناصر آنها مقدار دهی شده اند مثلا دستور X(2) = 20 باعث می شود عدد 20 در خانه دوم آرایه X ذخیره گردد.

استفاده از دستور INPUT
برنامه ای بنویسید که بتواند 10 نمره یک دانشجو را از ورودی دریافت نمده سپس آنها را درون آرایه ه ای به نام SCORE قرار دهد.

کد:

CLS
OPTION BASE 1
DIM score(10)
For k = 1 To 10
INPUT score(k)
NEXT K
END

استفاده از دستور DATA READ
برنامه ای بنویسید که بتواند بکمک دستور DATA … READ 5 نمره یک دانشجو را درون آرایه score قرار داهد .

کد:

CLS
OPTION BASE 1
DATA 7 , 17 , 15 , 18 , 3
DIM score(5)
For I = 1 To 5
Read score(I)
NEXT I
End

در برنامه اگر I=2 باشد READ score(2) باعث می شود داده دوم دستور DATA یعنی عدد17 در خانه دوم score ذخیره می شود .
برنامه ای بنویسید که 10 نمره یک دانش آموز را از ورودی دریافت کرده و مجموع و میانگین نمرات آن ها را محاسبه و چاپ کند .

کد:

CLS
DIM score( 1 To 10 ) AS INTEGER
For I = 1 To 10
PRINT " score("; I ; ") = ";
INPUT "" , score(I)
NEXT I
Sum = 0
For I = 1 To 10
Sum = sum + score(I)
NEXT I
AVERAGE = sum / 10
PRINT " sum = " ; sum
PRINT " AVERAGE = " ; average !
END

تعجب نکنید خودمم نفهمیدم؟؟؟؟؟؟؟؟؟