Var b: Byte;

Begin

ClrScr;

B := 187;

Writeln('201: ', #201); { вывод символа по его коду }

Writeln('205: ', chr(205));{возвращает символ, номер которого в ASCII таблице задан параметром}

Writeln('187: ', chr(B)); { }

Write('186: ', #186, #13, #10);{ вывод символов #13 (перенос строки) и #10 (возврат каретки) }

Write('188: ', #188); {}

Write(#$0d,#$0a,'200: ',#200);{символы с №, который задан числом в 16-й системе: $0d - 13, $0a - 10}

MakeWindow(10, 10, 40, 20);{ построение окошек по заданным координатам }

Readln;

end.

Контрольные вопросы

1. Дать определение понятию файловой переменной.

2. Стандартные процедуры и функции обработки данных файла.

3. Формат файловой переменной для текстовых файлов. Перечислить процедуры и функции для работы с текстовыми файлами.

4. Формат файловой переменной для нетипизированных файлов. Перечислить процедуры и функции для работы с файлами без типа.

Задание

1. Создайте процедуру создания окна с заголовком: наподобие тех, которые использует сам Turbo Pascal. Естественно, без служебных символов и областей, просто заголовок, расположенный посередине.

2. Создайте программу "Записная книжка", с возможностью сохранения информации в файл.

8