Обробка текстів

Приклад 1. За виклику

writeln (f, 'СЛОН', 'собака':1, 'кіт':5)

у текст виводиться рядок

СЛОНсобака кіт[13][10]

за викликуwrite (f,1.1239:1:3, 0.11234567 :21)

– символи

1.124 1.123456700000E-0001

за виклику

writeln (f, 123.499999:1:0,-12345.1234567:12)

– рядок

123 -1.2E+0004[13][10]



Приклад 2. Створити текст можна буквально "власними руками", набираючи його рядки на клавіатурі у відповідь на запрошення при виконанні такої програми:

program creatext ( input, output );

var f:text; s: string;

begin

assign(f, 'myfile.txt'); rewrite(f);

writeln ( 'Наберіть символи рядка й натисніть Enter:' );

while not eof ( input ) do

begin

readln( s ); writeln (f, s );

writeln ( ' Наберіть символи рядка й натисніть Enter:' );

end;

close(f)

end.