Wstęp do programowania/Pliki/Ćwiczenia

<<< Powrót do głównej strony wykładu

<<< Powrót do modułu 7

To są zadania na pliki.

Pokaż rozwiązania __SHOWALL__
Ukryj rozwiązania __HIDEALL__

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

{{{3}}}

Rozwiązanie 1

{{{3}}}

Wskazówka 2

{{{3}}}

Rozwiązanie 2

{{{3}}}

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

{{{3}}}

Rozwiązanie 1

{{{3}}}

Rozwiązanie 2

{{{3}}}

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

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

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.