صفحه محصول - پاورپوینت آرايه .

پاورپوینت آرايه . (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.