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

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,31 Mb.

Достарыңызбен бөлісу: