Kursas "Informatika" 2008/09 m.m. pavasario (2) sem.
| Variantas: | 214 |
| Atliko: | Oleg Ralovec |
| Pradėtas: | 2009.05.07 |
| Baigtas: | 2009.05.09 |
CNT įvedimas.
Nagrinėdamas cnt failus pastebėjau, kad pradžioje visada yra papildoma informacija title... ir base...po jų gali sekti kita informacija, kurios kiekis man nežinomas, toliau turinys susidedantis is 3 stulpelių ir nežinomo kiekio eilučių. Papildoma informacija nuskaitoma į sąrašą visa kita į dinaminį sąrašą.
Šiam darbui labiausiai tiko dinaminis sąrašas, kuriam naujas elementas pridedamas prie galo. Yra nežinomas eilucių skaicius, taip pat elementus reikia nuskaityti nuosekliai, todėl ši duomenų struktura puikiai tinka.
Ankstesneme darbe nebuvo pavartotos dinamines duomenų struktūros, taip pat jis nevikdo užduoties sąlygos. Didžiausias programų panasumas: abejose yra failo atidarymo ir uždarymo funkcijos.
Function OpenedFile(Var t :Text) :Boolean; Patikrina ar egzistuoja failas prie kurio nurodytas kelias, ji atidaro.
Function ClosedFile(Var t :Text) :Boolean ; Uždaro faila (jei jis egzistuoja).
Procedure InfoReader (Var inform :String; Var f2 :Text); Nuskaito informacija kuri cnt failo pradžioje(informacija).
Procedure StrSegmentator(Var line, s1, s2 :String ); Dalyja eilute i dvi dalis priklausomai nuo skirtuko.
Procedure TableReader(Var f2 :Text; Var p :Table ); Nuskaito cnt failo duomenis į dinaminį sąrašą.
Procedure InfoMain (Var cont :Info; Var f2 :Text); Sugrupuoja veiksmus informacijai ape *.cnt nuskaityti.
Procedure FreeSpace (Var p : Table ); Atlaisvina dinaminio saraso užimamą vietą.