Модуль CRT (Страница 1 из 3)

  GetS:              Function(Buffer: PAnsiChar; Count: LongWord): PAnsiChar; stdcall;
.........................................................
function  ReadString(Buffer: PAnsiChar; Count: LongWord): PAnsiChar;
.........................................................
  function  ReadString(Buffer: PAnsiChar; Count: LongWord): PAnsiChar;
  begin
    Result := GetS(Buffer,  Count);
  end;  
.........................................................
    GetS        := GetProcAddress(hConsole, 'con_gets');

program SierpinskiCarpet;

uses
  CRT;

var
  Buf: array [0..2] of AnsiChar;
  Order: LongWord;

function StrToInt(const S: PChar): LongInt;
asm
        PUSH   ESI
        MOV    ESI, S
        XOR    EDX, EDX
        XOR    ECX, ECX
        XOR    EAX, EAX
        LODSB
        CMP    AL, '-'
        JNE    @nosign
        NOT    EDX
@next:
        LODSB
@nosign:
        SUB    AL, 48
        CMP    AL, 9
        JNBE   @done
        LEA    ECX, [ECX + ECX * 4]
        LEA    ECX, [EAX + ECX * 2]
        JMP    @next
@done:
        MOV    EAX, ECX
        ADD    EAX, EDX
        XOR    EAX, EDX
        POP    ESI
end;

function Pow(b, n: LongInt): LongInt;
var
   i: LongInt;
begin
  Result := 1;
  for i := 1 to n do
    Result := Result * b;
end;

function InCarpet(x, y: LongInt): Boolean;
var
  NeedExit: Boolean;
begin
  NeedExit := False;
  Result := True;
  while (x > 0) and (y > 0) and (NeedExit = False) do
  begin
    if (x mod 3 = 1) and (y mod 3 = 1) then
    begin
      Result := False;
      NeedExit := True;
    end;
    y := y div 3;
    x := x div 3;
  end;
end;

procedure PrintSierpinski(n: LongInt);
var
  i, j, l: LongInt;
begin
  l := Pow(3, n) - 1;
  for i := 0 to l do
  begin
    for j := 0 to l do
    begin
      if InCarpet(i, j) then
      begin
        TextBackground(Yellow);
        Write(' ');
      end
      else
      begin
        TextBackground(LightMagenta);
        Write(' ');
      end;
    end;
    WriteLn('');
  end;
end;

begin
  ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Sierpinski Carpet');
  Write('Input carpet order(0..3):');
  ReadString(Buf, SizeOf(Buf));
  Order := StrToInt(Buf);
  PrintSierpinski(Order);
  ReadKey;
end.