Обробка текстів, Детальна інформація

У виклику можна записати одразу кілька виразів через кому:

write(f, вираз1, вираз2, ...).

Наприклад, за x=2 виклик

write(f, 'x=', x, '; x**2=', sqr(x))

задає виведення в файл послідовності символів x=2; x**2=4. До речі, такий виклик виконується як послідовність викликів

write(f, вираз1); write(f, вираз2); ...

Процедура writeln відрізняється лише тим, що за виклику

writeln(f, список-виразів-базових-типів-або-рядків)

за останньою сталою в текст додається eol (у Турбо Паскаль – [13][10]). Список виразів тут може бути порожнім – тоді лише додається eol.

У викликах процедур write і writeln після виразу через двокрапку можна задати ширину поля W під запис значення виразу, наприклад,

write(f, sqr(x):2).

Тут W=2. Нехай для запису значення виразу потрібно L символів. В останньому виклику L=1 за x<4, L=2 за 3W, то виводяться всі символи. Таким чином, за x=3 друкується пропуск і 9, а за x=100 – всі п’ ять символів 10000.

Після виразу дійсного типу можна також указати кількість N цифр дробової частини, що виводяться після десяткової крапки, наприклад,

write(f, sqrt(x): 7 : 3).

Якщо N указано, то виводиться стала з фіксованою крапкою та N цифрами після крапки, інакше – нормалізована з порядком. В даному разі за x=2 виводиться два пропуски та 1.414. Остання цифра є результатом округлення. Деякі інші деталі можуть визначатися системою програмування.

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

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

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

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

за виклику

write (f,1.1239:1:3, 0.11234567 :21)

– символи

1 . 1 2 4   1 . 1 2 3 4 5 6 7 0 0 0 0 0 E - 0 0 0 1

за виклику

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

– рядок

1 2 3     - 1 . 2 E + 0 0 0 4 [13] [10]

\xF0E7

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

program creatext ( input, output );