پاورپوینت چگونگی تعريف کردن يک آرايه

پاورپوینت چگونگی تعريف کردن يک آرايه (pptx) 12 اسلاید


دسته بندی : پاورپوینت

نوع فایل : PowerPoint (.pptx) ( قابل ویرایش و آماده پرینت )

تعداد اسلاید: 12 اسلاید

قسمتی از متن PowerPoint (.pptx) :

مطالب امروز آرايه چگونگی تعريف کردن يک آرايه نحوه استفاده از يک آرايه چند مثال آرايه آرايه، دنباله ای از متغيرهای هم نوع است که تحت يک نام مشترک استفاده می شوند. برای دسترسی به هر يک از اعضای آرايه، از يک انديس استفاده می شود. انديس بايد از نوع داده های قابل شمارش باشد. چگونگی تعريف يک آرايه Var نام آرايه : Array [ محدوده ] of نوع داده ; مثال : Var a : Array [ 1 .. 100 ] of Integer ; b : Array [ -10 .. 20 ] of Real; x : Array [ 0 .. 10 ] of Boolean; y : Array [ ‘a’ .. ‘z’ ] of Real; دسترسی به اعضای يک آرايه نام آرايه [ انديس ] مثال : a [ 3 ] := 8; Readln ( b [ -5 ] ); Writeln ( x [ 0 ] ); If y [ ‘m’ ] = 2.5 Then y [ ‘n’ ] := y [ ‘p’ ]; واريانس 100 عدد داده شده Var n : Integer; S_Sum, Sum, ave : Real; a : array [ 1 .. 100 ] of Real; Begin Sum := 0; S_Sum := 0; For n := 1 To 100 Do Readln ( a [n] ); For n := 1 To 100 Do Sum := Sum + a [n]; ave := (Sum / 100); For n := 1 To 100 Do S_Sum := S_Sum + (a[n] – ave) * (a[n] – ave); Writeln(S_Sum / 100); End. جستجو در يک آرايه Var n : Integer; x : array [ 1 .. 100 ] of Real; a : Real; Begin … ... Readln (a); For n := 1 To 100 Do If x[n] = a Then Begin Writeln ( ‘Index = ‘, n); Break; End; End. بررسی مساوی بودن دو آرايه Var n : Integer; x, y : array [ 1 .. 40 ] of Char; Is_equal : Boolean; Begin … ... Is_equal := True; For n := 1 To 40 Do If x[n] <> y[n] Then Is_equal := False; If Is_equal Then Writeln ( ‘Equal‘) Else Writeln ( ‘Not Equal‘); End. محاسبه نمره 50 دانشجو Var n : Integer; midterm, final, total : array [ 1 .. 50 ] of Real; Max : Real; Begin … ... For n := 1 To 50 Do total [n] := (midterm [n] + 2 * final [n]) / 3; Max := total [1]; For n := 2 To 50 Do If total [n] > Max Then Max := total [n]; Writeln ( total [n] ); End.

نظرات کاربران

نظرتان را ارسال کنید

captcha

کسب درآمد 2 میلیون تومان روزانه (تضمین شده با گارانتی بازگشت وجه)
اد ممبر بینهایت کانال،ربات و گروه تلگرام
لوکس فایل بزرگترین سایت فروش فایل
لوکس فایل بزرگترین سایت فروش فایل
ایردراپ12

فایل های دیگر این دسته

مجوزها،گواهینامه ها و بانکهای همکار

لوکس فایل | فروشگاه ساز رایگان فروش فایل دارای نماد اعتماد الکترونیک از وزارت صنعت و همچنین دارای قرارداد پرداختهای اینترنتی با شرکتهای بزرگ به پرداخت ملت و زرین پال و آقای پرداخت میباشد که در زیـر میـتوانید مجـوزها را مشاهده کنید