POLITECHNIKA RADOMSKA
Wydział: Nauczycielski	Kierunek: Informatyka Stosowana	Grupa: L1
Temat: Zbudować inteligentny system sortowania przesyłek pocztowych.	Prowadzący: mgr Tomasz Frankowski	Przedmiot: Sztuczna inteligencja
Wykonał: Sylwester Gołda	Data oddania:	Ocena:

1. Cel projektu.

Celem ćwiczenia jest skonstruowanie programu który w inteligentny sposób będzie sortowała przesyłki pocztowe.

2. Opis programu

Program umożliwia dodawanie paczek do bazy, wyświetlanie paczek które zostały wysłane do wskazanej miejscowości oraz dodawanie nowych miejscowości. Informacje paczkach i miejscowościach przechowywane są w oddzielnych plikach dołączonych do programu. Do wprowadzenia paczki do bazy użutkownik musi podać miejsce docelowa paczki. Wybranie miejsca umożliwiają ComboBox-y lub wpisanie kodu miejscowości do odpowiedniego pola. Program dzieli miescowości na pewne grupy.

Rysunek 1 Sposód sortowania miescowości.

Rysunek 2 Interfejs programu.

3. Listing

Kod procedury która dostosowywuje zawartość ComboBox-a w zależności od wybranego miejsca(Polska/Zagranica):

procedure TForm1.ComboBox4Change(Sender: TObject);

begin

ComboBox1.Clear;

if FileExists('lista.txt') then

begin

AssignFile(lista, 'lista.txt');

Reset(lista);

if Form1.ComboBox2.ItemIndex <9 then w1:='0'+IntToStr( Form1.ComboBox4.ItemIndex+1) else w1:=IntToStr(Form1.ComboBox4.ItemIndex+1) ;

while not eof(lista) do

begin

Readln(lista, S);

tmp:= Copy(s,1,3);

if tmp=w1+' ' then begin

delete(s,1,3);

ComboBox1.Items.Add(s);

end;

end;

CloseFile(lista);

end;

6. Wnioski i uwagi.

Sporób sortowania przesyłek jest oparty na strukturze drzewa. Wybór miejscowości jest podzielony na kilka grup. Na każdym poziomie drzewa mamy do wyboru inne miejscowości, w zależności od byboru z poziomu wyżej. Dzięki temu rozwiązaniu można szybko znaleźć poszukiwaną miejscowość. W przypadku gdy miejscowości nie ma na liści użytkownik może łatwo go dodać do listy.

---