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