Var F: ARRAY [1..100 ] of real;
Və ya
Const N=1; M=100;
Var F: ARRAY [ N..M ] of real;
kimi təsvir etmək olar.
İkiölçülü massivin ( düzümün) ümumi yazılışı aşağıdakı kimidir:
B:array[ 1..N ,1..M ] of T;
-burada B düzümün adı, N massivin sətirinin, M isə sütununun indekslərinin yuxarı sərhəddini göstərir. Massivin sətir və sütununun aşağı sərhəddi vahiddir, T isə massivin elementlərinin tipidir.
Massiv tipindən istifadə etdikdə massivin elementləri dairəvi mötərizədə bir-birndən vergüllə ayrılmaqla verilir. Məsələn:
-Birölçülü ədədi massiv
Const
V: array [1..7] of real=(0.45,4.21,6.78,-1.9,4,89,7.8)
- iki ölçülü ədədi massiv
Const
w: array [1..2,1..3] of real=(10.5,14.2,5.7,-6.9,4.3,12.8).
Tapşırıq nümunələri:
A natural ədədinin bütün bölənlərinin çap edilməsi
Program dovr;
var a,n,c,d:word;
begin { əsas proqram }
readln( a );
n:=1;
while ( n <= sqrt(a) ) do begin
c:=a mod n;
d:=a div n;
if c = 0 then begin
writeln( n );
if n <> d then writeln( d );
end;
inc( n );
end;
end.
2. İkiölçülü massivin elemetlərinin cəminin hesablanması
var a:array[1..10,1..2] of integer;
s:longint;
i,j:integer;
begin
writeln('massivin 20 elementini daxil et');
s:=0;
for i:=1 to 10 do begin
for j:=1 to 2 do begin
readln( a[i,j] );
s:=s+a[i,j];
end;
end;
writeln( 'Massivin elementlerinin cemi= ', s );
end.
Tapşırıqlar
1. a=1.5, x[1..5], x=0.5
2. z=ax2+bx a=3, b=2 x[1..4], x=0.3
3. a=6.5, x[1..6], x=0.8
4. a=1.2, x[1..5], x=0.4
5. z=3ax+ a=4.5, x[1..3], x=0.2
6. Verilmiş iki tam ədədin ən böyük ortaq bölənini (ƏBOB) tapın.
7.
8.
9.
10. y=
11.
12.
13.
14.
15.
16. 2
17.
18.
19.
20.
21.
22.
23.
24.
Dostları ilə paylaş: |