دانلود پاورپوینت آرايه

مطالب امروز ‏ ‏ ‏ ‏ ‏ چند مثال از حلقه ها آرايه چگونگی تعريف کردن يک آرايه نحوه استفاده از يک آرايه چند مثال برنامه اعداد فيبوناچی ‏ ‏ … 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ورودی :عدد صحيح و مثبت N خروجی :اولين عدد از دنباله فوق که از Nبيشتر باشد. ‏Var ;a, b, c, N : Integer ‏Begin ;)Readln (N ;a := 1 ;b := 1 ‏Repeat ;c := b ;b := a + b ;a := c ; Until b > N ;)Writeln (b ‏End. Var عدد i , N : Integer; Is_prime : Boolean; Begin Readln (N); For i := 2 To Trunc( sqrt (N) ) Do If N mod i = 0 then begin Is_prime := False; break; End; If Is_prime Then Writeln ( ‘ Prime ‘ ) Else Writeln ( ‘ Composite ‘ ) ; End. exp(x) برنامه بسط e Var x x2 x3 xN 1  x    ...  2! 3! N! N : Integer; a , x , s : Real; Begin Readln (x); a := 1; s := 1; N := 0; While abs ( s – exp(x) ) > 0.01 Do Begin N := N + 1; a := a * x / N ; s := s + a; End; Writeln ( s , n ) ; End. آرايه ‏ ‏ ‏ آراي+ه ،دنبال+ه ای از متغيره+ای هم ن+وع اس+ت مش+ترک+اس+تفاد+ه می شوند. ه تح+ت ي+ک +نا+م + ک+ + برای دسترس+ی ب+ه ه+ر ي+ک از اعض+ای آراي+ه ،از يک انديس استفاده می شود. ان+ديس باي+د از ن+وع داده ه+ای قاب+ل ش+مارش باشد. چگونگی تعريف يک آرايه 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. تعداد تکرار هر حرف ورودی Var n : Integer; Counter : array [ ‘a’ .. ‘z’ ] of Integer; ch : Char; Begin For ch := ‘a’ To ‘z’ Do Counter [ch] := 0; For n := 1 To 1000 Do Begin Readln (ch); Counter [ch] := Counter [ch] + 1; End; For ch := ‘a’ To ‘z’ Do Writeln ( Counter [ch] ); End.  آزمايش100 نتيجه Var Result : array [ 1 .. 100 ] of Boolean;; Counter : array [ Boolean ] of Integer; n : Integer; Begin ... ... Counter [True] := 0; Counter [False] := 0; For n := 1 To 100 Do Counter [ Result [n] ] := Counter [ Result [n] ] + 1; Writeln ( Counter [ True ] , Counter [ False ] ); End. مبحث جلسه آينده آرايه ها ()2 )Arrays (2