Wstęp do programowania/Pliki/Ćwiczenia

To są zadania na pliki

Zadanie 1

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.

Rozwiązanie 1

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

Zadanie 2

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

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 ' ... ')