Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

merge sort optimizacija

[es] :: Pascal / Delphi / Kylix :: merge sort optimizacija

[ Pregleda: 3447 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

glupi

Član broj: 836
Poruke: 199
*.cmu.carnet.hr



Profil

icon merge sort optimizacija03.05.2004. u 09:35 - pre 197 meseci
Trebao bih napravit sto kraci i brzi merge sort bez uporabe seeka. Uspio sam ovo napisat, pa me zanima jel moguce to jos nekako skratit ili drukcije napisat.

Code:

procedure merge;
begin
reset(f1); reset(f2); rewrite(f);
read(f1,x);
read(f2,x1);
while (not eof(f1)) and (not eof(f2)) do
begin
     if (x > x1) then
        begin
        write(f,x);
        read(f1,x);
        end
     else
         begin
         write(f,x1);
         read(f2,x1);
         end;
end;

if (not eof(f1)) then
begin
   if (x > x1) then
      begin
      write(f,x);
      write(f,x1);
      end
   else
       begin
       write(f,x1);
       write(f,x);
   end;
   while(not eof(f1)) do
   begin
        read(f1,x);
        write(f,x);
   end;
end;

if (not eof(f2)) then
begin
     if (x > x1) then
        begin
        write(f,x);
        write(f,x1);
        end
     else
     begin
         write(f,x1);
         write(f,x);
     end;
     while(not eof(f1)) do
     begin
          read(f2,x);
          write(f,x);
     end;
end;
end;

f, f1 i f2 su datoteke tipa integer, a x i x1 su integeri. f je izlazna datoteka di ide sortirani niz iz f1 i f2.
 
Odgovor na temu

antix

Član broj: 8388
Poruke: 265
*.panline.net

Jabber: antix@elitesecurity.org


Profil

icon Re: merge sort optimizacija10.05.2004. u 13:57 - pre 196 meseci
pa izgleda OK!

jedino da izbacis te silne ; jer ruzno izgleda, a ne trebaju
ti prije end
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: merge sort optimizacija

[ Pregleda: 3447 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.