Problem z sortowaniem

crowl · 25 Wrzesień 2008 11:12

Witam. Mam sobie takowy program i nie umiem napisac do niego procedury sortowania. Moze sortowac obojetnie przez co. Moze mi ktos pomoc ?

program baza; uses crt; type dane = record imie: string; nazwisko: string; ulica: string; wiek: string; miasto: string; end; var nazwa : string; plik: file of dane; osobowe : dane; wybor : integer; koniec : integer; (* dodawanie *) procedure dopis(var nazwa: string); begin clrscr; writeln('Dopisywanie osób do pliku. ble ble ble '); writeln; assign(plik,nazwa); reset(plik); seek(plik,filesize(plik)); readln; writeln('Podaj imie osoby : '); readln(osobowe.imie); writeln('Podaj nazwisko osoby : '); readln(osobowe.nazwisko); writeln('Podaj ulice ; '); readln(osobowe.ulica); writeln('Podaj wiek : '); readln(osobowe.wiek); writeln('Podaj miasto osoby : '); readln(osobowe.miasto); writeln; write(plik,osobowe); close(plik); end; (* dodawanie koniec *) (* odczyt *) procedure odczyt(var nazwa: string); begin clrscr; writeln('Osoby zapisane w pliku : '); writeln; assign(plik,nazwa); reset(plik); while not eof(plik) do begin read(plik,osobowe); write(osobowe.imie, ’ '); write(osobowe.nazwisko, ’ '); write(osobowe.ulica, ’ '); write(osobowe.wiek, ’ '); write(osobowe.miasto, ’ '); writeln end; close(plik); readln; writeln; readln; end; (* odczyt koniec *) (* tworzenie nowej bazy *) procedure tworz(var nazwa: string); begin clrscr; writeln('Tworzenie nowej bazy '); writeln; assign(plik,nazwa); rewrite(plik); close(plik); readln; writeln(‘Baze utworzono pomyslnie.’); readln; end; (* tworzenie nowej bazy koniec *) (* usuwanie *) procedure kasuj(var nazwa: string); var okno_tymczasowe:file of dane; usun:string; begin clrscr; Writeln('Usuwanie osoby ',nazwa); writeln; assign(plik,nazwa); reset(plik); readln; writeln('Podaj nazwisko ktore chcesz usunac : '); readln(usun); assign(okno_tymczasowe, ‘c:danetymczasowe.dan’); rewrite(okno_tymczasowe); while not eof(plik) do begin read(plik,osobowe); if ((osobowe.nazwisko) = usun) then begin write; end else begin write (okno_tymczasowe, osobowe); end end; close(plik); rewrite(plik); erase(plik); close(okno_tymczasowe); reset(okno_tymczasowe); while not eof(okno_tymczasowe) do begin read(okno_tymczasowe,osobowe); write(plik,osobowe); end; close(plik); close(okno_tymczasowe); writeln(‘Osoba ‘,usun,’ została usunięta ;(’); readln; end; (* usuwanie koniec *) (* sortowanie poczatek *) procedure sortuj(var nazwa: string); begin clrscr; writeln(‘Sortowanie oO’); readln; assign(plik,nazwa); end; (* sortowanie koniec *) BEGIN clrscr; koniec:=1; writeln(‘Podaj nazwe pliku oraz sciezke : ‘); readln(nazwa); repeat clrscr; writeln(’=================================’); writeln(‘Menu : ‘,nazwa); writeln; Writeln(‘Dopisz osobe ->1<-’); Writeln(‘Odczyt ->2<-’); Writeln(‘Tworzenie nowej bazy ->3<-’); Writeln(‘Usun osobe ->4<-’); Writeln(‘Sortowanie osob ->5<-’); writeln; Writeln(‘Wyjscie ->0<-’); writeln(’=================================’); read(wybor); case wybor of 1 : dopis(nazwa); 2 : odczyt(nazwa); 3 : tworz(nazwa); 4 : kasuj(nazwa); 5 : sortuj(nazwa); 0 : koniec:=0; else begin writeln(‘Blad’); readln; readln; end; end until koniec = 0; writeln('Copyright 2008 @ Smolin '); writeln; readln; end.

system · 25 Wrzesień 2008 11:39

Na plikach opłaca się InsertionSort, daje lepsze wyniki niż QuickSort ponieważ przestawianie rekordów miejscami jest “kosztowne”.

Ustalasz zakres od P=1 do N
Znajdujesz zapis X z minimalnym kluczem wśród P…N
Jeżeli znaleziony X<>P, wymieniasz znaleziony zapis z P
Zwiększasz P, jeżeli (N-P)>1 przejdź do 2

crowl · 25 Wrzesień 2008 12:00

A mozesz mi to dopasowac do programu ? :>

system · 25 Wrzesień 2008 13:34

Oczywiście, ile płacisz?