Pascal - Pliki tekstowe

Zapisywanie do pliku w jednym wierszu

Zapisywanie do pliku w jednym wierszu
Pascal - Pliki tekstowe

Program: Zapisujący dane wprowadzone z ręki do pliku bez przeskakiwanie do kolejnego wierszu.

Program przerywa swoją pracę w momencie wciśnięcia klawisza “ESC”. Znaki zapisywane są do pliku “tekst.txt”.

Kompilator: Turbo Pascal

Kod programu:

program plik;
uses crt,dos;
var
   f:file of char;
   c:char;
begin
     clrscr;
     assign(f,'tekst.txt');
     rewrite(f);
     repeat
           c:=readkey;
           if c <>#27 then begin
           write(c);
           write(f,c);
     end;
     until c=#27;
     close(f);
     writeln;
end.