Temat. Operacje na plikach tekstowych.

var plik : text
assign nazwa_pliku nazwa_dyskowa

1. rewrite(nazwa_pliku) - otwarcie do zapisu, ew. utworzenie pliku. Jeśli istniał, to

wszystko wyczyści i zapisze od nowa.
2. reset(...) - otwiera istniejący plik do odczytu, ale nie zapisu.
3. append(...) - otwiera tylko do zapisu, dane dopisywane na końcu pliku. Trzeba go zamknąć

procedurą close(...).

Dane oczytujemy i zapisujemy do pliku normalnie,czyli
Read(nazwa_pliku , lista argumentów)
Write(nazwa_pliku , lista argumentów)

eof(nazwa_pliku) zwraca TRUE jeśli nastąpił koniec pliku.
eoln(nazwa_pliku) zwraca TRUE jeśli nastąpił koniec linii.

----------- ZADANIA --------------------------------------------------------

Zad 1. Skopiuj zawartosc pliku 1 do pliku 2 znak po znaku
Zad 2. Napisz program umożliwiający kopiowanie zawartosci pliku linia po linii.
Zad 3. Oblicz liczbe znakow zawartych w pliku tekstowym.
Zad 4. Napisać program, który pozwoli obliczyć liczbę wierszy tekstu. Przeglądane powinny być wszystkie znaki tekstu, a obliczanie liczby wierszy powinno odbywać się dopiero w momencie zakończenia przeglądania danego wiersza.
Zad 5. Napisać program obliczający liczbę słów w pliku tekstowym zakładając, że poszczególne słowa są oddzielone spacjami, tabulatorami lub znakami końca linii.
Zad 6. Napisać program porównujący zawartość 2 plików tekstowych. Algorytm powinien polegać na sprawdzeniu równości znaków do końca krótszego pliku, a następnie w przypadku pozytywnego wyniku na sprawdzeniu długości plików.

-----------------------------------------------------------------------------