پاورپوینت برنامه اعداد فيبوناچی

پاورپوینت برنامه اعداد فيبوناچی (pptx) 16 اسلاید

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

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

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

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

مطالب امروز چند مثال از حلقه ها آرايه چگونگی تعريف کردن يک آرايه نحوه استفاده از يک آرايه چند مثال برنامه اعداد فيبوناچی 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. 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, … ورودی : عدد صحيح و مثبت N خروجی: اولين عدد از دنباله فوق که از N بيشتر باشد. برنامه بررسی اول بودن عدد 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) Var 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.