"Datormācība. Skaitlisko aprēķinu realizācijas metodes ...

for j:=1 to i-1 do
begin a:=a+1;
if M[j+1]>M[j] then
begin
buf:=M[j];
M[j]:=M[j+1];
M[j+1]:=buf; end; end; end;
for k:=1 to n do
write(' ',M[k]);
writeln(' ir veiktas',a, ' iteracijas');
end.
ņa}
{salīdzina i-to elementu ar nepārbaudītās
masīva daļas elementiem}
{ja atrasts elements, kurš ir lielāks par i-to
elementu, tos maina vietām}
Programmas algoritms paredz ciklisku visu elementu no pēdējā līdz otram caurskati un
pārvietošanu pa kreisi, ja „kaimiņam” ir mazāka vērtība. Pēc katra cikla soļa caurskatāmās
masīva daļas garums samazinās par vienu.
Dotā masīva sakārtošanai ar „burbuļu” metodi ir nepieciešams veikt 45 iterācijas.
Abas iepriekš analizētās masīvu sakārtošanas metodes uzskatāmas par vienkāršām, bet
arī maz efektīvām. Daudz efektīgāka ir metode, kuras pamatā ir masīva sadalīšanas
princips atsevišķās daļās un elementu apmaiņa starp šīm daļām. Metodes algoritms ir
visai sarežģīts un tādēļ attiecīgo programmu šī kursa apjomā nerekomendējam.
Meklēšana nesakārtotā masīvā ir visai darbietilpīga, jo pamatojas uz visu elementu
caurskati un salīdzināšanu ar uzdoto vērtību („atslēgu”) līdz situācijai, kad salīdzināšanas
rezultāts dod vērtību true. Apstrādājot liela apjoma informāciju parasti vispirms
attiecīgo informācijas masīvu sakārto un pēc tam veic nepieciešamā elementa meklēšanu.
Viena no meklēšanas efektīvām metodēm ir „dalīšanas uz pusēm” metode.
Metodes ideja – sakārtotu masīvu dala uz pusēm un pēc masīva vidējā elementa vērtības
nosaka, kurā masīva daļā atrodas meklējamais elements. Nevajadzīgo masīva daļu
atmet un attiecīgo algoritmu atkārto ar atlikušo masīva daļu. Dalīšanu atkārto tik ilgi,
līdz masīva daļa sastāvēs tikai no viena elementa.
Šādu algoritmu realizē programma:
program dala;
const n=20;
M:array[1..n] of byte
=(20,20,19,19,19,18,17,17,12,12,11,10,9,9,5,5, 3, 3, 2, 1);
var atsl,i,pirm,ped:byte;
a: integer;
rez: boolean;
42