پاورپوینت برنامه اعداد فيبوناچی (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.