01R17 (2)

[ Pobierz całość w formacie PDF ]
.�� Do dzieła! 91Do dzieła!Po tym nieco przydługim teoretyzowaniu większość Czytelników zapewne świerzbiąjuż ręce, żeby wziąć się do programowania.W niniejszym rozdziale spróbujemy przed-stawić podstawowe elementy składowe naszego programu i powiązać je w działającącałość.Zaczniemy od rzeczy podstawowych, czyli zdefiniowania struktur danych, naktórych program będzie operował.program Biblioteka;usestypestring30 = string[30]; { potrzebne do przekazywania }{ parametrów }string25 = stringKsiazka = recordTytul : string30;Autor : string25;Wypozyczajacy : string25;Licznik : word;end;const{ w bajtach }POJEMNOSC = MAX_PAMIEC div SizeOf(Ksiazka);varKatalog : array[1.Pojemnosc] of{ katalog }LbPoz : integer; { liczba pozycji w katalogu }Podstawowym warunkiem użyteczności katalogu jest możliwość wprowadzania doniego informacji (z klawiatury) i wyprowadzania jej (na ekran/drukarkę).Ponieważpodstawową jednostką organizacyjną katalogu jest rekord, powinniśmy zdefiniowaćprocedury pozwalające na wprowadzenie i wyprowadzenie jego zawartości.W myśltego, co powiedzieliśmy poprzednio, procedury te powinny operować na parametrzeodpowiedniego typu rekordowego:92 Turbo Pascal programowanieprocedure WprowadzDane(var r : Ksiazka);{ wprowadza pojedynczy rekord z klawiatury }beginwith r dobeginwrite('Tytul: '); readln(Tytul);write('Autor: '); readln(Autor);write('Wypozyczajacy: '); readln(Wypozyczajacy);end;end;procedure WypiszDane(r : Ksiazka);beginwith r dobeginwrite('Tytul: '); writeln(Tytul);write('Autor: '); writeln(Autor);if Wypozyczajacy = '' thenwriteln('Ksiazka znajduje sie na polce.')elsewrite('Wypozyczajacy: '); writeln(Wypozyczajacy);end;writeln;end;Mimochodem przyjęliśmy konwencję, w myśl której książce nie wypożyczonej odpo-wiada puste pole Wypozyczajacy (co jest dość naturalne).Powyższe definicje wyko-rzystamy do utworzenia kilku dodatkowych procedur pozwalających na wprowadzenieopisu nowej książki do katalogu oraz wyprowadzenie całej zawartości katalogu naekran (co w przypadku większej liczby książek jest raczej mało sensowne, chyba żezamiast ekranu użyje się drukarki).Przy okazji warto też zdefiniować procedurępozwalającą na usunięcie książki z katalogu, co najprościej zrobić przez przepisanieostatniego elementu katalogu w miejsce elementu usuwanego.procedure DodajKsiazke;beginwriteln('Nowa pozycja w katalogu: ', LbPoz);end; Do dzieła! 93procedure UsunKsiazke(Numer : integer);beginend;procedure WypiszKatalog;vari : integer;beginfor i := 1 to LbPoz dobeginwriteln('Pozycja katalogu nr ', i,':');WypiszDane(Katalog[i]);end;end;Porządny program powinien również zapewniać możliwość zmiany opisu książki; kon-strukcję odpowiedniej procedury pozostawiam Ci jako ćwiczenie (zobacz też poniżej).Kolejną sprawą jest obsługa wypożyczenia i zwrotu książki.W tym celu należy popierwsze odszukać wybraną książkę (wedle wcześniejszych założeń według tytułu),a następnie, w zależności od potrzeb, wprowadzić, sprawdzić lub usunąć nazwiskowypożyczającego.Jeśli chodzi o wyszukiwanie książki, to sensownym wydaje sięzaprojektowanie funkcji, której argumentem będzie zadany fragment tytułu, a wartościązwracaną numer książki w katalogu lub 1, jeśli książki nie znaleziono (numeryksiążek są zawsze dodatnie, a więc liczba 1 nigdy nie będzie opisywała rzeczywiścieistniejącej w katalogu książki).Ponieważ katalog może zawierać kilka książek o tymsamym tytule, musimy zaprojektować funkcję wyszukującą tak, by umożliwiała znale-zienie wszystkich podejrzanych.W tym celu wyposażymy ją w możliwość szukaniaod zadanej pozycji:function Szukaj(Tekst : string; Pozycja : integer) : integer;{ szuka od zadanej pozycji katalogu }vari : integer;begini := Pozycja; { szukaj od zadanej pozycji }94 Turbo Pascal programowaniewhile (Pos(Tekst, Katalog[i].Tytul) = 0) and (i [ Pobierz całość w formacie PDF ]