procedure WriteCheckLine(Len: Integer; Offset: Byte);
var i: Integer;
begin
for i := Offset to Len - 1 + Offset do
begin
if i and 1 > 0 then Write('*')
else Write('-');
end;
WriteLn;
end;
procedure WriteCheckBoard(N: Integer);
var i: Integer;
begin
for i := 0 to N - 1 do WriteCheckLine(N, i and 1);
end;procedure WriteCheckBoard(N: Integer);
var i, j, Offset: Integer;
begin
for i := 0 to N - 1 do
begin
Offset := i and 1;
for j := Offset to N - 1 + Offset do
begin
if j and 1 > 0 then Write('*')
else Write('-');
end;
WriteLn;
end;
end;procedure WriteHex;
var
m, Val, Len, i: Word;
HexA: array [0 .. 3] of AnsiChar;
begin
Val := ch;
Len := 0;
while Val > 0 do
begin
m := Val and $F;
Val := Val shr 4;
case m of
0 .. 9: HexA[Len] := AnsiChar(m + 48);
10 .. 15: HexA[Len] := AnsiChar(m + 55);
end;
Inc(Len);
end;
BuffOut.WriteBinaryString('\u');
if Len = 2 then BuffOut.WriteBinaryString('00');
if Len = 3 then BuffOut.WriteBinaryChar('0');
for i := Len - 1 downto 0 do
begin
BuffOut.WriteBinaryChar(HexA[i]);
end;
end;function RevertString(Value: String): String;
var
PValue, PResult, PStartValue: PChar;
LenValue: Integer;
begin
LenValue := Length(Value);
if LenValue mod 2 > 0 then raise Exception.Create('По 2 символа не получтися');
PValue := PChar(Value);
PStartValue := PValue;
SetLength(Result, LenValue);
PResult := PChar(Result);
Inc(PValue, LenValue - 2);
while PValue >= PStartValue do
begin
Move(PValue^, PResult^, 4);
Inc(PResult, 2);
Dec(PValue, 2);
end;
end;