369
a[i]:= Random(d - c) + c;
Write(a[i]:5)
End;
WriteLn;
For i:= 1 To n Do
Begin
Min:=a[1];
For j:= 1 To n Do
If a[j]<= min Then
Begin
Min:=a[j];
k:= j
End;
b[i]:= a[k];
a[k]:= 32767;
End;
WriteLn('Nizamlanmis massiv');
For i:= 1 To n Do Write(b[i]:5);
WriteLn;
End.
Misal 2
Program P_49;
Var a:
Array[1..100]
Of Integer;
c, d, i, p, k, n:
Integer;
Begin
Randomize;
ReadLn(n);
ReadLn(c, d);
WriteLn('Verilmis massiv ');
For i:= 1
To n
Do
Begin
a[i]:= Random(d - c) + c;
Write(a[i]:5)
End;
WriteLn;
Repeat
k:= 0;
For i:=
1
To n-1
Do
If a[i] > a[i + 1]
Then
Begin
p:= a[i]; a[i]:=
a[i + 1];
a[i + 1]:= p;
k:= k + 1
End;
Until k = 0;
WriteLn('Nizamli massiv');
For i:= 1
To n
Do Write(a[i]:5);
370
WriteLn;
End.
2.12.2. Sabit massivlər
Sabit massivlər sabitin adını bildirən identifikatordan, iki nöqtədən, əvvəlcə
təyin olunmuş hər hansı bir massiv tipindən, bərabərlik
işarəsindən və massivin
elementlərinin siyahısından ibarətdir. Elementlərin siyahısı dairəvi mötərizə
daxilində yazılır. Elementlər bir-birindən vergüllə ayrılır. Sabit massivlərin
elementləri fayl
1
və dinamik
2
tipdən başqa istənilən tipə aid ola bilərlər. Sabit
massivlərin elementlərinin qiymətləri tək-tək və ya bütün simvolların tam sətri
şəklində verilə bilər. Belə ki, aşağıdakı iki yazılış ekvivalentdir:
Const
D:
array [0..5]
of char=(’0’,‘1’,‘2’,‘3’);
və ya
Const
D :
array [0..5]
of char=’0123’;
Çoxölçülü sabit massivlər də oxşar olaraq təyin edilir:
Məsələn,
Type
KBAD=
array [0..1, 0..1]
of integer;
Const
KBAD1: KBAD=((0,1),(2,3));
2.13. Yazılar
Yazılar verilənlərin strukturlaşmış növü olub, sonlu sayda müxtəlif tipli
elementlərdən ibarətdir. Massivlərdən fərqli olaraq yazılarda
eyni bir obyektə aid
olan müxtəlif tipli verilənlər qruplaşır. Yazı tipinin elan olunması
record işçi
sözü ilə başlayıb
end
xidməti
sözü ilə qurtarır. Bunların arasında yazının
elementlərinin siyahısı gəlir. Elementlərin siyahısına yazının sahələri də deyilir.
Hər bir sahə identifikatordan və onun tipindən ibarətdir. Başqa sözlə yazı tipini
elan etmək üçün aşağıdakı yazılış formasından istifadə edilir:
type
=record
:;
. . .
:;
end;
Yazı tipi elan olunduqdan sonra yazı tipli dəyişənlər aşağıdakı yazılış
formatı əsasında elan olunur.
1
Bax: Fayllar
2
Bax: Gostəricilər