Ćwiczenia | Informatyka MIMUW

W poniższych zadaniach zakładamy, że eof(f) implikuje eoln(f).

Zadanie 1

Napisz funkcję sprawdzającą, czy dwa pliki tekstowe o podanych nazwach mają tę samą liczbę wierszy.

Wskazówka 1

Najprostsze rozwiązanie polega na policzeniu liczby linii w jednym i drugim pliku, a potem porównaniu tych liczb.

Rozwiązanie 1

<b>function</b> LiczLinie(f:Text):integer; 
// f otwarty plik tekstowy 
<b>var</b> c:character; 
l:integer; 
<b>begin</b> 
l:=0; 
<b>while</b> <b>not</b> eof(f) <b>do</b> <b>begin</b> 
<b>while</b> <b>not</b> eoln(f) <b>do</b>
 read(f,c);
 readln(f);
 l:=l+1;
 <b>end</b>;
 LiczLinie:=l;
 <b>end</b>; // LiczLinie 
 
<b>function</b> RownoLinijne(s1,s2:string):boolean;
<b>var</b> f1,f2:Text;
<b>begin</b> // RownoLinijne
assign(f1,s1);
 assign(f2,s2);
 reset(f1);
 reset(f2);
 RownoLinijne:=LiczLinie(f1)=LiczLinie(f2);
 close(f1);
 close(f2);
 <b>end</b>; // RownoLinijne

Zaletą tego rozwiązania jest możliwość powtórnego wykorzystania funkcji LiczLinie do innych celów, a wadą konieczność czytania obu plików, nawet gdy jeden jest bardzo mały, a drugi bardzo duży.

Wskazówka 2

Można też wczytywać po jednej linii z każdego pliku, aż któryś z nich się nie skończy.

Rozwiązanie 2

<b>function</b> RownoLinijne(s1,s2:string):boolean;
 <b>var</b> f1,f2:Text;
 c:character;
 <b>begin</b>
 assign(f1,s1);
 assign(f2,s2);
 reset(f1);
 reset(f2);
 <b>while</b> <b>not</b> (eof(f1) <b>or</b> eof(f2)) <b>do</b> <b>begin</b>
 <b>while</b> <b>not</b> eoln(f1) <b>do</b>
 read(f1,c);
 readln(f1);
 <b>while</b> <b>not</b> eoln(f2) <b>do</b>
 read(f2,c);
 readln(f2);
 <b>end</b>;
RownoLinijne:=eof(f1) <b>and</b> eof(f2);
close(f1);
close(f2);
<b>end</b>; // RownoLinijne

Czytamy po jednej linii z każdego pliku, aż co najmniej jeden z nich się skończy. Jeśli okazało się, że skończyły się oba naraz - mają tę samą liczbę linii. Jeśli skończył się tylko jeden - ten drugi musi być dłuższy.

Zadanie 2

Napisz procedurę, która skopiuje plik tekstowy f na g, modyfikując go w następujący sposób: bezpośrednio po każdym słowie należy wstawić koniec wiersza, a nowy wiersz rozpocząć od nowego słowa (spacje i puste wiersze należy pomijać).
Słowem (w tym zadaniu) nazywamy dowolny maksymalny spójny ciąg znaków niezawierający spacji i znaków końca wiersza. Nie zakładamy niczego o długości słów.

Wskazówka 1

Użyj specjalnej zmiennej do pamiętania czy przetwarzamy właśnie wnętrze słowa, czy odstęp między słowami. Co należy zrobić, jak przeczytamy odstęp, znak końca wiersza lub inny znak, w każdej z tych sytuacji?

Rozwiązanie 1

<b>procedure</b> Kopiuj(<b>var</b> f,g:Text);
 <b>type</b> pozycja=(odstep,slowo);
 <b>var</b> stan:pozycja;
 c:character;
 <b>begin</b>
 reset(f);
 rewrite(g);
 <b>while</b> <b>not</b> eof(f) <b>do</b> <b>begin</b>
 stan:=odstep;
 <b>while</b> <b>not</b> eoln(f) <b>do</b> <b>begin</b>
 read(f,c);
 <b>case</b> stan <b>of</b>
 odstep:
 <b>if</b> c&lt;&gt;' ' <b>then</b> <b>begin</b>
 write(g,c);
 stan:=slowo;
 <b>end</b>
slowo: 
<b>if</b> c&lt;&gt;' ' <b>then</b> 
write(g,c) 
<b>else</b> <b>begin</b>
stan:=odstep;
writeln(g);
<b>end</b>
<b>end</b>
<b>end</b>
 <b>if</b> stan=slowo <b>then</b> writeln(g);
 readln(f);
 <b>end</b>;
 close(f);
 close(g);
<b>end</b>; // Kopiuj

Ta procedura ma klasyczną strukturę procedur przetwarzających pliki tekstowe: zewnętrzna pętla while wykonuje jeden obrót na każdą linię pliku f, a wewnętrzna na każdy znak wewnątrz linii.
W procedurze wykorzystana jest zmienna 'stan', która wskazuje, czy przetwarzamy w danym momencie słowo czy znaki (spacje i zmiany linii) pomiędzy słowami.
Przetwarzanie każdej nowej linii pliku f rozpoczyna się w stanie 'odstęp'. Zmiana tego stanu na 'słowo' nastąpi po przeczytaniu pierwszego znaku, który nie jest odstępem. Powtórna zmiana na 'odstęp' nastąpi po przeczytaniu znaku odstępu wewnątrz linii lub kiedy przetwarzana linia zakończy się.

Rozwiązanie 2

<b>procedure</b> Kopiuj(<b>var</b> f,g:Text);
 <b>type</b> pozycja=(odstep,slowo);
 <b>var</b> stan:pozycja;
 c:character;
 <b>begin</b>
 reset(f);
 rewrite(g);
 stan:=odstep;
 <b>while</b> <b>not</b> eof(f) <b>do</b> <b>begin</b>
 <b>if</b> eoln(f) <b>then</b> <b>begin</b>
 readln(f);
 <b>if</b> stan=slowo <b>then</b> <b>begin</b>
 writeln(g);
 stan:=odstep;
 <b>end</b>;
 <b>end</b>
 <b>else</b> <b>begin</b> // <b>not</b> eoln(f)
 read(f,c);
 <b>if</b> c=' ' <b>then</b> <b>begin</b> 
<b>if</b> stan=slowo <b>then</b> <b>begin</b>
 writeln(g);
 stan:=odstep
 <b>end</b> 
<b>end</b> 
<b>else</b> <b>begin</b> // c&lt;&gt;' ' 
write(g,c); 
<b>if</b> stan=odstep <b>then</b>
 stan:=slowo 
<b>end</b> 
<b>end</b> 
<b>end</b>; 
close(f); 
close(g); 
<b>end</b>; // Kopiuj

W tym rozwiązaniu jest tylko jedna pętla while przetwarzająca poszczególne zdarzenia w pliku f. Zdarzeniem może być albo koniec linii, albo wczytanie znaku. Za każdym razem wykonywane są odpowiednie operacje na plikach i zmieniany jest stan.

Zadanie 3 (Usuwanie komentarzy)

Napisz procedurę usuwającą komentarze z pliku tekstowego zawierającego program w Pascalu.
Komentarze oznaczone są przez { ... } lub (* ... *). Należy przy tym uważać, by nie usuwać komentarzy znajdujących się wewnątrz napisów (oznaczonych przez ' ... ')

Wskazówka 1

Tak jak w zadaniu 2, procedura powinna być sterowana stanem oznaczającym tę część wiedzy zdobytej podczas przetwarzania dotychczasowego fragmentu pliku, od której zależy reakcja na wczytanie poszczególnych znaków: czy jesteśmy wewnątrz komentarza, napisu, po przeczytaniu nawiasu oswierającego itp.

Rozwiązanie 1

<b>procedure</b> Komentarze(wej,wyj:string);
 <b>type</b> stany=(nic,kom1,naw_otw,kom2,kom2_gw,napis);
 <b>var</b> f,g:Text; 
stan:stany;
 c:character;
 <b>begin</b>
 assign(f,wej);
 assign(g,wyj);
 reset(f); 
rewrite(g);
 stan:=nic;
 <b>while</b> <b>not</b> eof(f) <b>do</b> <b>begin</b>
 <b>if</b> <b>not</b> eoln(f) <b>then</b>
 read(f,c);
 <b>case</b> stan <b>of</b>
 nic: 
<b>case</b> c <b>of</b>
 '(': stan:=naw_otw;
 '&#39;&#39;': <b>begin</b> stan:=napis; write(g,c) <b>end</b>;
 <b>else</b> write(g,c);
 <b>end</b>
 naw_otw:
 <b>case</b> c <b>of</b>
 '*': stan:=kom2;
 '&#39;&#39;': <b>begin</b> stan:=napis; write(g,'(&#39;&#39;'); <b>end</b>;
 '{': <b>begin</b> stan:=kom1; write(g,'({'); <b>end</b>
 <b>else</b> <b>begin</b> stan:=nic; write(g,'(',c); <b>end</b>
 <b>end</b> 
kom2:
 <b>case</b> c <b>of</b>
 '*': stan:=kom2_gw;
 <b>end</b>
 kom2_gw:
 <b>case</b> c <b>of</b>
 ')': stan:=nic;
 '*': stan:=kom2_gw;
 <b>else</b> stan:=kom2
 <b>end</b>
 kom1:
 <b>case</b> c <b>of</b> 
'}': stan:=nic 
<b>end</b> 
napis:
 <b>case</b> c <b>of</b>
 '&#39;&#39;': <b>begin</b> stan:=nic; write(g,c); <b>end</b> 
<b>else</b> write(g,c);
<b>end</b>
 <b>end</b>
 <b>end</b>
 <b>else</b> <b>begin</b> // eoln(f) readln(f);
 <b>case</b> stan <b>of</b>
 nic: writeln(g);
 naw_otw: <b>begin</b> stan:=nic; writeln(g,'('); <b>end</b>;
 kom2: // nic 
kom2_gw: stan:=kom2;
 kom1: // nic 
napis: writeln(g) 
<b>end</b> 
<b>end</b> 
<b>end</b> 
close(f); 
close(g); 
<b>end</b>

Każdy obrót pętli while w powyższej procedurze przetwarza jedno zdarzenie (znak lub koniec wiersza) z pliku wejściowego. W zależności od stanu i znaku (zdarzenia) zmieniany jest odpowiednio stan i zapisywany odpowiedni napis do pliku wyjściowego.

Można sobie wyobrazić zawartość pętli while w powyższej procedurze jako dwuwymiarową tabelkę, której kolumny indeksowane są stanami, wiersze - rodzajem zdarzenia wejściowego, a w każdej komórce jest informacja, jaki ma być nowy stan i co wypisać do pliku g.