referaty.sk – Všetko čo študent potrebuje
Gizela
Utorok, 17. mája 2022
Pascal - algoritmy na triedenie poľa
Dátum pridania: 30.11.2002 Oznámkuj: 12345
Autor referátu: sova
 
Jazyk: Slovenčina Počet slov: 235
Referát vhodný pre: Stredná odborná škola Počet A4: 0.6
Priemerná známka: 2.97 Rýchle čítanie: 1m 0s
Pomalé čítanie: 1m 30s
 

Príklad na triedenie výmenou:

type typ=array[1..100] of integer;
var i:integer;
B:typ;
procedure TRIEDENIE (var A:typ; D,H:integer);
var I,J,KH:integer
BOLAVYMENA:boolean;
begin
BOLAVYMENA:=true;
KH:=H;
while (KH>D) and BOLAVYMENA do
begin
BOLAVYMENA:=false;
I:=D;
while I if A[I]>A[I+1] then begin
BOLAVYMENA:=true;
J:=A[I];
A[I]:=A[I+1];
A[I+1]:=J;
end;
I:=I+1;
end;
KH:=KH-1;
end;
begin
randomize;
for i:=1 to 100 do B[i]:=random(10);
TRIEDENIE(B,1,84); {utriedi prvky 1 až 84 poľa B vzostupne}
end.

Triedenie vsúvaním je oproti triedeniu výberom a výmenou je pomalšie. Rychlejšie je triedenie výmenou.
 
späť späť   1  |   2   
 
Copyright © 1999-2019 News and Media Holding, a.s.
Všetky práva vyhradené. Publikovanie alebo šírenie obsahu je zakázané bez predchádzajúceho súhlasu.