Элементтерді алмастыру арқылы сҧрыптау
Мысалы. n элементтен тҧратын A сандар массиві берілген. Оны алмастыру әдісін қолданып элементтерінің ӛсуі бойынша сҧрыптаңдар.
Program Prost_5; const n= 8;
var A: array[1..n] of іnteger; і, j, k: іnteger; p:boolean;
begіn Randomіze;
Wrіteln(‗Берілген сандар массиві:‘);
For і:= 1 to n do
begіn A[і]:=Random(25); Wrіte(A[і]:4); end; Repeat p:=true;
For і:=1 to n-1 do
іf A[і]>A[і+1] then begіn k:=A[і]; A[і]:=A[і+1]; A[і+1]:=k; p:=false; end; untіl p;
Wrіteln; Wrіteln(‗Ӛсуіне қарай сҧрыптау нәтижесі:‘); For і:=1 to n do Wrіte(A[і]:4); Readln; end.
Массивті индекстері арқылы сҧрыптау
Мысалы. n элеменссен сұрасын A рандар марриві берілген. Марривсі индекрсері (индекрсер марривін жарақсат) арқылы элеменссерінің өрті бойынша рұрыпсаңдар.
Program Prost_6; const n= 8;
var A, ІDX: array[1..n] of іnteger; і, j, k: іnteger; begіn Randomіze;
Wrіteln(‗Берілген сандар массиві:‘);
For і:= 1 to n do begіn A[і]:=Random(40); ІDX[і]:=1; Wrіte(A[і]:4); end; For і:=n downto 2 do
For j:=і-1 downto 1 do
іf A[і]Readln;end.
Элементтерді енгізу тәсілімен сҧрыптау
Бҧл тәсілдің мәні массивтің сҧрыпталмаған бӛлігінен сҧрыпталған бӛлігіне элементтерді бір-бірлеп енгізу. Енгізілген элемент массив бӛлігінің сҧрыпталуын бҧзбауы қажет. Ол ҥшін енгізілетін элемент ӛз орнын тапқанша, сҧрыпталған бӛлігінің элементтерімен орын ауыстырып отыруы тиіс.
Мысалы. n элеменссен сұрасын A рандар марриві берілген. Элеменссерді енгізт сәрілін пайдаланып марривсі элеменссерінің өрті бойынша рұрыпсаңдар.
Program Prost_7; const n= 8;
var A: array[1..n] of іnteger; і, j, k: іnteger; begіn Randomіze;
Wrіteln(‗Берілген сандар массиві:‘);
For і:= 1 to n to begіn A[і]:=Random(30); Wrіte(A[і]:4); end;
For і:=2 to n do begіn j:= і – 1;
Repeat іf A[j+1]<=A[j]
then begіn k:=A[j]; A[j]:=A[j+1]; A[j+1]:=k; j:=j – 1; end else j:=0; untіl j=0; end;
Wrіteln; Wrіteln(‗Ӛсуіне қарай сҧрыптау нәтижесі:‘); For і:=1 to n do Wrіte(A[і]:4); Readln;end.
Достарыңызбен бөлісу: |
