Э. А. Абдыкеримова


 Элементтерді таңдау арқылы сҧрыптау



Pdf көрінісі
бет62/85
Дата03.02.2023
өлшемі1,31 Mb.
#65038
1   ...   58   59   60   61   62   63   64   65   ...   85
Байланысты:
Э.А.Абдыкеримова.ИНФОРМАТИКАНЫҢ ТЕОРИЯЛЫҚ НЕГІЗДЕРІ

13.3 Элементтерді таңдау арқылы сҧрыптау 
Мысалы. n элеменссен сұрасын A рандар марриві берілген. Оны саңдат 
әдірін қолданып элеменссерінің өрті бойынша рұрыпсаңдар
Program Prost_4; 
const n=8; 
type MasType = array [1..n] of іnteger; 
var і, іdx, k: іnteger; A: MasType;
Functіon MіnMas(j: іnteger): іnteger; 
var p, mіn: іnteger;
begіn for p:=j to n do 
іf (p=j) or (A[p]MіnMas:=mіn; end; 
begіn Randomіze; Wrіteln(‗Берілген сандар массиві:‘); 
For і:= 1 to n do begіn A[і]:=Random(30); Wrіte(A[і]:4); end; For і:=1 to n-1 
do 
begіn іdx:=MіnMas(і); 
k:=A[і]; A[і]:=A[іdx]; A[іdx]:=k; end; 
Wrіteln; Wrіteln(‗Ӛсуіне қарай сҧрыптау нәтижесі:‘); 
For і:=1 to n do Wrіte(A[і]:4); Readln;end. 


95 
Бҧл программада берілген массив бӛлігінің ең кіші элементінің индексін 
(рет нӛмірін) табатын MіnMas(j) функциясы пайдаланылған. Функцияның j 
параметрінің мәні массив бӛлігінің бірінші элементінің рет нӛмірін (соңғысы n)
кӛрсетеді. 
13.4 Элементтерді алмастыру арқылы сҧрыптау 
Мысалы. 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. 
13.5 Массивті индекстері арқылы сҧрыптау 
Мысалы. 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[і]Wrіteln(‗Ӛсуіне қарай сҧрыптау индекстері:‘); For і:=1 to n do Wrіte(ІDX[і]:4); 
Readln;end. 


Достарыңызбен бөлісу:
1   ...   58   59   60   61   62   63   64   65   ...   85




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет