ClrScr;

Begin

End;

Begin

Uses Crt;

Program Border;

End.

Close(F);

ReWrite(F, 1);

Readln;

Randomize;

ClrScr;

Begin

S: String;

I: Integer;

Rec: R;

{ считываем и задаем исходные данные }

Write('Enter CHAR: '); Readln(C);

Write('Enter INTEGER: '); Readln(I);

Write('Enter STRING: '); Readln(S);

Rec.A:= Random(1000); Rec.B:= Random(1000);

Writeln('Rec.A: ', Rec.A);

Writeln('Rec.B: ', Rec.B);

{ выполняем действия по записи в файл }

Assign(F, '1.txt');

BlockWrite(F, C, SizeOf(C)+SizeOf(I)+255+SizeOf(Rec), Result);

В процедуре BLOCKWRITE использовалось целое выражение в качестве указания размера записываемого буфера. Составлено оно из суммы 3х результатов функции SIZEOF и числа 255, которое является длиной строки S.

Пример11. Использование псевдографики. Это обычные символы, которые имеются в стандартном наборе ASCII.

Procedure MakeWindow(X, Y, X1, Y1: Byte);

Var I: Byte;

GotoXY(X, Y); Write(#201); GotoXY(X1, Y); Write(#187);

GotoXY(X, Y1); Write(#200); GotoXY(X1, Y1); Write(#188);

For I:= X+1 to X1-1 do

Begin GotoXY(I, Y); Write(#205);GotoXY(I, Y1); Write(#205); end;

For I:= Y+1 to Y1-1 do

Begin GotoXY(X, I); Write(#186); GotoXY(X1, I); Write(#186); end;

var B: Byte;

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);{ построение окошек по заданным координатам }

Дата добавления: 2013-12-13