Wstęp i metody programowania. Ćwiczenie 11.

Pliki tekstowe

Cel ćwiczenia: Programowanie z wykorzystaniem plików tekstowych. Wykonywanie operacji na plikach: dopisywanie i odczytywanie znaków, liczb i rekordów, wyszukiwanie i usuwanie znaków. Wyprowadzanie zawartości plików na ekran.

1. Zdefiniować zmienną plikową f typu text. Opracować następujące procedury:

1. Wprowadzającą do pliku ciąg znaków (Enter - przejście do nowej linii;

Esc - koniec wprowadzania); nagłówek: procedure Wstaw(Var f: text).

2. Wyprowadzającą zawartość pliku na ekran wierszami po 30 znaków w wierszu;

nagłówek: procedure Czytaj(Var f: text).

3. Dopisującą do pliku zawartość łańcucha s wczytanego z klawiatury;

nagłówek: procedure Dopisz(Var f: text; Var s: string).

4. Znajdującą w pliku pierwsze wystąpienie znaku x i usuwającą znak z pliku;

nagłówek: procedure Usun(Var f: text; x: char).

Przetestować opracowane procedury w programie głównym.

2. Zdefiniować rekord typu tosoba = record naz: string[20]; id: longint; end

oraz zmienną plikową f typu text. Opracować procedury:

1. Inicjującą rekord typu tosoba losowymi danymi;

nagłówek: procedure InitR(Var r: tosoba).

2. Wyprowadzającą rekord typu tosoba na ekran;

nagłówek: procedure PiszR(Var r: tosoba).

3. Wpisującą do pliku rekord typu tosoba oraz znaki przejścia do nowej linii (writeln);

nagłówek: procedure WstawR(Var f: text; Var r: tosoba).

4. Odczytującą z pliku rekord typu tosoba oraz znaki przejścia do nowej linii (readln);

nagłówek: procedure CzytajR(Var f: text; Var r: tosoba).

W programie głównym zapisać do pliku kilka losowych rekordów, a następnie odczytać

wprowadzone dane i wyprowadzić na ekran.

3. Zdefiniować zmienną plikową f typu text. Opracować następujące procedury:

1. Wpisującą do pliku losowe liczby rzeczywiste należące do przedziału [1.4, 20.5)

w formacie x:8:2 (ESC - kończy wprowadzanie); po każdej liczbie wstawić spację.

2. Odczytującą liczby rzeczywiste z pliku i wyprowadzającą dane wierszami na ekran

w formacie x:8:2.

Przetestować opracowane procedury w programie głównym.

4. Dany jest plik tekstowy zawierający liczby całkowite rozdzielone spacją. Opracować
   procedurę, która modyfikuje zawartość pliku w taki sposób, że za każdą liczbą nieparzystą wstawia do pliku liczbę dwa razy większą. Na przykład, w przypadku pliku f zawierają­cego liczby: 2, 3, 5, 8, plik zmodyfikowany powinien zawierać liczby: 2, 3, 6, 5, 10, 8. Zadanie można zrealizować czytając i zapisując dane do tego samego pliku lub czytając dane z jednego pliku i zapisując do drugiego pliku.

---