Zapisywanie znaków do pliku
Schemat przetwarzania pliku przy wpisywaniu pojedyn-
czych znaków zawiera dwie pętle w pętli: zewnętrzną wykony-
waną do wyczerpania wpisywanych wierszy, sygnalizowaną
przez zmienną Koniec i wewnętrzną wykonywaną do zapełnie-
nia bieżącego wiersza, sygnalizowanego przez zmienną Ko-
niec_wiersza.
ASSIGN(Plik_tekstowy,Nazwa_pliku);
REWRITE(Plik_tekstowy);
Koniec:=FALSE:
WHILE NOT Koniec DO
BEGIN
Koniec_wiersza:=FALSE;
WHILE NOT Koniec_wiersza DO
BEGIN
P(z);
WRITE(Plik_tekstowy,z);
END;
WRITELN(Plik_tekstowy);
END;
CLOSE(Plik_tekstowy);
" P(z) jest procedura przygotowującą wpisywany znak. W jej
zakresie zmienne Koniec i Koniec_wiersza musza zmienić
swój stan, odpowiednio: gdy zakończy się generowanie wier-
sza i generowanie pliku.