Символи і рядки передаються вихідного файлу без змін, але забезпечуються провідними пробілами, якщо задана ширина поля і ця ширина більше необхідної для виводу.
При виведенні булевих змінних в залежності від їх значення виводяться рядки TRUE або FALSE. p> Речові числа виводяться в так званому експоненційному форматі, якщо не вказано подпараметр [кількість десяткових знаків], в іншому випадку вибирається формат представлення з фіксованою точки. Експоненційний формат дійсного числа виглядає наступним чином:
_s #. # # # # # # # # # # # # # # E * # # # # , Де
_ - пробіл;
s - пробіли для позитивного і знак "-" для негативного числа;
# - десяткова цифр;
E - символ десяткового підстави;
* - знак "+" або "-" залежно від знака десяткового порядку цифр;
Якщо подпараметр ширина поля для дійсних чисел опущений,
приймається його значення за замовчуванням (23).
Якщо подпараметр кількість десяткових знаків дорівнює нулю, ні дробова частина числа, ні десяткова крапка не виводиться. При від'ємному значенні цього параметра він ігнорується і число виводиться в експоненційному форматі з урахуванням ширини поля.
Якщо значення подпараметра ширина поля виявиться недостатнім для розміщення цілої частини дійсного числа або іншого виразу, то в цьому випадку цей параметр автоматично збільшується.
При заповненні стандартного текстового файлу його вміст зсувається вгору на один рядок.
Наведемо приклад програми, що використовує процедуру Write:
Program Write_into_my_file;
Var F: String; {Прізвище}
D: Word; {Дата народження}
T: Text;
Begin
Assign (T, 'my_file.txt');
Rewrite (T);
F: = 'Sharifov';
D: = 1987;
Write (T, F, 'Rustam');
Write (T, D);
Close (T);
End.
В
Процедура WriteLn ([файлова змінна], [список виведення]);
Ця процедура повністю ідентична процедурі WRITE за винятком того, що виводиться в текстовий файл рядок символів завершується ознакою кінця рядка EOLn.
В
WriteLn використовується тільки для текстових файлів. При виклику
WriteLn можна опускати параметр список виведення, в цьому випадку у файл передається ознака кінця рядка, що при виведенні на екран призведе до переведення курсору на початок наступного рядка.
Наведемо приклад програми, що використовує процедуру Write:
Program Write_into_my_file;
Var F: String; {Прізвище}
D: Word; {Дата народження}
T: Text;
Begin
Assign (T, 'my_file.txt');
Rewrite (T);
F: = 'Sharifov';
D: = 1987;
WriteLn (T, F, 'Rustam');
WriteLn (T, D);
Close (T);
End.
Функція EOLn ([файлова мінлива]); ...
