sortowanie przez wstawianie2


program sortowanie_przez_wstawianie;

uses crt;

const zakres=10;

var tablica :array[0..zakres]of integer;

i,j,k:integer;

temp:integer;

z1:text;

begin

assign(z1, 'dane.txt');

reset(z1);

for k:=1 to zakres do

readln(z1, tablica[k]);

close(z1);

textcolor(white);

writeln ('Program demonstruje sortowanie przez wstawianie');

for k:=1 to zakres do

write (tablica[k],', ');

writeln;

for i:=2 to zakres do

begin

temp:=tablica[i];

tablica[0]:= temp;

j:=i-1;

while (temp < tablica[j]) do

begin

tablica[j+1] := tablica[j];

j:=j-1;

end;

tablica [j+1] := temp;

for k:=1 to zakres do

begin

if k<i then

textcolor(yellow)

else

textcolor(white);

write (tablica[k],', ');

end;

writeln;

end;

textcolor(yellow);

for k:=1 to zakres do

write (tablica[k],', ');

readln;

end.

program sortowanie_przez_wstawianie;

uses crt;

const zakres=10;

var tablica :array[0..zakres]of integer;

i,j,k:integer;

temp:integer;

z1:text;

begin

assign(z1, 'dane.txt');

reset(z1);

for k:=1 to zakres do

readln(z1, tablica[k]);

close(z1);

textcolor(white);

writeln ('Program demonstruje sortowanie przez wstawianie');

for k:=1 to zakres do

write (tablica[k],', ');

writeln;

for i:=2 to zakres do

begin

temp:=tablica[i];

tablica[0]:= temp;

j:=i-1;

while (temp < tablica[j]) do

begin

tablica[j+1] := tablica[j];

j:=j-1;

end;

tablica [j+1] := temp;

for k:=1 to zakres do

begin

if k<i then

textcolor(yellow)

else

textcolor(white);

write (tablica[k],', ');

end;

writeln;

end;

textcolor(yellow);

for k:=1 to zakres do

write (tablica[k],', ');

readln;

end.



Wyszukiwarka

Podobne podstrony:
jak wykonac sortowanie przez wstawianie algorytm inserion sort, PHP Skrypty
Sortowanie Przez Wstawianie
30 Sortowanie przez wstawianie Nieznany (2)
sortowanie przez wstawianie1
sortowanie przez zliczanie
Heap Sort-sortowanie przez kopcowanie, Informatyka -all, INFORMATYKA-all
Sortowanie przez kopcowanie PHEAP
jak wykonac sortowanie przez zamiane wymiane wybor algorytm selection sort, PHP Skrypty
Sortowanie przez scalanie PMERG
29 Sortowanie przez wybór (selekcję)
SORTOWANIE PRZEZ SCALANIE
Postępuj zgodnie z wolą Bożą przez wstawiennictwo Maryi Jego Najświętszej Matki
Algorytm sortowania przez wybór w porządku rosnącym
Jak stworzyć prostą bazę i zarządzać nią przez WWW dodawać rekordy, edytować dane, kasować uaktualn
4 sortowanie
WYCHOWANIE DO I PRZEZ SPORT
Sortowanie cz 2 ppt

więcej podobnych podstron